|
The system variable LTSCALE controls the
global LineType Scale of all entities within a drawing. Manual Method : Open the Properties dialog. Automated Method : ;AUTOLISP CODING STARTS HERE (prompt "\n Type LTCHG to run.....") (defun c:ltchg ( / ssets acadDocument newsset ctr item newscale) (setq newscale (getreal "\nEnter New Linetype Scale : ")) ;load the visual lisp extensions ;retrieve a reference to the documents
object ;retrieve a reference to the selection sets
object ;add a new selection set ;select your new selection set objects ;set the counter to zero ;count the number of objects and loop ;retrieve each object ;check if the entity has a color property ;if it can ;change it's color );if ;increment the counter );repeat ;delete the selection set (princ) );defun (princ) ;AUTOLISP CODING ENDS HERE |
|