[求助]简单图形程序

xlin10000

以常要画这些零件，小弟初学lisp程序，写了一个如下

(defun c:ss ()
(setq a1 (getpoint "请输入角点:"))
(setq ll (getdist a1 "\n 请输入长度:"))
(setq ww (getdist a1 "\n 请输入宽度:"))
(setq hh (getdist a1 "\n 请输入高度:"))

(setq a4 (polar a1 0 ll))
(setq d4 (polar a4 (/ pi 2) ww))
(setq d1 (polar d4 pi ll))
(command "rectang" a1 d4 "")

(setq a5 (polar a1 0 (+ ll 80)))
(setq a7 (polar a5 0 hh))
(setq d7 (polar a7 (/ pi 2) ww))
(setq d5 (polar d7 pi hh))
(command "rectang" a5 d7 "")

(setq a2 (polar a1 0 20))
(setq b2 (polar a2 (/ pi 2) (/ (- ww 64) 2)))
(command "circle" b2 5 "")

(setq d2 (polar d1 0 20))
(setq c2 (polar d2 (/ (* 3 pi) 2) (/ (- ww 64) 2)))
(command "circle" c2 5 "")

(setq a3 (polar a4 pi 20))
(setq b3 (polar a3 (/ pi 2) (/ (- ww 64) 2)))
(command "circle" b3 5 "")

(setq d3 (polar d4 pi 20))
(setq c2 (polar d3 (/ (* 3 pi) 2) (/ (- ww 64) 2)))
(command "circle" c2 5 "")

(setq a6 (polar a5 0 (/ hh 2)))
(setq b6 (polar a6 (/ pi 2) (/ (- ww 64) 2)))
(command "circle" b6 5 "")

(setq d6 (polar d5 0 (/ hh 2)))
(setq c6 (polar d6 (/ (* 3 pi) 2) (/ (- ww 64) 2)))
(command "circle" c6 5 "")

)

但加载后运行，两个矩形是画出来了，可是孔的位置不对，请各位帮帮忙，问题出在哪里？谢谢!

Andyhon

关闭补捉再试

xlin10000

谢谢，可以了

还想问一下，怎么写关闭捕捉的程序语句

Andyhon

(SetVar "OsMode" 0)
or
(setvar "OSMODE" (boole 7 (getvar "OSMODE") 16384))

xlin10000

搞定了,谢谢各位大虾