Change Xref Color, Linetype an

Tharwat · 发表于 2022-7-5 18:21:56

One more question:
Do you want to change all Xref layers or just layers that related a picked Xref block ?

Tharwat · 发表于 2022-7-5 18:24:03

Anyway, try this program and let me know if this work for you;

(defun c:Test (/ blk doc name lay lname) ;;        Tharwat - Date: 04.May.2016        ;; (if (and (setq blk (car (entsel "\nSelect Xref block :")))          (vlax-property-available-p (vlax-ename->vla-object blk) 'path)          (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))                name (cdr (assoc 2 (entget blk))))          )  (progn   (if (not (tblsearch "LTYPE" "HIDDEN"))     (vla-load (vla-get-Linetypes doc) "HIDDEN" "acadiso.lin")     )       (while (setq lay (tblnext "LAYER" (not lay)))   (if (wcmatch (setq lname (cdr (assoc 2 lay))) (strcat name "|*"))     (entmod (append (entget (tblobjname "LAYER" lname)) '((62 .  (6 . "HIDDEN") (370 . -3))))     )   )   (vla-regen doc AcAllviewports)   )   (alert "Nothing selected or object is not Xref. Block !") )(princ))(vl-load-com)

nod684 · 发表于 2022-7-5 18:30:10

only related picked Xref Block

thanks i will try this one out tomorrow and give you feedback

EDIT :
just tested the routine its working fine except that it doesn't change the blocks nested in xrefs

amarcon · 发表于 2022-7-5 18:34:46

I found this one years ago, and it is quite useful. I make a block of dwg or xref it in....

VVA Post #7 thru to -> #14
http://www.cadtutor.net/forum/showthread.php?533-Lisp-colour-change-for-all-layers-and-blocks&p=208437&viewfull=1#post208437

[编程交流] Change Xref Color, Linetype an

发表回复

精选推荐