---

Hallo Gemeinde,

Ich suche eine Erleichterung fuer immer wieder die gleiche Aufgabe.
Es geht darum Punkten bestimmte Bloecke zuzuweisen. Die Punkte sind in verschiedenen Layern angelegt und die Bloecke haben die gleichen Namen wie die Layer der Punkte. Ist es moeglich ein Program zu schreiben das die Datei durchgeht und alle Bloecke setzt.

Freu mich schon auf eure Antworten

vielen Dank schon mal im voraus.

Harry

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

---

hi harry,

civil-punkte oder autocad-punkte? und welche version von autocad/civil verwendest du?

bei civil-punkten hast du wohl schon, wenn die punkte auf verschiedenen layern liegen, auch verschiedene punktgruppen, dann golt es nurmehr, den punktgruppenstilen den entsprechenden blocknamen zuzuweisen.

bei punkten ist's wohl mit einem makro getan (wie oft kommt's vor und wieviele punkte sind's denn?)

- alfred -

---

Hallo Alfred,

Es handelt sich um ACAD-Punkte in der Version ACAD Civil3D 2009, als *.dxf importiert.
Sind schon einige Punkte. Zwischen 10 und 100 je Layer (30-50 Layer) würde ich sagen.
Ein Makro ist denk ich nicht das richtige, denn es sollte schon geprueft werden ob der Punktlayer ueberhaupt vorhanden ist, wenn ja, dann sind aber auch Punkte enthalten.
Mein letztes VBA-Prograemchen ist schon einige Zeit her und ich will erst mal den Aufwand abklären, bevor ich mich daran mache.

Danke aber für die schnelle Antwort.

Harry

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

---

hi,

aufwand (in zeitlichem gesehen) haengt davon ab, wieviel man/frau in dem aufgabengebiet arbeitet, sprich wie lange du damit aufwand hast, kann ich dir nicht beantworten :-)

ich brauch, wenn ich eine zeichnung mit enthaltenen blockdefinitionen von dir bekomme (und deine beschreibung mit meinem verstaendnis der aufgabenstellung kompatibel ist) ca 15min.

- alfred -

---

Man könnte auch einen kleinen Umweg über einen Shape-Export/Import gehen:
- Export aller Punkte (mit Layernamen als Attribut) in Shape
- neue Zeichnung mit den vorhanden Blockdefinitionen anlegen
- Import des Shapes und ersetzung der Punkte durch Blöcke (Blocknamen aus Daten abrufen)

Um die Layerstruktur beizubehalten müsste man vermutlich jeden Layer einzeln exportieren.

Sollte auch rechts fix gehen und ist ohne Programmierkenntnisse durchführbar.

grassu

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

---

Vielen Dank fuer die Tips,

denke mal die Entscheidung ist gefallen auf ein Skirpt bei dem ich einfach alle Befehle nacheinander herunderschreibe und dies dann einfach jedes mal via drag and drop reinziehe.
Bin mir nur noch nicht ganz sicher, wie es funktioniert, wenn ein Layer einmal nicht vorhanden ist.
Hoffe mal nur Fehlermeldung und nicht gleich abbruch.

Werde meinen Erfahrung noch posten..

bis denn

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

---

hi,

wenn ein layer nicht vorhanden ist, dann koennen auch keine punkte vorhanden sein. was ist da zu pruefen?

lass mir eine zeichnung, wie oben beschrieben, zukommen und du hast ein klein wenig spaeter das makro.
wenn ich sehe bis 100pkt je layer/bis 50 layer ==> 5000punkte

wenn du das einzeln durchmachst, dann
10sec je punkt (bist schon schnell) ==> 50000sec ==> ca 14h (ohne pause)
ich glaube, da sind meine 15min gewinnbringend.

- alfred -

---

Danke für dein Angebot Alfred,

sorry hab mich wohl schlecht ausgedrückt. Habe heute ein Skript geschrieben, bei dem LISP-Kommandos einfach nacheinander ausgeführt werden. D.h. ich lade einmal die ganzen Kommandos und dann das *.src und da steht dann alles drin was normalerweise mit der Hand eingegeben werden müsste.
Kann ich dir gerne morgen mal schicken was ich da mache.
Gruß

Harald

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