[VBA程序]：大家帮帮忙阿！

ghl_729

Private Sub Command2_Click()
Dim sPath
Dim acadApp As Object
Dim acadDoc As Object
Dim moSpace As Object
Dim cen(2) As Double
Dim C As Object
Dim R As Double
'这就是圆心的坐标
cen(0) = Val(Text1.Text)
cen(1) = Val(Text2.Text)
cen(2) = Val(Text3.Text)

sPath = "f:\a.dwg"
R = 10
'连接cad
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
End
End If
acadApp.Visible = True
acadApp.Documents.Open sPath
'Set acadDoc = acadApp.ActiveDocument
Set moSpace = acadDoc.ModelSpace
'这就是圆心的坐标
Set C = acadDoc.ModelSpace.AddCircle(cen, R) '在“当前文档”的“模型空间”里“画圆”
C.Color = acBlue
End Sub
我这做了，但是这个圆怎么画的不是在a.dwg的这个文件上，而还是在一个新的文件上啊

hopeybx

你把
acadApp.Documents.Open sPath
改为
acadApp.Documents.Add sPath
看看

lixiuchang

楼住的办法是可行的

lzgzcy

同意！试试看！