Rotation de vues

[DenisHen]

Salut à tous,

 

Travaillant souvant avec des plans de corps de rues dans tous les sens (avec des carroyages partout). Je me sers souvent de ce petit LiSP pour orienter mes vues sans toucher au système de coordonnées générales; Ce qui me permet de travailler avec des Xrefs en Lambert sans aucune manipulation...

 

(defun c:BlexOrientSCU () ;    Rotation de vue
 (command "_ucs" "_w") ; passage en SCU général
 (setvar "angbase" (/ pi 2)) ;origine au nord
 (setvar "angdir" 1) ; sens horaire
 (setvar "aunits" 2) ; grade
 (setq p1 (getpoint "\nPoint de départ : "))
 (setq vortho (getvar "orthomode"))
 (setq
   p2 (getpoint p1
	 (strcat "\nDirection des X (0 pour scu gébéral):")
      ) ;_ Fin:getpoint
 ) ;_ Fin:setq
 (setvar "orthomode" vortho)
 (setvar "snapang" (angle p1 p2))
 (setq angscu (- 500 (* 200 (/ (angle p1 p2) pi))))
 (if (<= angscu 400)
   (- angscu 400)
 ) ;_ Fin:if
 (setq p3 (polar p1 (+ (angle p1 p2) (/ pi 2)) 1000))
 (command "_ucs" "_z" p1 p3)
 (command "_plan" "courant")
 (command "_ucs" "_w")
 (command "resol" "r" p1 p2)
) ;_ Fin:defun

 

Bonne vacances...

 

Denis.