(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 & current drawing (COLORX). 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.Or if you want to have more control over how your XREF looks when it is plotted.
It is sometimes helpful if your entire XREF is a single color so that it is easier to distinguish between your current drawing. These routines will control the color of your XREFs. To be honest I don’t know why there are 4 functions – I can understand why 2 of them would be helpful. Here is a handy routine that has 4 functions in it.
0 kommentar(er)
