rik

cela fonctionne très bien il faut savoir que je devais mettre ne gris environ 50 plans! ces routines m'ont fait gagner pas mal de temps merci Richard

c'était bien ca, j'ai rajouté (vl-load-com) dans AutoCAD.mnl et cela fonctionne il ya juste les mtext et des leader de cotation qui font le difficile mais cela est un détail par rapport au gain de temps obtenu merci beaucoup Richard

mettre tout en bylayer ne fonctionne pas car les blocs sont constitués par des entités de couleur J'ai essayé le list mais j'obtiens le message suivant ; error: no function definition: VLAX-GET-ACAD-OBJECT c'est peut être du à la version autocad? j'ai essayer le programme ci-après car c'est ce que je dois faire (defun LSTAB ( TABL / LB X ) (if (member (strcase tabl) '("APPID" "BLOCK" "DIMSTYLE" "LAYER" "LTYPE" "STYLE" "UCS" "VIEW" "VPORT") ) (progn (setq lb (cons (cdr (assoc 2 (tblnext tabl T))) lb)) (while (setq x (cdr (assoc 2 (tblnext tabl)))) (setq lb (cons x lb)) ) (if (/= (strcase tabl) "BLOCK") (setq lb (acad_strlsort lb)) lb ) ) ) ) (defun lst2str (lst sep / ) (strcat (vl-princ-to-string (car lst)) (apply 'strcat (mapcar '(lambda (x) (strcat sep (vl-princ-to-string x))) (cdr lst) ) ) ) ) (defun c:CHLAY (/ cmdecho a b ent) (setq cmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) (command "_undo" "D") (if (setq a (ssget "_X")) (repeat (setq cn (sslength a)) (setq ent (entget (ssname a (setq cn (1- cn))))) (entmod (subst (cons 62 256) (assoc 62 ent) ent )) (entupd (ssname a cn)) ) ) (command "-calque" "CO" 8 (lst2str (lstab "layer") ",") "" "_UNDO" "F") (setvar "cmdecho" cmdecho) (princ) ) la j'obtiens le message ci-après Requires an integer between 1 and 32767, or option keyword. ; error: Function cancelled merci pour vos réponses richard

Bonjour, je dois modifier toutes les entités du plan en couleur 8 comment changer rapidement la couleur des différents blocs d'un plan qui sont constitués d'entités de couleur et non en bylayer merci Richard

Merci pour l'astérique , c'est déjà plus facile! l'idée du block avec attribut m'interrese aussi maisquel serait la syntaxe pour un block nomme coordonnees avec attributs x y z le point d'insertion étant le point d'insertion du point défini a l'écran? est il possible de réaliser ces opérations en selectionnant une série de points en une fois? Richard

Bonjour j'ai souvent besoin d'indiquer sur un plan les valeurs X,Y,Z de points, d'une fin de ligne et surtout la valeur Z d'une intersection présumée de 2 lignes j'ai créer un icone avec pour la valeur Z la commande ^C^C_id;\_-mtext;@;_h;$M=$(*,0.5,$(getvar,ltscale));@1<-5;Z=$(rtos,$(index,2,$(getvar,lastpoint)),2,3);; et pour la valeur X,Y la commande ^C^C_id;\_-mtext;@;_h;$M=$(*,.5$(getvar,ltscale));@1<-5;X=$(rtos,$(index,0^M;M;,$(getvar,lastpoint)),2,3);Y=$(rtos,$(index,1,$(getvar,lastpoint)),2,3);; cela fonctionne très bien mais il faut activé l'icone pour chaque point Serait 'il possible de le faire en continu du genre Sélectionnez premier point point suivant ou encore sélectionnez une série de points et y ajouter les valeurs X,Y,Z merci Richard

APLANIRGEOM= FLATSHOT EN ANGLAIS EXACTEMENT CE QUE JE CHERCHAIS MERCI Richard

Bonjour j'utilse le programme le programme goplot (gratuit) pour imprimer le fichiers plt mais ici j'aimerais plotter une série de fichier PLT à uce echelle 50% Merci

il y a aussi la variable measureinit 1= metrique 0= pouce Richard

merci mais je crois que'on pouvait récupérer comme un copie d'ecran, mais en entités autocad. En quelque sorte une vue d'écran mais sans Z Richard

Bonjour 1-je crois me souvenir d'une commande ou d'un programme qui permet de recupérer en tant qu'entites 2d le display d'une vue par ex isométrique 2- j'ai essayer sans succes le lisp trinod1.lsp bad argument type: stringp nil par contre le programme DTM de "xanadu" fonctionne très bien merci richard