allowing block preview with lisp

[ReachAndre]

Hey yall,
Here is a lisp that I wrote, I would like to know how to get the block to show up before I pick a pickpoint. (Much like the donut command works, or the normal insert block command works.) How do you do this? Here is the lisp. Im still new so if this is comical please feel free to laugh, I wont be offended.
Thanks in advance everyone

(DEFUN C:S2  (/ Pt1) (while(setq Pt1 (getpoint "nSelect location of sleeve: "))
		       (setq Pt2 (getpoint "Select location of sleeve label: "))(COMMAND "LAYER" "m" "SLV-SAN" "" "INSERT" "SL-2" Pt1 (/ 1 1)"" "" "LAYER" "m" "SLV-TEXT" "" "INSERT" "TEXT2" Pt2 (/ 1 1)"" "" "EXPLODE" "LAST" "" ""))
(princ))

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[dfitzpatrick]

I'm not too long at this kind of thing either but I'll give it a shot.

(setq cl (getvar "clayer"))

(if (not (tblsearch "layer" "SLV-SAN"))
(command "layer" "new" "SLV-SAN" "colour" "2" "SLV-SAN" "")
)

(setvar "clayer" "SLV-SAN")

(command "._-insert" "SL-2" (getpoint (strcat "\nSelect location of sleeve: ")) "1" "1" "0")

(if (not (tblsearch "layer" "SLV-TEXT"))
(command "layer" "new" "SLV-TEXT" "colour" "2" "SLV-TEXT" "")
)

(setvar "clayer" "SLV-TEXT")

(command "._-insert" "SLV-TEXT" (getpoint (strcat "\Select location of sleeve label: ")) "1" "1" "0")

(setvar "clayer" cl)

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[tedg]

Hey yall,
Here is a lisp that I wrote, I would like to know how to get the block to show up before I pick a pickpoint. (Much like the donut command works, or the normal insert block command works.) How do you do this? Here is the lisp. Im still new so if this is comical please feel free to laugh, I wont be offended.
Thanks in advance everyone

(DEFUN C:S2  (/ Pt1) (while(setq Pt1 (getpoint "nSelect location of sleeve: "))
		       (setq Pt2 (getpoint "Select location of sleeve label: "))(COMMAND "LAYER" "m" "SLV-SAN" "" "INSERT" "SL-2" Pt1 (/ 1 1)"" "" "LAYER" "m" "SLV-TEXT" "" "INSERT" "TEXT2" Pt2 (/ 1 1)"" "" "EXPLODE" "LAST" "" ""))
(princ))

Here's a quick fix. This doesn't promt you for the "location of sleeve" or "sleeve label" but it allows you to see the block before you pick the insertion point.

Also, if the block has attributes, it allows you to fill in the fields.
Why do you explode the second block? When exploded, it reverts to it's original layer, and if you're using attributes, they become attribute "definintions", unless you're using nested blocks.

(DEFUN C:S2 ()
(COMMAND "LAYER" "m" "SLV-SAN" "" "INSERT" "SL-2" pause (/ 1 1)"" "" "LAYER" "m" "SLV-TEXT" "" "INSERT" "SLV-TEXT" pause (/ 1 1)"" "" "EXPLODE" "LAST" "" "")
(princ))

Ted

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[dfitzpatrick]

Woops, I just realised that what I suggested wont preview the block. The only other thing I can think of is to use pause as Ted suggested.

[kennet.sjoberg]

Check the command prompt options for the insert command
Specify insertion point or [Basepoint/Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:

Then just reorder the options like this :

(command "._-insert" "MyBlock" "Rotate" 0 "Scale" 1 )

. . . and preview the block before inserting it

: ) Happy Computing !

kennet