Help with making a block layers?

[jinkinglee]

I need help with lisp, so I can make 2 block layers. 1 is front and another is back.

Here is the lisp below:

(command "layer" "make" "Front" "color" "70" "" "ltype" "dot" "" "")
    (COMMAND "PLINE" P_29 P21 P_32 "")
  (COMMAND "LINE" B4 B5 "")

(command "layer" "make" "BACK" "c" "7" "" "") 

(COMMAND "LINE" P28 P27 "")
  (COMMAND "ARC" "" S3B)
  (COMMAND "ARC" "" P23)
  (COMMAND "ARC" "" P31)

this is autocad:

Command: '_layer
Command: block
Specify insertion base point:
Select objects: Specify opposite corner: 21 found

Select objects:

[paullimapa · Accepted solution]

Looks like you got the lisp function working for creating the layers "Front" & "BACK".

I'm not sure what's going on with the PLINE, LINE & ARC codes.

But if you would like a sequence of lisp functions to create a Block with a base boint and create a window selection set of objects, then I would include the following:

; ask for block name

(setq blkname (getstring"\nEnter block name: "))

; ask for base point

(setq blkpt (getpoint"\nSpecify Block insertion base point"))

; ask for selection to include

(princ"\nSelect ojbects: ")

(setq blkss (ssget))

; execute block command

(command"_.Block" blkname blkpt blkss "")

; let user know of block name created

(princ (strcat"\nBlock name " blkname " creation completed."))(princ)

; execute oops command to bring selection back

(command"_.Oops")