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:
Multi-leaders without leaders..
« previous
next »
Print
Pages: [
1
] |
Go Down
Author
Topic: Multi-leaders without leaders.. (Read 903 times)
0 Members and 1 Guest are viewing this topic.
cyclops
Newt
Posts: 21
Multi-leaders without leaders..
«
on:
April 09, 2021, 10:18:54 AM »
Help,
Is there lisp that can find Multi-leaders without leaders, then explode them?
Thank
Cy
Logged
It's 'O'Neill', with three L's!!!! (Jack O'Neill)
ronjonp
Needs a day job
Posts: 7526
Re: Multi-leaders without leaders..
«
Reply #1 on:
April 09, 2021, 11:52:06 AM »
Maybe this to get the selection:
Code - Auto/Visual Lisp:
[Select]
(
defun
c:foo
(
/
s
)
(
if
(
setq
s
(
ssget
"_X"
'
(
(
0
.
"MULTILEADER"
)
)
)
)
(
progn
(
foreach
e
(
mapcar
'
cadr
(
ssnamex
s
)
)
(
or
(
vl-catch-all-error-p
(
vl
-
catch
-
all
-
apply
'vla
-
getleaderindex
(
list
(
vlax
-
ename
->
vla-object
e
)
0
)
)
)
(
ssdel
e s
)
)
)
(
sssetfirst
nil
s
)
)
)
(
princ
)
)
Logged
Windows 11 x64 - AutoCAD /C3D 2023
Custom Build PC
Print
Pages: [
1
] |
Go Up
« previous
next »
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
Multi-leaders without leaders..