[LISP] (initdia)函数怎么了?

hhc

当把一个程序编译为独立空间时,其中的(initdia)函数就会出错,提示信息为:未定义函数(initdia),而(initdia)明明是系统函数啊,这是怎么回事呢? 不编译为独立空间时没有问题,我调用这个函数的目的就是想让下一个命令出现对话框,而不是命令行输入式的

ZZXXQQ

LISP中无此函数。INITDIA是系统变量，用(SETVAR "INITDIA" 0)来更改。

龙龙仔

;;在程序最前面加入下列程序 (if (findfile "acapp.arx")
(progn
(arxload "acapp.arx" NIL)
(vl-arx-import "acapp.arx")
)
(progn
(arxload "acadapp.arx" NIL)
(vl-arx-import "acadapp.arx")
)
)

hhc

感谢二位的答复,刚才在命令行试了一下,INITDIA不是系统变量,而是lisp函数,是控制对话框的.龙龙仔的第一行(findfile "acapp.arx")在命令行执行后返回"C:\\Program Files\\AutoCAD 2004\\acapp.arx",很显然我只要第一个progn中的两行就够了,第二个progn一定是用于其他版本.感谢高手指教.让人感到高深莫测,敬畏.


刚才又碰到一个问题,昨晚从其他一个论坛上下载了一个机械公差查询程序,还需要安装的(其实这个程序我也有,只是想看看别人的什么样),谁知装了之后一看,不但不好用,且卸载后打开VLisp编辑器后,绘图空间所有命令全部失效,再动两下,连光标也没了,我又连卸载,安装了CAD两次,仍没有消除.不知是怎么回事,看来要重装操作系统了.

龙龙仔

机械公差查询程式,传上来看看!

hhc

今天刚看到龙龙仔的回话，那我传了，因源程序较长，且有对话框，已打包，加载后命令为 jxpc, 如需源程序，下次再传。

hhc

怎么传不上啊

hhc

传上了没有？怎么看不到

hhc

很抱歉，今天才学会上传文件，我把公差查询程序上传，加载后命令名为: jxpc