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

triper

按AutoCAD2004的开发者文档的例子编译,发现运行时出现这种错误提示,请问是怎么回事 代码如下: 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

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

triper

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


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


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


是不是操作出了问题?

雪山飞狐_lzh

操作没问题


看看


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


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

triper

谢谢,好使了.原来你说的R14指的是版本.我一直没用过那个版本,见笑了