RETICUL INTELLIGENT ?

[G-CAD]

Bonjour à tous.

 

Peux t-on configurer autocad pour qu'en cas de prise de mesure celui-ci indique la côte directement à proximité du réticul ?

 

But: Dans l'analyse de fichiers très lourd la manipulation est difficile cette technique me denerait une lecture directe sans devoir chercher la côtation.

 

Merci

 

G-CAD

 

[Edité le 15/5/2007 par G-CAD]

[Bred]

Salut,

j'avoues ne pas trés bien comprendre :

Peux t-on configurer autocad pour qu'en cas de prise de mesure celui-ci indique la côte directement à proximité du réticul ?

ta ligne de commande est trop loin ?

 

 

 

[djn06]

Sur autocad 2008 le réticule est intelligent, il te donne la distance et l'angle

[Bred]

Sur autocad 2008 le réticule est intelligent, il te donne la distance et l'angle

Depuis 2006 en fait... mais là on est en 2005 .....

[bonuscad]

Peut être en se mettant en mode "Tracking" ou repere objet si vous préférez.

Là effectivement on peut avoir des infos de distances et d'angle au réticule.

[PHILACAD]

tu peux essayer ceci:

;|

 

TLEN.LSP - Total LENgth of selected objects

© 1998 Tee Square Graphics

 

|;

 

(defun C:TL (/ ss tl n ent itm obj l)

(setq ss (ssget)

tl 0

n (1- (sslength ss)))

(while (>= n 0)

(setq ent (entget (setq itm (ssname ss n)))

obj (cdr (assoc 0 ent))

l (cond

((= obj "LINE")

(distance (cdr (assoc 10 ent))(cdr (assoc 11 ent))))

((= obj "ARC")

(* (cdr (assoc 40 ent))

(if (minusp (setq l (- (cdr (assoc 51 ent))

(cdr (assoc 50 ent)))))

(+ pi pi l) l)))

((or (= obj "CIRCLE")(= obj "SPLINE")(= obj "POLYLINE")

(= obj "LWPOLYLINE")(= obj "ELLIPSE"))

(command "_.area" "_o" itm)

(getvar "perimeter"))

(T 0))

tl (+ tl l)

n (1- n)))

(alert (strcat " longueur totale des objets selectionnes " (rtos tl)))

(princ)

)