Community
Trying to create a lsp command that will rotate a general note label
we have one that rotates Points ie z1, z2, z3, z4 That rotates the point to the respective quadrant
That lisp is below
;;; point rotation quadrant 1 (defun c:Z1 (/ doc pt sourcept ss ss2) (setq rlang (- (* pi 0.25) (getvar "viewtwist"))) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (princ "\n....select Points to change: ") (if (setq ss (ssget '((0 . "AECC_COGO_POINT")))) (while (> (sslength ss) 0) (setq pt (vlax-ename->vla-object (ssname ss 0))) (vlax-put pt 'labelrotation rlang) (ssdel (ssname ss 0) ss) ) ) ) ) (vla-endundomark doc) (princ) )
If someone could help me that would be awesome.
I would like to have 4 lsp routines Like-- L1, L2, ,L3, L4
Solved! Go to Solution.
Solved by Jeff_M. Go to Solution.
Solved by Jeff_M. Go to Solution.
Can't find what you're looking for? Ask the community or share your knowledge.