[求助]：热心寻找lisp编程高手和盟友解决问题！！！

一生有你

我是初用lisp编程，编好程序后，加载了这个程序，怎么还是显示说没有定义变量？
程序如下：
;this program will prompt you to enter three points
;of a triangle from the keyboard,or select three points
;by using the screen cursor,p1,p2,p3 are triangle corners
(defun c:triang1()
(setq p1(getpoint"\n enter first point of triangle:"))
(setq p2(getpoint"\n enter second point of triangle:"))
(setq p3(getpoint"\n enter third point of triangle:"))
(command"line" p1 p2 p3 "c")
)
最简单的画三角形的程序，加载后，在用命令：command:triang1
回车，居然没有用
显示：
命令: (command:triang1)
; 错误: no function definition: COMMAND:TRIANG1
怎么回事？请求帮助！

*-*6

lsjjm

"command:triang1" 是什么?
加载后直接在命令行键入: triang1 回车!

无忧

第一句改成这样
(defun c:triang1(/ p1 p2 p3 )

lsjjm

最初由 无忧 发布
[B]第一句改成这样
(defun c:triang1(/ p1 p2 p3 ) [/B]

斑竹: 这样能够解决1楼的问题吗?  
1楼的程序没有大问题,  是运行程序输入错误!

kylinwang

程序是没有错，但是最好用(defun c:triang1(/ p1 p2 p3 )  来定义，否则p1 p2 p3会成为全局的变量，有可能给其他程序造成错误。
执行时在命令行直接输入 triang1 就可以了