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

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

FileCopy ThisDrawing.Application.Path + "\Support\DZBLSample.DWG", StrPrj '初始化后的工程文件,StrPrj是DWG文件<BR>BLExist = False<BR>For Each MyDoc In ThisDrawing.Application.Documents<BR>                       If UCase(StrPrj) = UCase(MyDoc.FullName) Then<BR>                                                       BLExist = True<BR>                                                       MyDoc.Activate<BR>                       End If<BR>Next<BR><FONT color=#f73809>If Not BLExist Then<BR>                       ThisDrawing.Application.Documents.Open StrPrj<BR>End If'</FONT><FONT color=#000000>到这 提示文件已加载</FONT>


<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600">        <v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><v:shape id=_x0000_i1025 style="WIDTH: 326.25pt; HEIGHT: 90.75pt" type="#_x0000_t75"><v:imagedata o:title="" src="file:///C:/DOCUME~1/Owner/LOCALS~1/Temp/msoclip1/01/clip_image001.png"></v:imagedata></v:shape>


这在2002下没有,请各位高手指点,拜托了!!!

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

这是出现问题的提示框

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

<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%"><IMG alt=发贴心情 src="http://www.mjtd.com/bbs/skins/default/topicface/face1.gif" border=0>        <B></B><BR>这是出现问题的提示框</TD></TR></TBODY></TABLE>

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

难道是你在<FONT color=#f73809>StrPrj图形中使用了嵌入工程？</FONT>


<FONT color=#f73809>把你的源码贴上来看看吧，不应该有这样的问题。</FONT>


<FONT color=#f73809></FONT>       


<FONT color=#f73809>多问一下，你怎么把文字搞成红色的？: )</FONT>

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

变成红色的醒目一点呵呵,谢谢斑竹


StrPrj.dwg里面保存了一些专用的图块,字体为了调用方便<BR>原代码很长,还要调用数据库(.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] 2
查看完整版本: 关于VBA程序从AutoCAD2002到AutoCAD2004的问题