additionally, i can't get this lisp to run in 2012. only 2014.
|
|
|
additionally, i can't get this lisp to run in 2012. only 2014.
Just thought I would add this here.
It returns a list of sublists of annotative scales in a drawing.
Code:(defun AnnotativeScaleList (/ lstEntity lstReturn objScale ) (vlax-for objScale (vla-item (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object))) "ACAD_SCALELIST" ) (setq lstEntity (entget (vlax-vla-object->ename objScale)) lstReturn (cons (list (cdr (assoc 300 lstEntity)) (cdr (assoc 141 lstEntity))) lstReturn) ) ) (reverse lstReturn) )
AutomateCAD