Auswahl des Blocks überprüfen

[Principiante87]

Guten Morgen.
Ich mache eine Facharbeit, für die vba Programmierung mit autocad 2011 erforderlich ist. Mein aktuelles Problem ist, ein Makro zu starten, zu überprüfen, ob es einen ausgewählten Block gibt, seinen Namen extrahieren und andere Operationen ausführen, die ich bereits implementiert habe. Ich habe eine Menge Schwierigkeiten auf dem ersten Teil.. Können Sie mir helfen? Vielen Dank an alle, die antworten wollen und sich für die Frage entschuldigen möchten, ich weiß, dass es für viele von Ihnen trivial sein wird, aber ich kann dieses Problem nicht lösen.

 

[paolomath]

ciao, per la selezione puoi usare:

Sub seleziona_blocco()

dim ssetmia als acadselectionset
dim filtertype(0) als ganze Zahl
dim filterdata(0) als Variante

Filtertyp(0) = 0
filterdata(0) = "Insert"
„Filtertyp(1) = 2
'filterdata(1) = inserire il nome del blocco

wenn nicht isnull (diesdrawing.selectionsets.item("miaselezione")) dann
thisdrawing.selectionsets.item("miaselezione"). Löschen
Ende

set ssetmia = thisdrawing.selectionsets.add("miaselezione")
ssetmia.selectonscreen filtertype, filterdata

wenn ssetmia.count > 0)
msgbox "hai selezionato " & ssetmia.count & " blocchi.", vbinformation
andere
msgbox "non hai selezionato nessun blocco".
Ende

ssetmia = nichts

Endteil

Richiami vba con alt+ [F11]Geben Sie den Code ein
das Makro ausführen
(wie im Büro)

wenn Sie bereits den Blocknamen haben, um Kommentare zu entfernen

„Filtertyp(1) = 2
'filterdata(1) = Geben Sie den Blocknamen ein

Geben Sie den Blocknamen ein, den Sie auswählen und setzen möchten:

dim filtertype(1) als ganze Zahl
dim filterdata(1) als Variante

in den Definitionen von Variablen.

wo gibt es msgboxes setzen die Codes, was Sie tun wollen.
Ihnen die Verwaltung von Fehlern und Verzierungen. .

Tschüss.