Les derniers messages des forums CADxp

Bsr, je viens de télécharger [b] ObjectDCL 7.0[/b] mais n\'étant pas doué en anglais existe-t-il uen version française ou un patch !

Pour répondre à une demande sur un autre forum, j\'ai écrit un LISP qui convertit un fichier de type de ligne (.lin) en système impérial. Je l\'ai un peu amélioré pour pouvoir convertir aussi les fichiers de motifs de hachures (.pat). CONVFILE demande à l\'utilisateur de choisir le fichier et vers quel système d\'unités faire la conversion. [code];; CONVFILE (gile) ;; Convertit un fichier (.pat ou .lin) en système métrique ou impérial (defun c:convfile (/ conv ext path to file lst) (defun conv (lst / val) (mapcar (function (lambda (x) (if (setq val (distof x)) (rtos ((if (= to \"Imperial\") / *) val 25.4) 2 5) x ) ) ) lst ) ) (if (and (setq path (getfiled \"Choisir un fichier\" \"\" \"*\" 0)) (member (setq ext (vl-filename-extension path)) \'(\".lin\" \".pat\")) (setq to (ChooseBox \"Convertion\" \'(\"Imperial\" \"Metrique\"))) (setq file (open path \"r\")) ) (progn (setq zin (getvar \'dimzin)) (setvar \'dimzin 12) (while (setq line (read-line file)) (if (member (substr line 1 1) \'(\";\" \"*\")) (setq lst (cons line lst)) (setq line (str2lst line \",\") lst (if (= ext \".lin\") (cons (lst2str (conv line) \",\") lst) (cons (lst2str (cons (car line) (conv (cdr line))) \",\") lst) ) ) ) ) (close file) (setq file (open path \"w\")) (foreach l (reverse lst) (write-line l file)) (close file) (setvar \'dimzin zin) ) (princ \"\\nFormat de fichier incorrect.\") ) (princ) ) ;; str2lst (gile) ;; Transforme un chaine avec séparateur en liste de chaines ;; ;; Arguments ;; str : la chaine à transformer en liste ;; sep : le séparateur ;; ;; Exemples ;; (str2lst \"a b c\" \" \") -> (\"a\" \"b\" \"c\") ;; (str2lst \"1,2,3\" \",\") -> (\"1\" \"2\" \"3\") ;; (mapcar \'read (str2lst \"1,2,3\" \",\")) -> (1 2 3) (defun str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) ) ;; lst2str (gile) ;; Concatène une liste et un séparateur en une chaine ;; ;; Arguments ;; lst : la liste à transformer en chaine ;; sep : le séparateur ;; ;; Exemples ;; (lst2str \'(1 2 3) \",\") -> \"1,2,3\" ;; (lst2str \'(\"a\" \"b\" \"c\") \" \") -> \"a b c\" (defun lst2str (lst sep) (if (cadr lst) (strcat (vl-princ-to-string (car lst)) sep (lst2str (cdr lst) sep) ) (vl-princ-to-string (car lst)) ) ) ;; ChooseBox (gile) ;; Boite de dialogue permettant de choisir une option ;; ;; Arguments ;; title : le titre de la boite de dialogue (chaîne) ;; label : la liste des options (liste de chaînes) ;; ;; Retour : l\'option choisie (chaîne) (defun choosebox (title label / tmp file dcl_id choice) (setq tmp (vl-filename-mktemp \"tmp.dcl\") file (open tmp \"w\") ) (write-line (strcat \"ChooseBox:dialog{label=\\\"\" title \"\\\";:radio_column{key=\\\"ch\\\";\" ) file ) (foreach l label (write-line (strcat \":radio_button{label=\\\"\" l \"\\\";key=\\\"\" l \"\\\";}\") file ) ) (write-line \"}spacer;ok_cancel;}\" file) (close file) (setq dcl_id (load_dialog tmp)) (if (not (new_dialog \"ChooseBox\" dcl_id)) (exit) ) (set_tile \"ch\" (car label)) (action_tile \"accept\" \"(setq choice (get_tile \\\"ch\\\")) (done_dialog)\" ) (start_dialog) (unload_dialog dcl_id) (vl-file-delete tmp) choice ) [/code] <br><br><font class=edite>[Edité le 13/5/2008 par (gile)]</font>

