; use to draw the circle of the points

(DEFUN C:BS ()
(PROGN
(COMMAND "OSNAP" "NONE")
(COMMAND "LAYER" "SET" "BATU" ""))
(SETQ P (SSGET))
(IF P (PROGN
(SETQ L 0 N (SSLENGTH P) CMDE (GETVAR "CMDECHO"))
(SETVAR "CMDECHO" 0)
(WHILE (< L N)
(IF (= "LINE" (CDR (ASSOC 0 (SETQ E (ENTGET (SSNAME P L))))))
(PROGN
(SETQ PT (CDR (ASSOC 10 E)))
(COMMAND "INSERT" "*BATU" PT "" "")))
(SETQ L (1+ L)))))
(TERPRI)
(SETVAR "CMDECHO" CMDE))