TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: well20152016 on January 15, 2017, 09:10:22 AM
Title:
(A1 blocks and A2 blocks) modify the block color
Post by:
well20152016
on
January 15, 2017, 09:10:22 AM
(A1 blocks and A2 blocks) modify the block color
Title:
Re: (A1 blocks and A2 blocks) modify the block color
Post by:
well20152016
on
January 16, 2017, 07:54:37 PM
Code - Auto/Visual Lisp:
[Select]
(
defun
c:tt
(
)
(
setq
En1
(
nentsel
"
\n
Pick an entity or subEntity: "
)
En2
(
nentsel
"
\n
Pick other entity or subEntity: "
)
Es1
(
entget
(
car
En1
)
)
Es2
(
entget
(
car
En2
)
)
)
(
if
(
cdr
(
assoc
62
Es1
)
)
(
setq
Es1
(
subst
(
cons
62
2
)
(
assoc
62
Es1
)
Es1
)
)
(
setq
Es1
(
append
Es1
(
list
(
cons
62
2
)
)
)
)
)
(
if
(
cdr
(
assoc
62
Es2
)
)
(
setq
Es2
(
subst
(
cons
62
2
)
(
assoc
62
Es2
)
Es2
)
)
(
setq
Es2
(
append
Es2
(
list
(
cons
62
2
)
)
)
)
)
(
entmod
Es1
)
(
entmod
Es2
)
(
LM:Regen
)
(
princ
)
)
(
defun
LM:Regen
(
)
(
vl-load-com
)
(
setq
thisdrawing
(
vla-get-activedocument
(
vlax-get-acad-object
)
)
)
(
vla-Regen
thisdrawing acAllViewports
)
(
princ
)
)
There is no way？ (ssget method)