yang686526

[求助]简单图形程序
www.dimcax.com
[求助]简单图形程序
以常要画这些零件，小弟初学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 "")
)
但加载后运行，两个矩形是画出来了，可是孔的位置不对，请各位帮帮忙，问题出在哪里？谢谢!
d
关闭补捉再试
d
可以了
还想问一下，怎么写关闭捕捉的程序语句
d
(setvar "osmode" 0)
or
(setvar "osmode" (boole 7 (getvar "osmode") 16384))
d
搞定了,谢谢各位大虾
d