|
刚学习lisp,在执行
(setq p1 (getpoint "\n输入矩形的一个点:")) (setq p3 (getcorner p1 "\n输入矩形的另一个角点:")) (setq p2(list (car p3)(cadr p1))) (setq p4(list (car p1)(cadr p3))) (command "pline" p1 p2 p3 p4 "c")
后出现
输入矩形的一个点:(0,0) Can't reenter LISP. Invalid point.
不知道是lisp还需要设置环境呢还是其他的,希望论坛的高手能帮解决下 |