[LISP程序]：一个初学者关于LISP控制台的问题

wgl721219

我装的是CAD 2004,刚学习LISP，遇到一个问题。在帮助中有下面一段话：
gp:getPointInput 函数完成运行时，变量以及赋给变量的值都将不复存在。因此，您可以将用户提供的值保存在局部变量中。下面是函数的实现代码：

(defun gp:getPointInput        (/ StartPt EndPt HalfWidth)
  (if (setq StartPt (getpoint "\nStart point of path: "))
    (if (setq EndPt (getpoint StartPt "\nEndpoint of path: "))
      (if (setq HalfWidth (getdist EndPt "\nHalf width of path: "))
          T
      )
    )
  )
)
在引导函数开始的 defun 语句中，局部变量的声明位于斜线的后面。函数第一次调用 getpoint 时会提示用户指定起点，然后要求用户依据输入的起点指定端点。在选择端点时，用户会看到一条从起点延伸出来的拖引线。与此类似，在设置小路半宽值时，用户也会看到一条由端点伸出的拖引线，但这次它表示的是距离。

查看 gp:getPointInput 如何工作的步骤

[B]1、在 VLISP 控制台窗口中键入 gp:getPointInput 代码。 [/B]  
2、将控制台窗口光标放在代码块的最后一个括号后（或它下面的那一行），然后按 ENTER 键，这样就可以替换以前加载的任何版本的 gp:getPointInput。
3、在控制台窗口的控制台提示下输入 (gp:getPointInput) 就可以执行该函数。
4、依次输入点以响应提示，然后输入小路半宽值。


我将上面的代码复制到控制台按回车键，出现下面的提示：
GP:GETPOINTINPUT－－－－－输入回车后出现的
_$ GP:GETPOINTINPUT－－－－自己输入的命令
#<USUBR @046b27e4 GP:GETPOINTINPUT/>－－－输入命令后出现的提示。(见下图)
这是怎么回事？

Underway

_$ GP:GETPOINTINPUT
#＜USUBR @03633244 GP:GETPOINTINPUT＞
_$ (GP:GETPOINTINPUT)            ;; <======== Try like this

lidejun_55

GP:GETPOINTINPUT 是你定义的函数，当然显示的是usubr了
查看 gp:getPointInput 如何工作的步骤相当于调试程序，你要先设置断点，不然你还是不知道程序的工作步骤。

hg132

也遇到这样的问题，最后直接在CAD里加载应用程序完成测试

hg132

_$ gp:getPointInput #<USUBR @0000000032f86750 GP:GETPOINTINPUT> _$ (gp:getPointInput) ; 错误: no function definition: *HALFWIDTH _$ 在测试时要加上（）才能正确测试

hg132

_$ gp:getPointInput
#<USUBR @0000000032f86750 GP:GETPOINTINPUT>
_$ (gp:getPointInput)
; 错误: no function definition: *HALFWIDTH
_$

带上（）后才能真正进入测试状态