高手看看这个程序怎么没法用？

kighton

我copy了文章里面的代码，不知道为何，没用的起来，请高手看看下面的文章：

AutoCAD内常用术语的自动标注方法

http://www.elecfans.com/article/121/computer/2009/2009021424682.html

ZZXXQQ

1、程序要另存为两个文件，一个是#txt.lsp，一个是#txt.dcl；
2、#txt.lsp程序中要将注释前全角的分号改成半角的，最好将注释先删了再加载运行；
3、缺#txt.dat数据文件。要自己编纂一个。

kighton

谢谢斑竹出手！

但试了下还是发现不行，继续求助！谢谢！！

ZZXXQQ

这段有误：

3. ; 对话框显示及驱动程序
4. (defun diag ( / i)
5.   (if (> (setq dcl_id (load_dialog "#txt")) 0) (progn ;加载对话框文件
6.    (if (new_dialog "filetext" dcl [JX*6]id) (progn ; 显示对话框
7.     (start_list "what") ;将词组显示到列表框内
8.     (mapcar 'add_list txt_tb)
9.     (end_list)
10.     (setq i 1)
11.     (repeat nn ;点取词组分类项后的操作
12.      (action_tile (strcat "c" (itoa i)) "(wr_txt)")
13.      (setq i (1+ i))
14.     )
15.     (action_tile "what" "(setq i (atoi $value))
16.      (setq txt (nth i txt_tb))(set_tile "sel_ok" txt)"
17.     ) ;选中词组
18.     (action_tile "sel_ok" "(setq txt $value)")
19.     (action_tile "accept" "(setq ok T)(done_dialog 1)(unload_dialog dcl_id)")
20.     (action_tile "cancel" "(unload_dialog dcl_id)")
21.     (start_dialog)
22.    )
23.     (prompt "\n无法显示对话框FILETEXT! 请检查对话框内容!")
24.    )
25.   )
26.    (prompt "\n无法加载对话框文件#TXT.DCL! 请检查文件是否存在及路径是否正确!")
27.   )
28. )

; 对话框显示及驱动程序 (defun diag ( / i)   (if (> (setq dcl_id (load_dialog "#txt")) 0) (progn ;加载对话框文件    (if (new_dialog "filetext" dcl [JX*6]id) (progn ; 显示对话框     (start_list "what") ;将词组显示到列表框内     (mapcar 'add_list txt_tb)     (end_list)     (setq i 1)     (repeat nn ;点取词组分类项后的操作      (action_tile (strcat "c" (itoa i)) "(wr_txt)")      (setq i (1+ i))     )     (action_tile "what" "(setq i (atoi $value))      (setq txt (nth i txt_tb))(set_tile "sel_ok" txt)"     ) ;选中词组     (action_tile "sel_ok" "(setq txt $value)")     (action_tile "accept" "(setq ok T)(done_dialog 1)(unload_dialog dcl_id)")     (action_tile "cancel" "(unload_dialog dcl_id)")     (start_dialog)    )     (prompt "\n无法显示对话框FILETEXT! 请检查对话框内容!")    )   )    (prompt "\n无法加载对话框文件#TXT.DCL! 请检查文件是否存在及路径是否正确!")   ) )

kighton

感谢斑竹又一次回复！真是非常感激！

成功加载！

但是运行后出现“no function definition: READ_LINE”错误。（查了下资料，可能应该是read-line，改过）

出现“Error:参数类型错误: fixnump: nil”

排查了下，还是diag这段有误。

再次求助。

ZZXXQQ

再这样试试：

3. ; 对话框显示及驱动程序
4. (defun diag ( / i)
5.   (if (> (setq dcl_id (load_dialog "#txt")) 0) (progn ;加载对话框文件
6.    (if (new_dialog "filetext" dcl_id) (progn ; 显示对话框
7.     (start_list "what") ;将词组显示到列表框内
8.     (mapcar 'add_list txt_tb)
9.     (end_list)
10.     (setq i 1)
11.     (repeat nn ;点取词组分类项后的操作
12.      (action_tile (strcat "c" (itoa i)) "(wr_txt)")
13.      (setq i (1+ i))
14.     )
15.     (action_tile "what" "(setq i (atoi $value))
16.      (setq txt (nth i txt_tb))(set_tile "sel_ok" txt)"
17.     ) ;选中词组
18.     (action_tile "sel_ok" "(setq txt $value)")
19.     (action_tile "accept" "(setq ok T) (done_dialog 1)")
20.     (action_tile "cancel" "(setq ok nil) (done_dialog 0)")
21.     (start_dialog)
22.     (unload_dialog dcl_id)
23.    )
24.     (prompt "\n无法显示对话框FILETEXT! 请检查对话框内容!")
25.    )
26.   )
27.    (prompt "\n无法加载对话框文件#TXT.DCL! 请检查文件是否存在及路径是否正确!")
28.   )
29. )

; 对话框显示及驱动程序 (defun diag ( / i)   (if (> (setq dcl_id (load_dialog "#txt")) 0) (progn ;加载对话框文件    (if (new_dialog "filetext" dcl_id) (progn ; 显示对话框     (start_list "what") ;将词组显示到列表框内     (mapcar 'add_list txt_tb)     (end_list)     (setq i 1)     (repeat nn ;点取词组分类项后的操作      (action_tile (strcat "c" (itoa i)) "(wr_txt)")      (setq i (1+ i))     )     (action_tile "what" "(setq i (atoi $value))      (setq txt (nth i txt_tb))(set_tile "sel_ok" txt)"     ) ;选中词组     (action_tile "sel_ok" "(setq txt $value)")     (action_tile "accept" "(setq ok T) (done_dialog 1)")     (action_tile "cancel" "(setq ok nil) (done_dialog 0)")     (start_dialog)     (unload_dialog dcl_id)    )     (prompt "\n无法显示对话框FILETEXT! 请检查对话框内容!")    )   )    (prompt "\n无法加载对话框文件#TXT.DCL! 请检查文件是否存在及路径是否正确!")   ) )

kighton

版主：

还是出现“Error:参数类型错误: fixnump: nil”

排查了下，还是diag这段有误。

不好意思再次求救！

kighton

顶顶，让高手看看

ZZXXQQ

6楼第5行改了，再试试。