Routinen zum Zählen von Polylinienzahlen

[Pepi65]

Bye to all,
Jemand kann mir helfen, mein Problem zu lösen. Ich möchte ein Makro finden, das es mir erlaubt, die Anzahl der Polylinien innerhalb eines ausgewählten Bereichs "zu entdecken" (diese Auswahl sollte immer mittels des Makros erfolgen).
Danke. .

 

[Shape]

Ich meine, möchten Sie, dass das Makro nach einer Fensterauswahl fragt und Ihnen dann sagen, wie viele Polylinien innerhalb der Auswahl enthalten sind?

nur diejenigen, die vollständig verstanden oder sogar teilweise in der Auswahl enthalten sind?

 

[Pepi65]

Ja, perfekt ist, was ich fragte. Danke.

 

[Shape]

nur diejenigen, die vollständig verstanden oder sogar teilweise in der Auswahl enthalten sind?

 

[Pepi65]

Tut mir leid, nur die verstanden. .

 

[Tristan]

Aber du brauchst kein Makro für so etwas. .. Verwenden Sie einfach ein normales Auswahlfenster und lesen Sie die Zählung in der Eigenschaftspalette. .

 

[Shape]

an das Makro gebunden, es ist eine sehr einfache Sache.

Dies ist die Basis, dann wenn Sie wollen, können Sie nach Geschmack ändern.

öffentlichkeit sub pl_count()
dim sset als acadselectionset
dim element als acadentity
dim filtertype(0) als ganze Zahl
dim filterdata(0) als Variante

auf Fehlerwiederaufnahme
wenn nicht isnull (diesdrawing.selectionsets.item("element")) dann
set sset = thisdrawing.selectionsets.item("element")
sset.delete
Ende

set sset = thisdraw.selectionsets.add("element")

Filtertyp(0) = 0
filterdata(0) = "lwpolyline"

sset.selectonscreen filtertype, filterdata

msgbox ("polilinee comprese nella selazione: " & sset.count)

Endteil

 

[Pepi65]

Danke, sehr freundlich.