Dispo : angle d'une viewport dans l'angle un bloc

[fabcad]

Bonjour à tous,

Afin de mettre à jour le bloc nord qui se trouve en espace papier par rapport au scu d'une viewport, j'ai créé cette routine et je souhaiterais l'améliorer par le biais, peut-être, d'un lien (reactor) entre la viewport et le bloc "Nord".

 

Voici ma routine :

 

(defun c:maj_bloc_nord ()
(vl-load-com)
		(prompt "\n Cliquez sur la Fenêtre :")
		(setq ss_viewport (ssget "_+.:E:S" '((0 . "VIEWPORT"))))
		(setq obj_acad_viewport (ssname ss_viewport 0))
			(setq vlaviewport_en_cours (vlax-ename->vla-object obj_acad_viewport))
			(setq angle_scu (vla-get-TwistAngle vlaviewport_en_cours))

		(prompt "\n Cliquez sur le bloc Nord :")
		(setq ss_bloc (ssget "_+.:E:S" '((0 . "INSERT"))))
		(setq obj_acad_bloc (ssname ss_bloc 0))
			(setq vlabloc_en_cours (vlax-ename->vla-object obj_acad_bloc))
			(vla-put-Rotation vlabloc_en_cours angle_scu)
(princ)
);fin defun maj_bloc_nord

 

Merci pour vos réponses,

 

Fabcad