- ;; 加载主程序
- (if (< (atof (getvar "acadver")) 15.0)
- (vbaload "cc.dvb")
- )
复制代码 我感觉你好像还不大会用lisp你的这段我觉得好像应该用大于等于号吧,小于的话就是R14了。另外,vbaload函数好像也不存在吧,我记得应该叫vl-vbaload再有,vl-vbaload函数是需要提供dvb文件的全路径的。我给个例子吧,假设:你有一个宏文件,叫cc.dvb,位置在ACAD的搜索路径中,其中在thisdrawing模块中定义了一个宏,名叫democmd,你希望用户直接打demo命令就可以运行这个democmd宏。你只需要在你的MNL文件中加上这段: - (defun C:Demo()
- (command "-vbarun" "cc.dvb!ThisDrawing.democmd")
- (princ)
- )
你的菜单文件中直接把demo当成命令加入菜单条就行了。如: [演示]^C^CDemo |