---

Hallo,

habe da ein problem mit das selectieren im autocad,ich kann nicht diverse objekten wahlen dürch eine crossing.

das ist meine code....

was mach ich da falsch??

Private Sub selektzelf_Click()

Call ExcelKoppelen

Dim O As AcadEntity
Dim P As Variant

Call AutoCAD.ZoomAll
Me.Hide

'Hier kommt meine fehler meldung....

'Call ThisDrawing.Utility.GetEntity(O, P, "selekteer een block")

Call ThisDrawing.Utility.GetEntity(O, P, "een tekst")

Dim blok As AcadBlockReference
Set blok = O
Dim attributen As Variant

If blok.HasAttributes Then
  rij = rij + 1
 
  Dim attributen1
  Dim I
 
    attributen1 = blok.GetAttributes
    'attributen is een array van objecten
   
    Dim attribuut As AcadAttributeReference
    For I = LBound(attributen1) To UBound(attributen1)
        Set attribuut = attributen1(I)
     
        Call ExcelInvullen(attribuut.TextString, rij, I + 1)
    Next I
   
End If

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Zitat:

---

Call ThisDrawing.Utility.GetEntity(O, P, "een tekst")

---

Die Funktion 'GetEntity' geht davon aus, daß Du EIN Element direkt zeigst. Klickst Du daneben (eben wie Du gewohnt bis bei Selektion durch Kreuzen), dann meldet die Funktion einen Fehler, damit dieser im Programm erkannt und entsprechend gehandelt werden kann.

Selektionen für meherere Elemente nennt sich 'SelectionSet'. (gibt ausreichend Beispiele in den Samples)

- alfred -