(已解决)求解自加载和启动VBA工宏必须将该工程放到CAD的安装目录的问题
本帖最后由 作者 于 2009-2-15 20:18:07 编辑 <br /><br /> <p>用lisp自加载和启动VBA工程及宏，好象必须将该工程放到CAD的安装目录，这太落后了吧？！</p><p>有没有可将工程放任意目录的自启动工程及宏方法？高手们想想办法吧！！！</p><p><font color="#ff0000">抱歉！我今天发现是我误解了</font>（因几乎介绍自装载、启动VBA的说法都要求将工程文件放CAD安装目录，加上我在测试时用的目录路径中少用了反斜杠故不能正确运行，从而造成误解）。其实是可以放在任意目录的，只是注意在LISP中目录间的反斜杠要用两个：</p><p> (command "_-vbaload" "D:<font color="#ff0000">\\</font>ACAD<font color="#ff0000">\\</font>HARNESS<font color="#ff0000">\\</font>insconnector.dvb")</p><p></p> 启动组 在加载工程时，LSP中请输入完整路径就可以了 本帖最后由 作者 于 2009-2-14 16:57:59 编辑 <br /><br /> <p>lisp写入路径没问题，但加载后再运行时它仍到CAD安装目录中去找该工程。所以不行。</p><p><font color="#ff0000">抱歉！上一句是我记错了：写入路径后就不能加载！</font></p> <p>你加载后还要找什么工程啊</p><p>再不行你就把你的工程目录加到CAD支持文件夹中去。</p> 我就是不想将其放在本地盘上，希望在内网盘上共享。 本帖最后由 作者 于 2009-2-14 13:47:36 编辑 <br /><br /> <p>可以另外写一段自动加载的程序，生成exe，放在压缩包中，直接运行这个exe就可以打开cad，并自动加载当前目录下的菜单文件。</p><p>On Error Resume Next</p><p>Set AcadApp = GetObject(, "AutoCAD.Application")</p><p>If Err Then<br/> Err.Clear<br/> Set AcadApp = CreateObject("AutoCAD.Application")<br/> If Err Then<br/> MsgBox "无法运行cad程序"<br/> Exit Sub<br/> End If<br/>End If<br/>If AcadApp.Preferences.Files.MenuFile = App.Path & "\acadc" Then<br/>AcadApp.Visible = True<br/>AcadApp.WindowState = acMax</p><p>Else<br/>AcadApp.Preferences.Files.SupportPath = AcadApp.Preferences.Files.SupportPath & ";" & App.Path & "\CAD" & ";" & App.Path<br/>AcadApp.Preferences.Files.MenuFile = App.Path & "\acadc"<br/>AcadApp.Visible = True<br/>AcadApp.WindowState = acMax</p><p>End If<br/></p> <p>哦，多谢指教！！！</p> <font color="#ff0000">已解决！见1楼。</font> 路径里的\\可以/代替
页:
[1]
2