请教lisp自定义函数中的command问题
caoex
caoex Lv.7
2010年11月29日 10:59:15
只看楼主

最近编程遇到一问题,一直找不到原因,期盼高人指点我自定义一函数,如(defun btk ()……),中间包含写单行文本命令(command "text"……),在其它程序调用时,总是出现下面的错误"text.dwg": 在搜索路径中未找到文件: C:\Documents and Settings\Administrator\桌面\(当前目录) C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\APPLICATION DATA\AUTODESK\AUTOCAD

最近编程遇到一问题,一直找不到原因,期盼高人指点
我自定义一函数,如(defun btk ()……),中间包含写单行文本命令(command "text"……),在其它程序调用时,总是出现下面的错误
"text.dwg": 在搜索路径中未找到文件:
C:\Documents and Settings\Administrator\桌面\(当前目录)
C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\APPLICATION DATA\AUTODESK\AUTOCAD
2007\R17.0\CHS\SUPPORT\
C:\PROGRAM FILES\AUTOCAD 2007\SUPPORT\
C:\PROGRAM FILES\AUTOCAD 2007\FONTS\
C:\PROGRAM FILES\AUTOCAD 2007\HELP\
C:\PROGRAM FILES\AUTOCAD 2007\SUPPORT\COLOR\
C:\Program Files\AutoCAD 2007\
*无效*
但我把自定义函数改成cad直接使用的命令(defun c: btk ()……)时,程序能够正确运行,请教各们高人这是什么原因
免费打赏
caoex
2010年11月29日 11:06:01
2楼
另外发现自定义函数中的-style命令也存在这个问题
"-style.dwg": 在搜索路径中未找到文件:
C:\Documents and Settings\Administrator\桌面\(当前目录)
C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\APPLICATION DATA\AUTODESK\AUTOCAD
2007\R17.0\CHS\SUPPORT\
C:\PROGRAM FILES\AUTOCAD 2007\SUPPORT\
C:\PROGRAM FILES\AUTOCAD 2007\FONTS\
C:\PROGRAM FILES\AUTOCAD 2007\HELP\
C:\PROGRAM FILES\AUTOCAD 2007\SUPPORT\COLOR\
C:\Program Files\AutoCAD 2007\
*无效*

目前我的解决办法是取消自定义函数,直接把代码放到主程序中,能够运行,只是显得程序太冗长
回复
dajio
2010年11月29日 11:22:01
3楼
应该不会有这个问题,可能是command响应时不对应。
试试下面的代码:
(defun wtxt () (command "text" "J" "BL" '(0 0 0) 3.0 0 "写字"))
(defun c:tt () (wtxt) (command "_.zoom" "E") (princ))
(c:tt)
回复
zml84
2010年11月29日 11:34:32
4楼
1、不是这一句的问题: (command "text"

2、是这一句前面的问题。你可能用了:(command "_insert")
回复
caoex
2010年11月29日 21:01:11
5楼
多谢zml84朋友的指点
正是前面用了:(command "-insert")的原因,而我调用时没有正确调用块名,所以出现这个错误
经过重新修改,现在程序终于调试通过
再次感谢zml84朋友
回复

相关推荐

APP内打开