求救

shl1980912

(defun  c: men()
  (setq p1 (getpoint "first point:"))
  (setq w (getdist "wide:"))
  (setq h (getdist "hight:"))
  (setq p2 (list (+ (car p1) w) (cadr p1)))
  (setq p3 (list (+ (car p1) w) (+ (cadr p1) h)))
  (setq p4 (list (car p1) (+ (cadr p1) h)))
  (command "line" p1 p2 p3 p4 "c")
)

这程序有语法错误，可能还有其它问题，我是新手，哪位大侠帮我改改，谢谢

dqs007

哎呀!怎么说你呢????

(defun  c:men();这里为什么要用空格呢???????随便调试一下就知道了啊
  (setq p1 (getpoint "first point:"))
  (setq w (getdist "wide:"))
  (setq h (getdist "hight:"))
  (setq p2 (list (+ (car p1) w) (cadr p1)))
  (setq p3 (list (+ (car p1) w) (+ (cadr p1) h)))
  (setq p4 (list (car p1) (+ (cadr p1) h)))
  (command "line" p1 p2 p3 p4 "c")
)

shl1980912

谢谢

但 defun 格式不是这样吗?

楼上的能不能帮忙把正确的程式写一下,

shl1980912

谢谢

又试了一次，终于好了