Question

lisp 开发cad二次开发中遇到的问题，菜鸟一枚，求大神指点 这到底是为什么？？？？？

_$
; 错误: DEFUN 语法错误: (: C: TRIANGL nil)
_$
; 错误: no function definition: DEFUN:
_$
命令:
_$
; 错误: DEFUN 语法错误: (: C :TRIANGL nil (SETQ P1 (GETPOINT " n 选择第一点：")) (SETQ P2 (GETPOINT " n 选择第2点：")) (SETQ P3 (GETPOINT " n 选择第3点：")) (COMMAND "line" P1 P2 P3 "C"))
_$
; 错误: DEFUN 语法错误: (: C: TRIANGL nil (SETQ P1 (GETPOINT " n 选择第一点：")) (SETQ P2 (GETPOINT " n 选择第2点：")) (SETQ P3 (GETPOINT " n 选择第3点：")) (COMMAND "line" P1 P2 P3 "C"))
_$
; 错误: DEFUN 语法错误: (C :TRIANGL nil (SETQ P1 (GETPOINT " n 选择第一点：")) (SETQ P2 (GETPOINT " n 选择第2点：")) (SETQ P3 (GETPOINT " n 选择第3点：")) (COMMAND "line" P1 P2 P3 "C"))
_$
; 错误: DEFUN 语法错误: (C: TRIANGL nil (SETQ P1 (GETPOINT " n 选择第一点：")) (SETQ P2 (GETPOINT " n 选择第2点：")) (SETQ P3 (GETPOINT " n 选择第3点：")) (COMMAND "line" P1 P2 P3 "C"))
_$
; 错误: DEFUN 语法错误: (: C :TRIANGL nil (SETQ P1 (GETPOINT " n 选择第一点：")) (SETQ P2 (GETPOINT " n 选择第二点：")) (SETQ P3 (GETPOINT " n 选择第三点：")) (COMMAND "line" P1 P2 P3 "C"))
_$
; 错误: no function definition: DEFUNC
_$
_$
; 错误: no function definition: DEFUN:
_$
1 表格 从 #<editor "C:/Documents and Settings/Administrator/桌面/齿轮泵/tmp1.LSP"> 加载
_$

新问题
求解

Answer 1

正确代码应该是这样的
(defun C:triangl()
(setq P1(getpoint" \ n 选择第一点："))
(setq P2(getpoint" \ n 选择第一点："))
(setq P3(getpoint" \ n 选择第一点："))
(command "line" P1 P2 P3 "C")
)

你的代码问题
（defun: C:triangl()
此处括号字体不对；语法上多了一个":" ；这里的triangl是指CAD命令triangl调用下面的代码

(setq P1(getpoint" \ n 选择第一点："))

setq P1(getpoint" \ n 选择第一点："))
这句少了一个括号；PO1又重复了

setq P1(getpoint" \ n 选择第一点："))
这句问题和上句一样

(command "line"P1 P2 P3"C")
这句注意空格

)

追问

大神，我照着你说的改了，可是又有新问题了
; 1 表格 从 # 正在加载..."> 加载
_$

追答

我测试可以哦

你再确定一下，你这文件里没有其它内容！

按下面的方法再试用一下看

;;;;;;;;;;;;新建一个文件triangl.txt; 再改名为triangl.lsp
;;;;;;;;;;;;一点都不要改,把这里面的内容全部复制进去
(defun C:triangl()
(setq P1(getpoint" \ n 选择第一点："))
(setq P2(getpoint" \ n 选择第一点："))
(setq P3(getpoint" \ n 选择第一点："))
(command "line" P1 P2 P3 "C")
)
;;;;;;就这样把这个文件拖到CAD里面，用triangl命令运行！