VBA中如何使用COM组件

wangya_82

用vba如何才能使用com接口，使用那里面的属性

下面这个只能通过选择集调用，不知还有什么方式可以呢？请指教

Sub test()

Dim sset As AcadSelectionSet

Dim name As String

name = “sset”

   

Set sset = ThisDrawing.SelectionSets.Add(name)

On Error GoTo ErrorHandler:

sset.SelectOnScreen

   

Dim ent As CEB_SpotObjectCOM

For Each ent In sset

        With ent

              .Point.X = 100

              .Point.Y = 100

        End With

        ent.Update       

Next ent

   

ErrorHandler:

sset.Delete

Set sset = Nothing

End Sub

mccad

置顶的两个类其实就是对COM接口的调用

wangya_82

可是能不能不通过选择集直接调用呢，你看这样的问题在哪？

Dim X As New ceb_spotobjectcom

Sub TMPT()
Dim a As acadline
Dim b(2) As Double, c(2) As Double
b(0) = 0: b(1) = 0: b(2) = 0
c(0) = 100: c(1) = 100: c(2) = 0
Set a = ThisDrawing.ModelSpace.AddLine(b, c)
Set X.Object= a
End Sub