VB.NET下CopyObjects的使用出错

zzol9970

Private Sub test()
        On Error Resume Next
        Dim blockObj As AcadBlock
        Dim insertionPnt(0 To 2) As Double
        Dim circleObj As AcadCircle
        Dim center(0 To 2) As Double
        insertionPnt(0) = 0.0# : insertionPnt(1) = 0.0# : insertionPnt(2) = 0.0#
        blockObj = acadapp.ActiveDocument.Blocks.Add(insertionPnt, "CircleBlock")   ' 创建块

        center(0) = 0 : center(1) = 0 : center(2) = 0
        circleObj = acadapp.ActiveDocument.ModelSpace.AddCircle(center, 50) ' 在模型空间添加圆
        Dim objCollection(0 To 0) As Object
        objCollection(0) = circleObj                ' 创建对象集合  
        Dim retObjects As Object
        retObjects = acadapp.ActiveDocument.CopyObjects(objCollection, blockObj)  ' 拷贝对象到块中，并返回新拷贝的对象
        circleObj.Delete()
        Dim blockRefObj As AcadBlockReference
        insertionPnt(0) = 2.0# : insertionPnt(1) = 2.0# : insertionPnt(2) = 0
        blockRefObj = acadapp.ActiveDocument.ModelSpace.InsertBlock(insertionPnt, "CircleBlock", 1.0#, 1.0#, 1.0#, 0) ' 插入块到模型空间

    End Sub


retObjects = acadapp.ActiveDocument.CopyObjects(objCollection, blockObj)这一步执行未能成功，返回值是NOTHING，原因是什么？？？

st788796

是这样用吗？

zzol9970

应该怎么用，请指教

csharp

zzol9970 发表于 2014-11-25 15:41
应该怎么用，请指教

你这是 ActiveX
RetVal = object.CopyObjects(Objects[, Owner][, IDPairs])

.Net 没有这个 method

2. 
   
3. 
   
4. Sub Example_CopyObjects()
   
5.     ' This example creates a Circle object and uses the CopyObjects
   
6.     ' method to make a copy of the new Circle.
   
7. 
   
8.     Dim DOC1 As AcadDocument
   
9.     Dim circleObj1 As AcadCircle, circleObj2 As AcadCircle
   
10.     Dim circleObj1Copy As AcadCircle, circleObj2Copy As AcadCircle
    
11.     Dim centerPoint(0 To 2) As Double
    
12.     Dim radius1 As Double, radius2 As Double
    
13.     Dim radius1Copy As Double, radius2Copy As Double
    
14.     Dim objCollection(0 To 1) As Object
    
15.     Dim retObjects As Variant
    
16.    
    
17.     ' Define the Circle object
    
18.     centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0
    
19.     radius1 = 5#: radius2 = 7#
    
20.     radius1Copy = 1#: radius2Copy = 2#
    
21.    
    
22.     ' Create a new drawing
    
23.     Set DOC1 = Documents.Add
    
24.    
    
25.     ' Add two circles to the drawing
    
26.     Set circleObj1 = DOC1.ModelSpace.AddCircle(centerPoint, radius1)
    
27.     Set circleObj2 = DOC1.ModelSpace.AddCircle(centerPoint, radius2)
    
28.     ThisDrawing.Application.ZoomAll
    
29.    
    
30.     ' Copy objects
    
31.     '
    
32.     ' First put the objects to be copied into a form compatible with CopyObjects
    
33.     Set objCollection(0) = circleObj1
    
34.     Set objCollection(1) = circleObj2
    
35.    
    
36.     ' Copy object and get back a collection of the new objects (copies)
    
37.     retObjects = DOC1.CopyObjects(objCollection)
    
38.    
    
39.     ' Get newly created object and apply new properties to the copies
    
40.     Set circleObj1Copy = retObjects(0)
    
41.     Set circleObj2Copy = retObjects(1)
    
42.    
    
43.     circleObj1Copy.radius = radius1Copy
    
44.     circleObj2Copy.radius = radius2Copy
    
45.         
    
46.     ThisDrawing.Application.ZoomAll
    
47.    
    
48.     MsgBox "Circles copied."
    
49. End Sub
    

<br /> <br /> Sub Example_CopyObjects()<br />     ' This example creates a Circle object and uses the CopyObjects<br />     ' method to make a copy of the new Circle.<br /> <br />     Dim DOC1 As AcadDocument<br />     Dim circleObj1 As AcadCircle, circleObj2 As AcadCircle<br />     Dim circleObj1Copy As AcadCircle, circleObj2Copy As AcadCircle<br />     Dim centerPoint(0 To 2) As Double<br />     Dim radius1 As Double, radius2 As Double<br />     Dim radius1Copy As Double, radius2Copy As Double<br />     Dim objCollection(0 To 1) As Object<br />     Dim retObjects As Variant<br />     <br />     ' Define the Circle object<br />     centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0<br />     radius1 = 5#: radius2 = 7#<br />     radius1Copy = 1#: radius2Copy = 2#<br />     <br />     ' Create a new drawing<br />     Set DOC1 = Documents.Add<br />     <br />     ' Add two circles to the drawing<br />     Set circleObj1 = DOC1.ModelSpace.AddCircle(centerPoint, radius1)<br />     Set circleObj2 = DOC1.ModelSpace.AddCircle(centerPoint, radius2)<br />     ThisDrawing.Application.ZoomAll<br />     <br />     ' Copy objects<br />     '<br />     ' First put the objects to be copied into a form compatible with CopyObjects<br />     Set objCollection(0) = circleObj1<br />     Set objCollection(1) = circleObj2<br />     <br />     ' Copy object and get back a collection of the new objects (copies)<br />     retObjects = DOC1.CopyObjects(objCollection)<br />     <br />     ' Get newly created object and apply new properties to the copies<br />     Set circleObj1Copy = retObjects(0)<br />     Set circleObj2Copy = retObjects(1)<br />     <br />     circleObj1Copy.radius = radius1Copy<br />     circleObj2Copy.radius = radius2Copy<br />         <br />     ThisDrawing.Application.ZoomAll<br />     <br />     MsgBox "Circles copied."<br /> End Sub<br />

zzol9970

没有这个method的话运行会报错的啊，可是没看到错误提示