Welcome,
Guest
. Please
login
or
register
.
1 Hour
1 Day
1 Week
1 Month
Forever
Login with username, password and session length
News:
Home
Help
Login
Register
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
(A1 blocks and A2 blocks) modify the block color
« previous
next »
Print
Pages: [
1
] |
Go Down
Author
Topic: (A1 blocks and A2 blocks) modify the block color (Read 1091 times)
0 Members and 1 Guest are viewing this topic.
well20152016
Newt
Posts: 130
(A1 blocks and A2 blocks) modify the block color
«
on:
January 15, 2017, 09:10:22 AM »
(A1 blocks and A2 blocks) modify the block color
Logged
well20152016
Newt
Posts: 130
Re: (A1 blocks and A2 blocks) modify the block color
«
Reply #1 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)
«
Last Edit: January 16, 2017, 08:10:18 PM by well20152016
»
Logged
Print
Pages: [
1
] |
Go Up
« previous
next »
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
(A1 blocks and A2 blocks) modify the block color