TheSwamp
CAD Forums => CAD General => Topic started by: MSTG007 on September 22, 2015, 08:22:01 AM
Title:
Change Xref Layer Linetype
Post by:
MSTG007
on
September 22, 2015, 08:22:01 AM
Is there a way to change an xref layer name linetype using a script file?
Title:
Re: Change Xref Layer Linetype
Post by:
ronjonp
on
September 22, 2015, 08:37:56 AM
Yes .. use -layer, or vla-put-linetype, or entmod. Just make sure the linetype is loaded first.
Title:
Re: Change Xref Layer Linetype
Post by:
MSTG007
on
September 22, 2015, 08:47:22 AM
So if I have a layer that is in a xref called SAWCUT that has a linetype that is HIDDEN. My script would look life:
Code:
[Select]
-la
s
*|*sawcut
lt
continuous
When I do that I get an invalid layer name.
Title:
Re: Change Xref Layer Linetype
Post by:
ronjonp
on
September 22, 2015, 10:02:52 AM
Code - Auto/Visual Lisp:
[Select]
(
defun
foo
(
pat lt
/
l n
)
(
while
(
setq
l
(
tblnext
"layer"
(
null
l
)
)
)
(
if
(
and
(
wcmatch
(
strcase
(
setq
n
(
cdr
(
assoc
2
l
)
)
)
)
(
strcase
pat
)
)
(
setq
n
(
tblobjname
"layer"
n
)
)
)
(
entmod
(
subst
(
cons
6
lt
)
(
assoc
6
(
entget
n
)
)
(
entget
n
)
)
)
)
)
)
;; (foo "*|*sawcut" "Continuous")
Title:
Re: Change Xref Layer Linetype
Post by:
MSTG007
on
September 22, 2015, 10:35:11 AM
Awesome Job! Thank you a lot!
Title:
Re: Change Xref Layer Linetype
Post by:
ronjonp
on
September 22, 2015, 11:16:15 AM
:)