我想封闭末点和起点,不能封闭。请高手帮忙看看程序错在哪儿?
(defun c:yx()
(setvar "cmdecho" 0) (setq d1 0)
(setq pt (getpoint "\n起点:")) (setq pttt pt) (while pt (setq pt1 (getpoint pt "\n下一点:"))
(if ( = d1 0) (setq d1 (distance pt pt1)) )
(if(= pt1 pttt) (setq d1 (distance pt pt1)) )
(setq d2 (/ d1 (sqrt 3))) (setq ang1 (angle pt pt1)) (setq ang (+ ang1 (/ pi 6))) (setq pty (polar pt ang d2)) (setq ptx (polar pt ang1 d1)) (command "arc" pt pty ptx "") (setvar "osmode" 695) (setq pt ptx) ) (setvar "cmdecho" 1)
(prin1) ) |