(defun c:X1()
(setvar "cmdecho" 0)
(setq en (entsel "Select a LINE:"))
(setq en_data (entget (car en)))
(setq pts (assoc 10 en_data))
(setq pt1 (cdr pts))
(setq px1 (car pt1))
(setq py1 (cadr pt1))
(setq pte (assoc 11 en_data))
(setq pt2 (cdr pte))
(setq px2 (car pt2))
(setq py2 (cadr pt2))
(setq mx (/ (+ px1 px2) 2))
(setq my (/ (+ py1 py2) 2))
(setq mpt (list mx my))
(setq p1 (polar mpt pi 4))
(setq p2 (polar mpt (* pi 1.5) 4))
(command "circle" mpt 2.1)
(command ".change" (entlast) "" "p" "la" "-CB" "")
(command "circle" mpt 3.4)
(command ".change" (entlast) "" "p" "la" "-DD" "")
(command "circle" mpt 4)
(command ".change" (entlast) "" "p" "la" "-DD" "lt" "HIDDEN" "s" "3" "")
(command "break" (entlast) "f" p1 p2)
(prin1)
)
这个程序哪个地方有问题