xiaopei520 发表于 2004-8-2 15:11:00

关于VBA程序从AutoCAD2002到AutoCAD2004的问题

FileCopy ThisDrawing.Application.Path + "\Support\DZBLSample.DWG", StrPrj '初始化后的工程文件,StrPrj是DWG文件
BLExist = False
For Each MyDoc In ThisDrawing.Application.Documents
                       If UCase(StrPrj) = UCase(MyDoc.FullName) Then
                                                       BLExist = True
                                                       MyDoc.Activate
                       End If
Next
If Not BLExist Then
                       ThisDrawing.Application.Documents.Open StrPrj
End If'到这 提示文件已加载
       
这在2002下没有,请各位高手指点,拜托了!!!

xiaopei520 发表于 2004-8-2 15:18:00

这是出现问题的提示框

xiaopei520 发表于 2004-8-2 15:21:00


http://www.mjtd.com/bbs/skins/default/topicface/face1.gif
       
这是出现问题的提示框

zfbj 发表于 2004-8-2 18:08:00

难道是你在StrPrj图形中使用了嵌入工程？
把你的源码贴上来看看吧，不应该有这样的问题。
       
多问一下，你怎么把文字搞成红色的？: )

xiaopei520 发表于 2004-8-2 22:52:00

变成红色的醒目一点呵呵,谢谢斑竹
StrPrj.dwg里面保存了一些专用的图块,字体为了调用方便
原代码很长,还要调用数据库(.mdb)

xiaopei520 发表于 2004-8-2 23:06:00

明天就传

xiaopei520 发表于 2004-8-3 21:16:00

多谢斑竹,问题已经解决的是我点了"每次都询问加载的对话框",郁闷!!!

zfbj 发表于 2004-8-4 10:13:00

希望大家在解决问题后都能把解决方案写出来，以免后面的人再走弯路。

youngever 发表于 2004-8-4 14:23:00

请问大家谁那有cad的vba程序上传点，谢谢了http://

xiaopei520 发表于 2004-8-4 15:51:00

就是这个对话框,我在"每次打开包含宏的的工程时均询问"打了钩
所以出现了上述问题,希望大家不要向我这样,浪费很多时间
页: [1]
查看完整版本: 关于VBA程序从AutoCAD2002到AutoCAD2004的问题