(wcmatch (vla-get-Objectname Obj) "*Dimension*,AcDb*Leader") (vlax-variant-value (vla-GetAttributes obj)) (= (vla-get-HasAttributes obj) :vlax-true) (= (vla-get-ObjectName obj) "AcDbBlockReference") (substr txtstr (1 tmp) (- (1 (VL-STRING-SEARCH " " txtstr tmp)) tmp)) (strcat (substr txtstr (1 tmp) 2)(itoa Color) " ") (while (setq tmp (VL-STRING-SEARCH "\\C" txtstr tmp)) (if (vlax-method-applicable-p Obj 'FieldCode) (vlax-property-available-p Obj 'TextString) (and (= (vla-get-IsXref Blk) :vlax-false) (defun ChangeXrefAllObjectsColor (Doc Color / tmp txtstr) '(lambda () (vla-put-freeze item :vlax-false)) (vla-get-activedocument (vlax-get-acad-object)) (vla-put-lock (car item) (cdr (assoc "lock" (cdr item)))) (ChangeXrefAllObjectsColor doc col) _ col - color number "\This lisp change color xref\nONLY ON A CURRENT SESSION" (ChangeAllObjectsColor doc col) _ col - color number (setq doc (vla-get-activedocument (vlax-get-acad-object))) Objects on the locked and frozen layers are ignored ColorXREFL change color xref only on a current session. ColorXL - change color all object of drawing. ColorXREF change color xref only on a current session. ColorX - change color all object of drawing. The 2 that I find the most helpful are COLORX and COLORXREF as these either change the entire XREF alone (COLORXREF) or change the entire model – both XREF
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |