Question

auto lisp列表错误一个绘制矩形代码（）初学）

加载代码后列表错误，初学找不到原因，大神请帮忙看看！感谢！
(defun c: rect(/ p1 p2 p3 p4) ;p1、p2、p3、p4是局部变元
(setq p1 (getpoint"\n 输入矩形的一个角点：")）
(setq p3 (getcorner pl "\n 输入矩形的另一个角点："))
(setq p2 (list (car p3) (cadr p1)))
(setq p4 (list (car p1) (cadr p3)))
(command "pline" p1 p2 p3 p4 "c")
)

Answer 1

可能是这句出问题
(setq file (getfiled "选定点位数据文件:" "e:/" "txt" 0)

我用过的两个例子
(setq b_fil1 (getfiled "选择清单文件" "bom.txt" "txt" 4))
(setq m_fil2 (getfiled "Select the MB Location file" "mb.ini" "ini" 8))
"e:/" 这里应该是缺省文件名，后面的“0”我没用过，你再查一下getfiled的使用方式