Burst'ing my interior Elevation command
Okay, so I've got my interior elevation marker set up so that when I hit my icon, I place the marker, provide the tags/sheet number. I want the command to burst the entity at the end, so in a case where I wouldn't be using one or more of the elevation markers, they can be deleted... this is what I have so far- It works great, but my Burst is messed up- I have to return, and then select the entity for the command to finish- How can I get the command to run completely? Thanks in advance, Justin.
Code:
(Defun C:IntElev (/ Ent1 Layname Laycolor LayLinetype)
(setq Layname "z-anno-symb")
(setq Laycolor "12")
(setq LayLinetype "Continuous")
(laycheck)
(Command "insert"
"IntrElev.1"
pause
(getvar "Dimscale")
""
""
pause
pause
pause
pause
pause
)
(setq Ent1 (entlast))
(command "ddatte" Ent1)
(c:burst "" "Ent1" "")
)
RE: Burst'ing my interior Elevation command
originally I was running (command "burst" Ent1 "")
but when I tried to run the string, it fails because Burst is not a command, it is a Lisp routine. -part of the express tools set
(autocad 2007, sp2)
RE: Burst'ing my interior Elevation command
Try:
Code:
(sssetfirst nil (ssget "_L"))
(c:burst)
RE: Burst'ing my interior Elevation command
Quote:
Originally Posted by Tom Beauford
Try:
Code:
(sssetfirst nil (ssget "_L"))
(c:burst)
perfect- thank you!! what is that doing?
RE: Burst'ing my interior Elevation command
Quote:
Originally Posted by justinbalogjones
perfect- thank you!! what is that doing?
From Autocad help:
sssetfirst
Sets which objects are selected and gripped
(sssetfirst gripset[pickset])
The gripset argument is ignored; the selection set of objects specified by pickset are selected and gripped.
Back in r14 Objects could be gripped without being selected. No longer possible the gripset should always be nil when using sssetfirst in routines.
Enter (sssetfirst nil (ssget "_L")) at the command line and it will deselect all and select the last object. Works with any selection set.