topic LISP to change specific colors only in XREF layers in Visual LISP, AutoLISP and General Customization Forum

LISP to change specific colors only in XREF layers

lzedCB — Thu, 08 Feb 2024 15:17:07 GMT

Hello, folks!

Anyone has some LISP that runs automatically after loading, with no user input or selection, and do "all-in-one" task to change colors "2", "7" OR/AND "255" of only XREF layers (of every XREF inserted into drawing) making the following changes:

Color "2" -> Color "51"

Colors "7" and "255" -> Color "8"

And after that, it sets all XREFs layers to 80% transparency

Thanks a lot for any help!

Re: LISP to change specific colors only in XREF layers

Sea-Haven — Fri, 09 Feb 2024 04:27:16 GMT

If you look through the layers, need to find a "|" that is normally used in xref layers so if exist, the check color and change if necessary and set transparency.

This is a bit rough the transparency is buried a bit deep in the XDATA of a layer. Its a bit slow.

; thanks lee-mac (defun LM:trans->dxf ( x ) (logior (fix (* 2.55 (- 100 x))) 33554432) ) (defun c:layxx ( / lay layers) (setq Layers (vla-get-layers (vla-get-activedocument (vlax-get-Acad-Object)))) (vlax-for lay Layers (princ (setq lname (vlax-get lay 'name))) (If (vl-string-search "|" lname) (progn (setq col (vlax-get lay 'color)) (cond ((= col 2)(vlax-put lay 'color 51)) ((= col 7)(vlax-put lay 'color 8)) ((= col 255)(vlax-put lay 'color 8)) ) (vl-cmdf "._-layer" "transparency" 80 lname "") ) ) ) (princ) )

Will look into a entmod method using this idea.

(setq tr 80) ; transparency (cons -3 ;transparency (list(list "accmtransparency" (cons 1071 (LM:trans->dxf tr)) ) ) ) ) )

Re: LISP to change specific colors only in XREF layers

lzedCB — Fri, 09 Feb 2024 11:18:56 GMT

Sorry if I didn't myself clear enough: my intention is to do that "all-in-one task" in the drawing where the XREF is inserted, just making layer overrides and not inside the XREF itself. Tested your lisp and it worked great inside the XREF file.

Re: LISP to change specific colors only in XREF layers

Kent1Cooper — Fri, 09 Feb 2024 15:35:19 GMT

@Sea-Haven wrote:

.... the transparency is buried a bit deep in the XDATA of a layer. ....

.... Will look into a entmod method using this idea.

There's an easier way to deal with Transparency. To read a Layer's current setting:

(getpropertyvalue (tblobjname "layer" "YourLayerName") "Transparency")

[Somehow, if it's 0 and has never been changed, that returns -1. If it has been changed, and is changed back to 0, it returns 0, but it can be set to -1 with the below approach and will also then show 0 in the Layer Manager.]

To assign a value [here the OP's 80]:

(setpropertyvalue (tblobjname "layer" "YourLayerName") "Transparency" 80)

EDIT:

So, something like this [untested]:

(defun C:XLA ; = Xref Layer Adjustments (/ laydata layname) (while (setq laydata (tblnext "layer" (not laydata))) (if (wcmatch (setq layname (cdr (assoc 2 laydata))) "*|*"); Xref-dependent? (progn ; then (cond ((= (cdr (assoc 62 laydata)) 2) (setpropertyvalue (tblobjname "layer" layname) "Color" "51") ) ((member (cdr (assoc 62 laydata)) '(7 255)) (setpropertyvalue (tblobjname "layer" layname) "Color" "8") ) ); cond (setpropertyvalue (tblobjname "layer" layname) "Transparency" 80) ); progn ); if ); while (prin1) )

Re: LISP to change specific colors only in XREF layers

lzedCB — Sat, 10 Feb 2024 01:55:27 GMT

This one just worked perfeclty and fast! Thanks a LOT for this mate. Thanks a Zillion!

Re: LISP to change specific colors only in XREF layers

Sea-Haven — Sat, 10 Feb 2024 01:02:44 GMT

Thanks Kent, the only issue I have is generally using Bricscad V20 and setproperty is not a function available, so have to do work arounds. Did crack the get Xdata but stopped as your solution is simpler.