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

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

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

按2004的开发者文档的例子编译,发现运行时出现这种错误提示,请问是怎么回事
代码如下:
Sub Ch3_ImportingAndExporting()
                       ' 创建圆用于直观显示
                       Dim circleObj As AcadCircle
                       Dim centerPt(0 To 2) As Double
                       Dim radius As Double
                       centerPt(0) = 2: centerPt(1) = 2: centerPt(2) = 0
                       radius = 1
                       Set circleObj = ThisDrawing.ModelSpace.AddCircle _
                                                                                                                                                       (centerPt, radius)
                       ThisDrawing.Application.ZoomAll
                       
                       ' 创建空的选择集
                       Dim sset As AcadSelectionSet
                       Set sset = ThisDrawing.SelectionSets.Add("NEWSSET")
                       
                       '将当前图形输出到
                       '       AutoCAD 临时文件目录下的 DXF 文件
                       Dim tempPath As String
                       Dim exportFile As String
                       Const dxfname As String = "DXFExprt"
                       tempPath = _
                                               ThisDrawing.Application.Preferences.Files.TempFilePath
                       exportFile = tempPath & dxfname
                       ThisDrawing.Export exportFile, "DXF", sset
                       ' 删除空的选择集
                       ThisDrawing.SelectionSets.Item("NEWSSET").Delete
                       ' 打开新图形
                       ThisDrawing.Application.Documents.Add "acad.dwt"
                       
                       ' 定义输入
                       Dim importFile As String
                       Dim insertPoint(0 To 2) As Double
                       Dim scalefactor As Double
                       importFile = tempPath & dxfname & ".dxf"
                       insertPoint(0) = 0: insertPoint(1) = 0: insertPoint(2) = 0
                       scalefactor = 2#
                       
                       ' 输入文件
                       ThisDrawing.Import importFile, insertPoint, scalefactor
                       ThisDrawing.Application.ZoomAll
End Sub
调试时,        提示这一句有问题       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指的是版本.我一直没用过那个版本,见笑了

查看完整版本: 请问"方法在SDI方式中不可用"是怎么回事