Lisp to change xref layers by a set of given layer name

[cadd4la]

Hi everyone,

I am looking to have a lisp program that will change the Color, linetype,and the lineweight in the layer properties manager of a xref drawing from a give list.

Background.
We use a irrigation consultant that draws their irrigation plan in it own file then xref that plan into our file that has our titleblock, and the base files that make up the site plan. The problem is that we use .ctb for our pens and they use .stb file, so they have to go into the layer properties manager and change the layer setting manual to what we use if we had done the irrigation plan.

Therefore, I would like to have the lisp change the irrigation consultant layer Color, linetype,and the lineweight to a set of layer Color, linetype,and the lineweight that we use automatically, so they can use our .ctb file

an example of these set layers to be used in the lisp to change the layer properties in the final output file not the original file:

L-PIPES_LATS color 13 Linetype Continuous Lineweight Default
L-PIPES_MAINLINE color 2 Linetype DASHDOT Lineweight Default
L-PIPES_SLEEVING color 2 Linetype DASHED Lineweight Default

Thanks for your,

Kyle C.

[Mike.Perry]

Hi

Look into the _.LayTrans command.

Have a good one, Mike

[cadd4la]

Mike,

I was looking for a lisp that could do it by reading the settings in a empty .dwg file, your way would take to long to input the data.

The layer names would be the same.

Hi

Look into the _.LayTrans command.

Have a good one, Mike

[Mike.Perry]

I was looking for a lisp that could do it by reading the settings in a empty .dwg file, your way would take to long to input the data.

The layer names would be the same.

Hi

Using your original example, you would only need to set it up once, then save it as a .DWS file for later use when using the Irrigation Consultant's drawings.

Either way LISP routine OR _.LayTrans route requires "you" to initially set-up the required Layer / Color / Linetype / etc mapping required for your needs.

Have a good one, Mike

[cadd4la]

Mike,

I tried _.LayTrans I don't see any of the layers that are xrefed into the drawing under the translate from box all I see is the layers that are in the drawing.

I am looking to have a lisp program that will change the Color, linetype,and the lineweight in the layer properties manager of a xref drawing from a give list.

Background.
We use a irrigation consultant that draws their irrigation plan in it own file then xref that plan into our file that has our titleblock, and the base files that make up the site plan. The problem is that we use .ctb for our pens and they use .stb file, so they have to go into the layer properties manager and change the layer setting manual to what we use if we had done the irrigation plan.

Therefore, I would like to have the lisp change the irrigation consultant layer Color, linetype,and the lineweight to a set of layer Color, linetype,and the lineweight that we use automatically, so they can use our .ctb file

an example of these set layers to be used in the lisp to change the layer properties in the final output file not the original file:

L-PIPES_LATS color 13 Linetype Continuous Lineweight Default
L-PIPES_MAINLINE color 2 Linetype DASHDOT Lineweight Default
L-PIPES_SLEEVING color 2 Linetype DASHED Lineweight Default

Thanks for your,

Kyle C.

Hi

Using your original example, you would only need to set it up once, then save it as a .DWS file for later use when using the Irrigation Consultant's drawings.

Either way LISP routine OR _.LayTrans route requires "you" to initially set-up the required Layer / Color / Linetype / etc mapping required for your needs.

Have a good one, Mike

