LISP

story_li

请教一下，谁知道CAD2012用LISP来编写打开一个DWG文件怎么编写，R14可以直接用：OPEN，而2012用OPEN命令只能打开txt文件，无法打开Dwg文件，有哪位高手是用哪个语句的请告知，谢谢！

dengdinghui

打开文件不出现窗口问题：
此由FILEDIA 系统变量控制，当值为“0”是关闭；当值为“1”则打开“对话框”提示。
至于用LISP来编写程序问题，可用“记事本”来编写，当存盘时不要存为txt的扩展名，而是存取为lsp扩展名，即可在DWG中加载了。

story_li

非常感谢楼上的，如下语句哪边有问题？
(setvar "filedia" 1)
(command ".open"  "C:/windata/caddoc/lv.dwg")
用以上语句CADR14可以打开，可是CAD2012无法用，不知为什么？

dengdinghui

好多年没有用R14了，也未装2012版不能测试啊。

story_li

不管怎样还是要谢谢你！不过如果LISP不行，可以考虑用VBA，可是我的VBA写入后有时可以打开文件，有时不行，会出现RUNTIME ERROR,真是头痛。不知道是不是语句有问题，有哪个高手知道的帮我看一下：
Dim NewDrawing1 As AcadDocument
       Set NewDrawing1 = ThisDrawing.Application.Documents.Open("C:\windata\caddoc\lv.dwg")
有时错误提示如下：
Runtime Error！
Program:C:\ProgramFiles\Autodesk\AutoCAD Mechanical 2012\acad.exe
R6025
-pure virtual function call