我编写了简单的lisp代码
嗨，亲爱的：（我写了lisp代码，画了2个矩形和4个点，但得到错误，请检查我的代码，并告诉我哪里是问题？
谢谢
我在我的代码中解决了问题，但无法在这里修改lispp代码，很遗憾挂断了。
2电气角度。LSP 首先你需要知道如何画一个矩形，然后把你学到的应用到两个矩形，这是一个简单的代码来学习如何画矩形，试着学习这个代码
(defun c:drawrec (/ LEN P1 P2 POINT WIDTH)
(setq len (getdist "\nEnter Length: "))
(setq Width (getdist "\nEnter Width: "))
(setq point (getpoint "\nSpecify point: "))
(setq p1 point
p2 (list (+ (car point) len) (+ (cadr point) Width))
)
(command "rectang" p1 p2)
(princ)
)
HTH公司
M巴德兰 谢谢
使用while函数解决了我的问题。 也许以下内容会有所帮助：
(defun c:testr ( / i l p )
(setq i 1)
(while (and (< i 5) (setq p (getpoint (strcat "\nPoint " (itoa i) ": "))))
(setq l (cons p l)
i (1+ i)
)
)
(if (= 5 i)
(repeat 2
(command "_.rectang" "_non" (car l) "_non" (cadr l))
(setq l (cddr l))
)
)
(princ)
) 尊敬的lee mac：
我的目标完全一样
非常感谢你的帮助 非常欢迎你，哈米德·西夫。
页:
[1]