Question

我才开始学习autolisp编程 我编了一个小程序 一个长方形 以长的中点为基准点，长度为固定2mm 宽度随着比例

的变化而变化
我试着变了个小程序 您看一下有什么问题？系统提示语法错误 我一时半会找不到问题
(defun c : rech ()
(setq p0 (getreal "输入基准点:" ))
(setq p1 (list (-(car p0) 1) (cadr p0)))
(setq chang (getreal "\n长:" 2))
(setq sgao (getreal "\n高:"))
(setq gao ( list (/ (* sgao 1000 ) (getreal "输入比例:" ))))
(setq p2 (polar p1 0 chang ))
(setq p3 (polar p1 (/ pi 2) gao ))
(setq p4 (polar p3 0 chang ))
(command "rectang" p1 p4)
)
谢谢 急用

Answer 1

(defun c:rech ()
;(setq p0 (getreal "输入基准点:" ))
(setq p0 (getpoint "输入基准点:" ))
(setq p1 (list (- (car p0) 1) (cadr p0)))
;(setq chang (getreal "\n长:" 2))
(setq chang (getreal "\n长:"))
(setq sgao (getreal "\n高:"))
; (setq gao ( list (/ (* sgao 1000 ) (getreal "输入比例:" ))))
(setq bl (getreal "输入比例:" ))
(setq gao (/ (* sgao 1000 ) bl))
(setq p2 (polar p1 0 chang ))
(setq p3 (polar p1 (/ pi 2) gao ))
(setq p4 (polar p3 0 chang ))
(command "rectang" p1 p4)
)

追问

长度那边不能把 2 加上吗？ 什么办法能够使长度不用输入 而是在程序中可以得到

追答

将(setq chang (getreal "\n长:"))
改为：
(if (= (setq chang (getreal "\n长:")) nil)
(setq chang 2.0)
)
当提示输入长：时，直接回车即可
有问题可发到dnbcgrass@126.com