VBA AutoCad copy Tekst Objects.

[TheChris]

Hey,

Ik ben bezig met een tool voor AutoCad in VBA.
Het importeren van tekst en mtekst objecten gaat goed nu.
Nu wil ik ze in 1 array zetten met de volgende code maar dit gaat helaas niet. Wie kan mij helpen.



<sub>Dim ssetObj As AcadSelectionSet
Dim T As AcadText
Dim TT As AcadMText
Dim Teller As Integer
Dim TEKSTARRAY(0 To 100) As AcadText

// CODE VOOR VULLEN VAN ssetObj werkt, met selectOnScreen

For Each T In ssetObj
TEKSTARRAY(Teller) = T.TextString
TEKSTARRAY(Teller).InsertionPoint(0) = T.InsertionPoint(0)
TEKSTARRAY(Teller).InsertionPoint(1) = T.InsertionPoint(1)
Teller = Teller + 1
Next T

For Each TT In ssetObj
TEKSTARRAY(Teller) = T.TextString
TEKSTARRAY(Teller).InsertionPoint(0) = TT.InsertionPoint(0)
TEKSTARRAY(Teller).InsertionPoint(1) = TT.InsertionPoint(1)
Teller = Teller + 1
Next TT</sub>