Rotation +x° sur plusieurs blocs

[gillespj]

Bonjour tlm,

 

J'ai plusieurs blocs insérés avec des angles de rotation différents et je voudrais leur faire subir une rotation +35° (par exemple) par rapport à leur point d'insertion.

 

Peut-on réaliser l'opération via une fonction ou un lisp ?

[(gile)]

Salut,

 

Un petit LISP vite fait

 

(defun c:rotbloc (/ ang ss)
 (vl-load-com)
 (and (setq ang (getorient "\nSpécifiez l'angle de rotation: "))
      (ssget '((0 . "INSERT")))
      (vlax-for b (setq ss (vla-get-ActiveSelectionSet
		      (vla-get-ActiveDocument
			(vlax-get-acad-object)
		      )
		    )
	   )
 (vla-put-rotation b (+ (vla-get-rotation b) ang))
      )
 )
 (and ss (vla-delete ss))
 (princ)
) 

[gillespj]

C'est exactement ça !

 

Merci.