CopyObjects方法复制到块 采用后期绑定cad程序时无法使用

凋零叶

想请教一个问题.
CopyObjects方法的使用,
我试了前期绑定是正常可以使用的,后期绑定就不行了.后期绑定能正常复制到模型空间,但是不能复制到块.

如果后期绑定不能作用到块或者有没有其他可替代的方法?
请前辈指点指点一下,非常感谢.


Sub Example_CopyObjects()
    Dim cadApp As Object
'    On Error Resume Next
    Set cadApp = GetObject(, "gcad.Application")
'    Set cadApp = GetObject(, "AutoCAD.Application")

    Dim Doc1 As Object
    Dim circleObj1 As Object, circleObj2 As Object
    Dim circleObj1Copy As Object, circleObj2Copy As Object
    Dim centerPoint(0 To 2) As Double
    Dim radius1 As Double, radius2 As Double
    Dim radius1Copy As Double, radius2Copy As Double
    Dim objCollection(0 To 1) As Object
    Dim retObjects As Variant
   
    centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0
    radius1 = 5#: radius2 = 7#
    radius1Copy = 1#: radius2Copy = 2#
   
    Set circleObj1 = cadApp.Application.ActiveDocument.ModelSpace.AddCircle(centerPoint, radius1)
    Set circleObj2 = cadApp.Application.ActiveDocument.ModelSpace.AddCircle(centerPoint, radius2)

    Dim ptBase(0 To 2) As Double
    Dim Objblock As Object
        ptBase(0) = 0#: ptBase(1) = 0#: ptBase(2) = 0#

        Set Objblock = cadApp.Application.ActiveDocument.Blocks.Add(ptBase, "块1")

    Set objCollection(0) = circleObj1
    Set objCollection(1) = circleObj2

    cadApp.Application.ActiveDocument.CopyObjects objCollection, Objblock
End Sub

你有种再说一遍

浩辰的东西能就是能,不能就是放弃,
你让它去加COM接口的支持,
它要在下一年才给你加进去,
下下一年又改回来了