Custom Block Inserts

Right...

Perhaps someone can help me with this...

I'm trying to create a series of shortcuts via Lisp Routines to insert a deseried block upon command. I dont need it to scale upon insert, just with 'Pick Point on Screen' With unform scale at 1,1,1.

(defun c:LVL( / )
(command "INSERT" "Z:\CAD Systems\CAD Block List\HPS_Level.dwg")
)
(princ)

Does .LSP not allow for back slashes?

"CAD SystemsCAD Block ListHPS_Level.dwg": Can't find file in search

try with forward slashes or double backslashes instead.

A single backslash is used to pass a escape character, such as the newline character: "\n" or tab: "\t", hence, if you need to pass a backslash, you need to mark it as a literal using another backslash: "\\".

So the path would be:

(defun c:LVL ( / )
 (command "_.-INSERT" "Z:\\CAD Systems\\CAD Block List\\HPS_Level.dwg")
)
(princ)

Nice!

How can i use the below values in this lisp routine?

Unit-scaling inserted database...

Units: Millimeters Conversion: 1.0000

Specify insertion point or [basepoint/Scale/X/Y/Z/Rotate]: nil

Specify insertion point or [basepoint/Scale/X/Y/Z/Rotate]:

Enter X scale factor, specify opposite corner, or [Corner/XYZ] :

Enter Y scale factor :

Specify rotation angle :

Include a 'pause':

(defun c:LVL ( / )
 (command "_.-INSERT" "Z:\\CAD Systems\\CAD Block List\\HPS_Level.dwg" pause "" "" "")
 (princ)
)

You're just too good at this :F

........