[i] Hé hé... prems... [/i]:D Bonsoir à toutes et à tous, Voici [url=http://www.rebcao.fr/docs-rebcao/Utilisation_des_Commandes_et_Fonctions_AutoCAD.pdf][b] [surligneur] un petit questionnaire [/surligneur][/b] [/url] que j\'ai développé pour pouvoir justifier de l\'utilisation OBLIGATOIRE d\'une version COMPLETE ! ;) ou à l\'inverse de se contenter d\'une version LT ! Le BUT est de faire un inventaire des fonctions utilisées... Je serais intéressé par vos commentaires. La liste est-elle complète ? Merci de vos réponses, Christian [b] PS : merci CADMIN pour les deux Forums 2009 ;) comme quoi ! tout vient à point à qui sait attendre ...[/b]<br><br><font class=edite>[Edité le 13/5/2008 par rebcao]</font>

Bonjour ! Quelqu\'un peut-il me dire comment faire pour modifier la couleur d\'une ligne de repère qui selon la norme est par défaut de couleur verte ! Je la souhaiterais en noir ! Merci

Bjr tt le monde , Je recherche un logiciel \"éditeur DCL\" de préférence français. Personnellement j\'ai téléchargé OpenDCLSource.5.0.0.14 mais je ne sais pas comment l\'installer pas vu de fichier set.up Existe -t-il un autre si oui ou peut-on le télécharger ! Merci d\'avance Phil

Bjr tt le monde , Je recherche un logiciel \"éditeur DCL\" de préférence français. Personnellement j\'ai téléchargé OpenDCLSource.5.0.0.14 mais je ne sais pas comment l\'installer pas vu de fichier set.up Existe -t-il un autre si oui ou peut-on le télécharger ! Merci d\'avance Phil

HELP !! Est-ce que quelqu\'un connait le moyen de mesurer, le long d\'une polyligne, la distance d\'un point par rapport à l\'origine sans devoir utiliser à chaque fois la commande DI. Je dois en effet placer précisément les points particuliers venant d\'un profil en long sur l\'axe en plan. Merci d\'avance

Bonjour, J\'ai un style de cote dont je souhaite changer l\'échelle générale ;; récupérer la collection de style de cotes (setq DIMST (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object)))) ;;extraire le style de cote CADSYS-COT-50 (setq DI (vla-item DIMST \"CADSYS-COT-50\")) après, quand je fais un dump j\'obtiens [quote]Commande: (vlax-dump-object DI T) ; IAcadDimStyle: Un groupe de paramètres de cote déterminant la présentation d\'une cote ; Valeurs de propriétés: ; Application (RO) = #<VLA-OBJECT IAcadApplication 00d098b4> ; Document (RO) = #<VLA-OBJECT IAcadDocument 01420420> ; Handle (RO) = \"1B8\" ; HasExtensionDictionary (RO) = 0 ; Name = \"CADSYS-COT-50\" ; ObjectID (RO) = 2130269632 ; ObjectName (RO) = \"AcDbDimStyleTableRecord\" ; OwnerID (RO) = 2130263120 ; Méthodes prises en charge: ; CopyFrom (1) ; Delete () ; GetExtensionDictionary () ; GetXData (3) ; SetXData (2) T [/quote] et je n\'ai que Name comme propriété. Je suppose que les propriétés du style de cote sont stockées ailleurs (dictionnaire, xdata ?) et comment on peut modifier ces propriétés (hauteur de texte, echelle générale etc ?) Merci Vincent

Bonjour! Après avoir un peut cherché et trouvé quelques routines presque satisfaisantes je n\'arrive toujours pas à tracer de droite tangente à 2 cercles. Je voudrais pouvoir cliquer sur les 2 cercles et avoir le choix de choisir la tangente (y\'en a pas des tonnes). Si quelqu\'un a une astuce ou un moyen mathématique de la tracé ça me va aussi. Merci d\'avance!!

Bonjour, désolé si je pose une question déjà posée, mais je n\'arrive pas a exprimer une question qui me donne un résultat probant dans le moteur de recherche j\'utilise l\'outils CONTOUR pour créer une polyligne à l\'intérieur de formes déjà dessinées. hors il arrive que sur la polyligne créé, j\'ai plusieurs boutons de sélection alignés sur un même côté je n\'arrive pas alors à transformer cette polyligne en région y\'aurait il un super outils qui puisse netoyer ces boutons inutiles ? merci