非常感谢~
13925919930@

已发

版主您好，您提供的提示：AApp.ActiveDocument.ModelSpace(i).EntityName = "AcDbOle2Frame"  还是选择不上EXCLE，也就是OLE啊，还有没有其他的思路了？烦请再多多指导~

Private Sub Form_Load()
Me.Show
'Set EXAPP = CreateObject("excel.application")
'Set WB = EXAPP.Workbooks.Open("c:\test.xlsx")
'Set sht = WB.Worksheets("Sheet1")
Set AApp = CreateObject("Autocad.Application")
Set ADWG = AApp.Documents.Open("c:\drawing1.dwg")
'Range("h7", "m9").Select
'Range("h7", "m9").Copy
For i = 0 To AApp.ActiveDocument.ModelSpace.Count - 1
  'If AApp.ActiveDocument.ModelSpace(i).Lineweight = 106 Then
  '   parameter = AApp.ActiveDocument.ModelSpace(i).Coordinates
  '   Exit For
  'End If
  If AApp.ActiveDocument.ModelSpace(i).EntityName = "AcDbOle2Frame" Then
     AApp.ActiveDocument.ModelSpace(i).LockAspectRatio = False
     AApp.ActiveDocument.ModelSpace(i).Width = 500
     AApp.ActiveDocument.ModelSpace(i).Height = 300

     NewPosition(0) = 25
     NewPosition(1) = 50
     NewPosition(2) = 0
     Call AApp.ActiveDocument.ModelSpace(i).Move(AApp.ActiveDocument.ModelSpace(i).InsertionPoint, NewPosition) 'insertionpoint is the coordinates of ole'lower-left
   
     Form1.Print "Finish."
     Exit For
  End If
Next


'CoordString = parameter(0) & "," & parameter(1)
'ADWG.SendCommand "_pasteclip" & vbCr & CoordString & vbCr
'ADWG.Save
Form1.Caption = "OK"
End Sub

我用以上代码测试过，没有问题。我用的是ACAD2013。你可以在遍历的时候，把每次得到的实体名称显示出来，找出OLE对象的名称很容易。我就是这样找才知道OLE对象名称是AcDbOle2Frame.

非常感谢版主耐心的回复，运行到这里Call AApp.ActiveDocument.ModelSpace(i).Move(AApp.ActiveDocument.ModelSpace(i).InsertionPoint, NewPosition)，提示：“无效的过程调用或参数”。  难道是我调用的函数未定义?还是我机子缺少什么库？

Dim NewPosition(2) As Double

我是定义的单精度的，Dim NewPosition(2) As Single，非要双精度？好神奇啊。谢谢您啊~



[ 本帖最后由 xingming022 于 2015-3-31 15:26 编辑 ]