我编写了简单的lisp代码

hamidciv · 发表于 2022-7-5 22:24:07

嗨，亲爱的
：（我写了lisp代码，画了2个矩形和4个点，但得到错误，请检查我的代码，并告诉我哪里是问题？
谢谢
我在我的代码中解决了问题，但无法在这里修改lispp代码，很遗憾挂断了。
2电气角度。LSP

mostafa badran · 发表于 2022-7-5 22:43:20

首先你需要知道如何画一个矩形，然后把你学到的应用到两个矩形，这是一个简单的代码来学习如何画矩形，试着学习这个代码

(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巴德兰

hamidciv · 发表于 2022-7-5 22:57:11

谢谢
使用while函数解决了我的问题。

Lee Mac · 发表于 2022-7-5 23:02:29

也许以下内容会有所帮助：

copy

(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)
)

hamidciv · 发表于 2022-7-5 23:23:38

尊敬的lee mac：
我的目标完全一样
非常感谢你的帮助

Lee Mac · 发表于 2022-7-5 23:35:47

非常欢迎你，哈米德·西夫。

[编程交流] 我编写了简单的lisp代码

发表回复

精选推荐