Site setting out information

[woodman78]

I'm sorry but I don't understand what you are asking?

They way we work here is to put a block at each point to be setout.

Number the points to be setout.

Then take all coords out to excel to go to the surveying team.

[woodman78]

I decided to create a block of the block with the attrib and a loop to insert the block into the drawing. Then a selection set of all those blocks and explode them. It probably is a round about way but I've been told many times I make things difficult for myself. I'm working with what I know.

 

My problem is that the explode command runs but then crashes. I presume because the selection set isn't been created. Can anyone help?

(defun c:setoutinsert (/ SUCL SUCR SUOM  SUSM SUAB SUAD INPT)

 (setq SUOM (getvar "orthomode"))
 (setq SUSM (getvar "osmode"))
 (setq SUAB (getvar "angbase"))
 (setq SUAD (getvar "angdir"))
 (setq SUCL (getvar "clayer"))
 (setq SUCR (getvar "cecolor"))

 (command "_.-layer" "_M" "CCC_LAYOUT_Setting_Out_info" "_C" "1" "CCC_LAYOUT_Setting_Out_info" "_LW" "0.3" "CCC_LAYOUT_Setting_Out_info" "" )
 (command "_-color"  "bylayer")
 (command "._-linetype"  "s"  "bylayer" "")

 (setvar "angbase" 0.0000)
 (setvar "angdir"  0)
 (setvar "orthomode" 0)
 (setvar "osmode" 16383)

   (while
    (setq INPT (getpoint "\Get insertion point:"))
     (command "_.insert" "set_out_info_1" INPT "1" "1" "0")
   )

(setq setoutblocks (ssget "X" (list '(0 . "INSERT") (cons 2 "set_out_info_1"))))
(command "Explode" setoutblocks "")

 (setvar "orthomode" SUOM)
 (setvar "osmode"    SUSM)
 (setvar "angbase"   SUAB)
 (setvar "angdir"    SUAD)
 (setvar "clayer"    SUCL)
 (setvar "cecolor"   SUCR)
 (princ)
)

 

This is the error I get:

Specify insertion point or [basepoint/Scale/X/Y/Z/Rotate]:
Enter X scale factor, specify opposite corner, or [Corner/XYZ] <1>: 1 Enter Y 
scale factor <use X scale factor>: 1
Specify rotation angle <0>: 0
Command: Get insertion point:
Explode
Select object:
Command: SETOUTINSERT Unknown command "SETOUTINSERT".  Press F1 for help.

[woodman78]

Just found the "qaflags" variable and got sorted. Thanks anyway.