Cotation type topo

[lili2006]

Bonsoir à tous,

 

PS : certaines images sont un peu trop larges dans ce sujet ! Si chacun pouvait réduire son image ? Merci

 

Hum, désolé,j'maitrise pas encore trop, mais je m'y atelle, je m'y atelle,....

[willy95]

Une version, pur AutoLISP, qui devrait marcher dans toutes les versions d'AutoCAD (et ses clones) et qui fonctionne aussi quelque soit le SCU courant (j'ai aussi modifé celle ci-dessus dans ce sens).

 

 

(defun c:cot-topo (/ p1 p2 mid ang p3 scl cw bl pl ang ref tmp txt) ........ 

 

 

Bonjour Gile,

 

Est-il possible de créer 2 blocs distinct pour les flèches du genre : cotation-type-topo et cotation-type-topo2 car mon petit lisp bien utile me déplace une des deux flèches :

 

(Defun Ok (e / Blk Ech Jeu i ent p1 )
(Setq Blk (Cdr (Assoc 2 (EntGet e))))
(setq ech (getreal "\nFacteur d'échelle : "))
(SetQ Jeu (SSGet "X" (list (Cons 0 "INSERT") (Cons 2 Blk))))
(setq i 0 lg (if jeu (sslength jeu) 0))
(while (< i lg)
	(setq ent (ssname jeu i))
	(setq p1 (cdr (assoc 10 (entget ent))))
	(command "_Scale" ent "" p1 ech) 
	(setq i (1+ i))
 )
(prin1)
(Princ (StrCat (RtoS lg 2 0) " Bloc(s), modifiés."))
)

(setq e (Car (EntSel "\nSéléctionnez un bloc :")))

(IF (= "INSERT" (cdr (assoc 0 (EntGet e))))
(Ok e)
(Princ "\nL'élément n'est pas un BLOC.")
)
(Prin1)

 

J'ai bien essayer de modifier mais la c'est trop chaud pour moi.

 

Merci