bye to all,
ich brauche rat.
ich möchte ein makro vba teilen, das die blöcke in einer bestimmten schicht konten und dann automatisch nummerieren, es könnte nützlich sein, um mir den bcount befehl.
wie kann ich das machen?
vielen dank..
und gut zu machen.
was meinst du mit nummerierung?
dann zum auswählen von blöcken einer schicht ein beispiel ist:
dim element als acadblockreferenz
dim sset als acadselectionset
auf fehlerwiederaufnahme
wenn nicht isnull(thisdrawing.selectionsets.item("element") dann
set sset = thisdrawing.selectionsets.item("element")
sset.delete
ende
set sset = thisdraw.selectionsets.add("element")
dim filtertype(1) als ganze zahl
dim filterdata(1) als variante
filtertyp(0) = 0'(dxf filter entity code)
filterdata(0) = "insert"(blockfilter)
filtertype(1) = 8'(dxf filter layer code)
filterdata(1) = "name_layer"(code dxf filter name layer)
, filtertyp, filterdaten
sset.count (aus der anzahl der in der filterauswahl erfassten anlagen)
'dann wird es einen zyklus geben, um nummerierung zu machen (ich habe nicht verstanden, was sie meinen), aber es wird mit beginnen:
für jedes element in sset
...
...
...
nächstes element
mit den informationen, die du dir gegeben hast, was ich dir nicht helfen kann.
