triper 发表于 2004-11-15 20:27:00

请问"方法在SDI方式中不可用"是怎么回事

按AUTOCAD2004的开发者文档的例子编译,发现运行时出现这种错误提示,请问是怎么回事


代码如下:


Sub Ch3_ImportingAndExporting()


                       ' 创建圆用于直观显示<BR>                       Dim circleObj As AcadCircle<BR>                       Dim centerPt(0 To 2) As Double<BR>                       Dim radius As Double<BR>                       centerPt(0) = 2: centerPt(1) = 2: centerPt(2) = 0<BR>                       radius = 1<BR>                       Set circleObj = ThisDrawing.ModelSpace.AddCircle _<BR>                                                                                                                                                       (centerPt, radius)<BR>                       ThisDrawing.Application.ZoomAll<BR>                       <BR>                       ' 创建空的选择集<BR>                       Dim sset As AcadSelectionSet<BR>                       Set sset = ThisDrawing.SelectionSets.Add("NEWSSET")<BR>                       <BR>                       '将当前图形输出到<BR>                       '       AutoCAD 临时文件目录下的 DXF 文件<BR>                       Dim tempPath As String<BR>                       Dim exportFile As String<BR>                       Const dxfname As String = "DXFExprt"<BR>                       tempPath = _<BR>                                               ThisDrawing.Application.Preferences.Files.TempFilePath<BR>                       exportFile = tempPath &amp; dxfname<BR>                       ThisDrawing.Export exportFile, "DXF", sset


                       ' 删除空的选择集<BR>                       ThisDrawing.SelectionSets.Item("NEWSSET").Delete


                       ' 打开新图形<BR>                       ThisDrawing.Application.Documents.Add "acad.dwt"<BR>                       <BR>                       ' 定义输入<BR>                       Dim importFile As String<BR>                       Dim insertPoint(0 To 2) As Double<BR>                       Dim scalefactor As Double<BR>                       importFile = tempPath &amp; dxfname &amp; ".dxf"<BR>                       insertPoint(0) = 0: insertPoint(1) = 0: insertPoint(2) = 0<BR>                       scalefactor = 2#<BR>                       <BR>                       ' 输入文件<BR>                       ThisDrawing.Import importFile, insertPoint, scalefactor<BR>                       ThisDrawing.Application.ZoomAll<BR>End Sub<BR>


调试时,        提示这一句有问题       ThisDrawing.Application.Documents.Add "acad.dwt"


另外,请问在2002和2004里用VBA或VB进行二次开发时有没有区别,在一个版本上编的程序会不会在另一个版本里出错.

雪山飞狐_lzh 发表于 2004-11-15 20:41:00

单文档，相对与多文档，你是在R14下面？

triper 发表于 2004-11-15 21:04:00

呵呵,不好意思,我刚学没多久,不太清楚R14是怎么回事,能不能解释一下


是这样,我用的是CAD2004,代码放在了模块里,问题是不是在这


操作过程:打开2004--创建宏(thisdrawing里)--编代码--运行


是不是操作出了问题?

雪山飞狐_lzh 发表于 2004-11-16 09:55:00

操作没问题


看看


工具－选项－选择系统选项卡


是不是“兼容单文档模式”前有一个勾？把他去掉再试试

triper 发表于 2004-11-16 10:39:00

谢谢,好使了.原来你说的R14指的是版本.我一直没用过那个版本,见笑了
页: [1]
查看完整版本: 请问"方法在SDI方式中不可用"是怎么回事