mesure d\'angle d\'après SCU

[gizmo]

 

 

Bonjour,

 

peut être que cette question est dejà apparue sur le forum mais dans le doute.....:

 

Comment faire en sorte qu'une propriété de ligne (l'angle en l'occurence) puisse être affichée en fonction du SCU courant plutôt que par rapport au SCG ?

 

il me semble que les précédentes versions le permettaient d'office, mais peut être me gourre-je ?

 

toute aide rapide sera la bienvenue

 

Merci

 

[(gile)]

Salut,

 

Même réponse que dans le forum Autodesk, deux petits LISP à coller sur la ligne de commande ou dans un bouton.

 

En sélectionnant une ligne :

((lambda (/ l)
  (while (not (setq l (ssget "_:S:E" '((0 . "LINE"))))))
  (setq l (entget (ssname l 0)))
  (alert
    (strcat "Angle = "
     (angtos (angle (trans (cdr (assoc 10 l)) 0 1)
		    (trans (cdr (assoc 11 l)) 0 1)
	     )
     )
    )
  )
  (princ)
)
) 

 

En spécifiant le point de départ et de fin :

(alert (strcat "Angle = "(angtos (getangle))))