[LISP]

tcy200489

高手请教,以下程序有什么问题

(defun c:rect2(p1 p2 p3 p4)
(graphscr)
 (setvar"cmdecho" 1)
 (prompt"rect2 command draws a rectangle")(terpri)
 (setq p1(getpoint "enter first corner") (terpri)
 (setq p3(getcorner p1 "enter opposite corner")(terpri)
 (setq p2(list car p3)(cadr p1)))
 (setq p4(list(car p1)(cadr p3)))
 (command"line" p1 p2 p3 p4 "c")
 (setval"cmdecho" 1)
 (princ)
)

tcy200489

(defun c:rect2(p1 p2 p3 p4)
(graphscr)
 (setvar"cmdecho" 1)
 (prompt"rect2 command draws a rectangle")(terpri)
 (setq p1(getpoint "enter first corner") (terpri)
 (setq p3(getcorner p1 "enter opposite corner")(terpri)
 (setq p2(list (car p3)(cadr p1)))
 (setq p4(list(car p1)(cadr p3)))
 (command"line" p1 p2 p3 p4 "c")
 (setval"cmdecho" 1)
 (princ)
)

tcy200489

请高手指教下列程序到底出了什么问题?怎么运行不了?

(defun c:rect2(p1 p2 p3 p4)
(graphscr)
 (setvar"cmdecho" 1)
 (prompt"rect2 command draws a rectangle")(terpri)
 (setq p1(getpoint "enter first corner") (terpri)
 (setq p3(getcorner p1 "enter opposite corner")(terpri)
 (setq p2(list (car p3)(cadr p1)))
 (setq p4(list(car p1)(cadr p3)))
 (command"line" p1 p2 p3 p4 "c")
 (setval"cmdecho" 1)
 (princ)
)

rongyifei

基本上有四处错误:

1.(defun c:rect2(p1 p2 p3 p4)应写成:.(defun c:rect2(/ p1 p2 p3 p4);

2.(setq p1(getpoint "enter first corner") 少右括号,

应写成setq p1(getpoint "enter first corner"));

3.(setq p3(getcorner p1 "enter opposite corner")少右括号,

应写成setq p3(getcorner p1 "enter opposite corner"));

4.(setval"cmdecho" 1)
应写成setvar"cmdecho" 1).

phoenixdjq

(defun c:rect2 (p1 p2 p3 p4) 这句话要改成这样的

(defun c:rect2 (/ p1 p2 p3 p4)

(setval"cmdecho" 1)这句话函数错了,应该是setvar