Kyle C.[/

[Mike.Perry]

I tried _.LayTrans I don't see any of the layers that are xrefed into the drawing under the translate from box all I see is the layers that are in the drawing.

Hi

that will teach me for not carrying out proper testing... I assumed (and we all know, one should never assume) Xref Layers would be listed in "Layer Translator" dialog box.

Ok! you could still use _.LayTrans just need to set it up within the actual Irrigation Consultant's (Xref) drawing file.

OR

Utilizing Layer States would work very well in this situation.

Have a good one, Mike

[cadd4la]

OK, so nobody was able to write a code for what I needed, so now after days of looking through different codes that did something that I need (the base code I used changed all xref to a given color) and a few hours of trying to change the code to do what I needed this is what I got.

Now, I would like the experts to take a look at the code and see if you can improve on it to run smoother, I still need to add about twenty more layers.

Thank you for the help

Kyle C.

(defun c:x-I96(/ xr1 xr2 xr3 xr4 xr5 xr6 tx1 tb1)
(setvar "cmdecho" 0)
(if (setq xr1 (entsel "nSelect xref to change to IDS standards for a 1/8'' drawing: "))
(progn
(setq xr2 (entget (car xr1)))
(setq tx1 (cdr (assoc 0 xr2)))
(if (= tx1 "INSERT")
(progn
(setq xr3 (cdr (assoc 2 xr2)))
(setq xr4 (tblsearch "block" xr3))
(if (setq xr5 (cdr (assoc 1 xr4)))
(progn
;;(setq xr6 (strcat xr3 "|*"))
(setq xr6 (strcat xr3 "|L-TEXTS_LEGEND"))
(command "-layer" "c" "2" xr6 "")
(command "-layer" "lt" "Continuous" xr6 "")
(command "-layer" "lw" "Default" xr6 "")
(setq xr7 (strcat xr3 "|L-equpt_meter"))
(command "-layer" "c" "1" xr7 "")
(command "-layer" "lt" "Dashed" xr7 "")
(command "-layer" "lw" "Default" xr7 "")
(setq xr8 (strcat xr3 "|L-TEXTS_NOTES"))
(command "-layer" "c" "3" xr8 "")
(command "-layer" "ltype" "Phantom" xr8 "")
(command "-layer" "lw" "Default" xr8 "")
)
(prompt (strcat "n""xr3"" is not an X-Ref."))
)
)
(prompt "nNo External Reference selected")
)
)
)
(setvar "cmdecho" 1)
(princ)
)

[Opie]

Kyle,

Why not create a sub-routine to do your changes to your layers and call it with an included list of things to change.

In place of this

(setq xr6 (strcat xr3 "|L-TEXTS_LEGEND"))
(command "-layer" "c" "2" xr6 "")
(command "-layer" "lt" "Continuous" xr6 "")
(command "-layer" "lw" "Default" xr6 "")

Use something along the lines of this

(defun correctlayer ( layername color ltype lweight / )
(command "-layer" "c" color layername "lt" ltype layername "lw" lweight layername "")
)

And then call the sub-routine like this

(correctlayer (list "|L-TEXTS_LEGEND" "2" "Continuous" "Default"))

This could reduce your code to this

(defun C:X-I96 (/ CORRECTLAYER TX1 XR1 XR2 XR3 XR4 XR5)
  (defun CORRECTLAYER (LAYERNAME COLOR LTYPE LWEIGHT /)
    (command "-layer" "c" COLOR	LAYERNAME "lt" LTYPE LAYERNAME "lw" LWEIGHT LAYERNAME "")
  )
  (setvar "cmdecho" 0)
  (if (setq XR1	(entsel
		  "nSelect xref to change to IDS standards for a 1/8'' drawing: "
		)
      )
    (progn
      (setq XR2 (entget (car XR1)))
      (setq TX1 (cdr (assoc 0 XR2)))
      (if (= TX1 "INSERT")
	(progn
	  (setq XR3 (cdr (assoc 2 XR2)))
	  (setq XR4 (tblsearch "block" XR3))
	  (if (setq XR5 (cdr (assoc 1 XR4)))
	    (progn
	      ;;(setq xr6 (strcat xr3 "|*"))
	      (CORRECTLAYER
		(list (strcat XR3 "|L-TEXTS_LEGEND") "2" "Continuous" "Default")
	      )
	      (CORRECTLAYER
		(list (strcat XR3 "|L-equpt_meter") "1" "Dashed" "Default")
	      )
	      (CORRECTLAYER
		(list (strcat XR3 "|L-TEXTS_NOTES") "3" "Phantom" "Default")
	      )
	    )
	    (prompt (strcat "n" "xr3" " is not an X-Ref."))
	  )
	)
	(prompt "nNo External Reference selected")
      )
    )
  )
  (setvar "cmdecho" 1)
  (princ)
)

If you are going to repeat a series of identical steps, with only changes to variables (such as your changing the layers, colors, etc.), I would recommend you create a sub-routine for those steps. Try breaking down the big routine into smaller steps.

HTH

[cadd4la]

Richard,

Sorry, there is a problem with the code, this is what I get when I run your code on the same drawing I check my code on.

Command: x-I96
nSelect xref to change to IDS standards for a 1/8'' drawing: ; error: too few
arguments

Kyle,

Why not create a sub-routine to do your changes to your layers and call it with an included list of things to change.

In place of this

(setq xr6 (strcat xr3 "|L-TEXTS_LEGEND"))
(command "-layer" "c" "2" xr6 "")
(command "-layer" "lt" "Continuous" xr6 "")
(command "-layer" "lw" "Default" xr6 "")

Use something along the lines of this

(defun correctlayer ( layername color ltype lweight / )
(command "-layer" "c" color layername "lt" ltype layername "lw" lweight layername "")
)

And then call the sub-routine like this

(correctlayer (list "|L-TEXTS_LEGEND" "2" "Continuous" "Default"))

This could reduce your code to this

(defun C:X-I96 (/ CORRECTLAYER TX1 XR1 XR2 XR3 XR4 XR5)
(defun CORRECTLAYER (LAYERNAME COLOR LTYPE LWEIGHT /)
(command "-layer" "c" COLOR	LAYERNAME "lt" LTYPE LAYERNAME "lw" LWEIGHT LAYERNAME "")
)
(setvar "cmdecho" 0)
(if (setq XR1	(entsel
		 "nSelect xref to change to IDS standards for a 1/8'' drawing: "
		)
)
(progn
(setq XR2 (entget (car XR1)))
(setq TX1 (cdr (assoc 0 XR2)))
(if (= TX1 "INSERT")
	(progn
	 (setq XR3 (cdr (assoc 2 XR2)))
	 (setq XR4 (tblsearch "block" XR3))
	 (if (setq XR5 (cdr (assoc 1 XR4)))
	 (progn
	 ;;(setq xr6 (strcat xr3 "|*"))
	 (CORRECTLAYER
		(list (strcat XR3 "|L-TEXTS_LEGEND") "2" "Continuous" "Default")
	 )
	 (CORRECTLAYER
		(list (strcat XR3 "|L-equpt_meter") "1" "Dashed" "Default")
	 )
	 (CORRECTLAYER
		(list (strcat XR3 "|L-TEXTS_NOTES") "3" "Phantom" "Default")
	 )
	 )
	 (prompt (strcat "n" "xr3" " is not an X-Ref."))
	 )
	)
	(prompt "nNo External Reference selected")
)
)
)
(setvar "cmdecho" 1)
(princ)
)

If you are going to repeat a series of identical steps, with only changes to variables (such as your changing the layers, colors, etc.), I would recommend you create a sub-routine for those steps. Try breaking down the big routine into smaller steps.

HTH

[Opie]

Richard,

Sorry, there is a problem with the code, this is what I get when I run your code on the same drawing I check my code on.

Kyle,

Sorry about that. I wasn't thinking very well.

remove the items in red in your main function when calling the sub-routine

(correctlayer (list "|L-TEXTS_LEGEND" "2" "Continuous" "Default"))