---

Hallo!

Ich habe schon vor einiger Zeit ein Lispprogramm geschrieben, mit dem man Koordinaten aus einer ASCII-Datei einlesen kann. Dann wird an jede Koordinate ein Block oder ein Punkt gezeichnet (ich weiß, so was gibt es massenweise, aber kein Programm ist genau so wie ich es will).

Mein Problem:
Das Programm soll anhand einer Punktkennung eine bestimmte DWG als Block verwenden. Dazu muss ich es erst einmal hin kriegen, mit LISP eine DWG als Block zu laden. Wenn es geht nicht mit (command "_insert" ....).
Dann muss ich auch feststellen können, ob der Block schon in der Zeichnung existiert. Sonst könnte ich einen vorhandenen Block gleichen Namens zerstören.

Irgenwie geht's, dass weiß ich. Eventuell mit VLISP. Aber da bin ich nicht firm!

Wer kann's besser als ich???

------------------
Nodda,

Stefan 

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

---

mit tblsearch kannst Du sehr einfach feststellen, ob ein Block Deines Namens schon existiert.
...und wiso willst Du nicht den Command Befehl für die Insert's benutzen?

------------------
Gruß
CADwiesel

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

---

Hallo Cadwiesel!

Danke für die Auskunft. Ich probiers gleich aus, wenn ich Zeit habe.

Ich versuche zur Zeit alle Aufrufe von (command ...) zu umgehen. Das macht das Programmieren zwar etwas schwerer, aber die Programme wesentlich schneller. Das Programm an dem ich arbeite erzeugt für jede Koordinate die eingelesen wird einen Block und einen Text der die Höhe über NN (über dem Meer) enthält. Mit (command "_point"...) und (command "_text" ...) dauert es ewig, bis 1000 Punkte eingelesen sind. Mit (entmake ...) geht's viel besser.
Aber um einen einmaligen Aufruf von _insert komme ich wohl nicht drum rum (danach ist der Block ja vorhanden).

------------------
Nodda,

Stefan 

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

---

Hallo Stefan,

wenn der Block immer gleich aussehen soll, dann kann man diesen ja auch im Programm mit entmake erzeugen. Dann brauchst Du kein Insert mehr.
Dem Block gleich noch ein Attribut anhängen und du kannst an jeden Punkt diesen Block mit dem gewünschten Text plazieren.

Grüße

Holger

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

---

Hallo Holger!

Klar, da hast du recht. Aber dann müsste ich die Blockdefinitionen erst ermitteln und dann in das Lisp übernehmen. Das wäre ein sehr umfangreicher Quellcode. Außerdem müsst ich für jeden neuen Block das Lisp wieder ändern. Das ist zu Aufwändig. Dann lieber _insert.

Aber Danke!

------------------
Nodda,

Stefan 

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

---

Hallo Stefan,

die Frage ist, wie kompliziert bzw. aus wievielen Elementen die Blöcke bestehen. Zur Not kann man sich auch ein kleines Tool schreiben, welches einem das Schreiben der Blockdefinition abnimmt.
Nachteil oder auch Vorteil ist: andere können nicht die Blöcke verpfuschen.
Den Lisp-Code brauchst du nicht zu ändern, wenn du die Blockdefinitionen in eigenen Konfig-dateien speicherst. entsprechend der Konstellation im Programm wird genau wie beim Einfügen dann eben der eine oder der andere Block geladen (nicht per "command" eingefügt!).

Bei Fragen ...

Holger

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

---

Hallo s.wickel

Wie ist denn Dein Programm aufgebaut?
Durchläufst Du eine Schleife und fügst bei jedem Durchlauf die Punkte und Blöcke ein?
Wenn ja, dann versuch mal folgendes:
Beim Durchlaufen der Schleife eine Liste erstellen die den Punkt und den Block einfügt und erst nach dem Schleifenende die Liste ausführen lassen.
Ich hab auch mal ein Programm zum Einlesen von Koordinaten geschrieben und die Lösung zuerst die Liste zu erstellen und diese danach auszuführen war deutlich schneller. Der Vorteil dabei ist, dass Du nur einen command Aufruf brauchst.
Die Liste könnte in etwa so aufgebaut werden:
(setq cmdl '(command))
solange koordianten gelsen werden
  (setq cmdl (cons "_point" cmdl))
  (setq cmdl (cons (strcat x "," y) cmdl))
schleifenende
(setq cmdl (reverse cmdl))
(eval cmdl)

Grüße
Heinz

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

---

Blockdef_forLOAD.zip

Hallo Stefan,

da ich es selber auch gut brauchen kann, habe ich mich mal damit beschäftigt, die Blöcke ohne (command "_.insert" ...) in die Zeichnung zu holen. Die von mir vorgeschlagene Variante scheitert ja nur an der Tatsache, dass das Erstellen der Blockdefinitionen zu aufwendig ist, weshalb ich mich damit beschäftigt habe. Beiliegendes Tool erstellt ASCII-Dateien mit der Erweiterung BLK für Block. Diese kann mit (load"C:\\temp\\blockname.blk") geladen werden. der Block steht dann in der Zeichnung zur Verfügung und kann mit (command "_.insert" ...) in der Zeichnung verwendet werden.

Bei Fragen ...

Grüße Holger

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

---

Hallo Stefan

Vielleicht nützt Dir mein Programm  http://www.geopaint.at/CAD/Download/Acadin30.zip
, ev. als Ideenspender.

Es liest Koordinaten und Messcode aus Text-File und aus einem weiteren File die dem Code entsprechenden Blocknamen und Layer.

Gruß, Ernst

[Diese Nachricht wurde von Geos am 23. Jul. 2006 editiert.]

[Diese Nachricht wurde von Geos am 23. Jul. 2006 editiert.]

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

---

Hallo Zusammen!

Vielen Dank für die Tips! Im Moment habe ich leider keine Zeit mich um das Problem zu kümmern, weil es nichts Projektbezogenes ist und dann sind andere Sachen immer wichtiger. Ich werde die verschiedenen Dinge ausprobieren und mich vielleicht noch mal melden!

------------------
Nodda,

Stefan 

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

---

Hallo Ernst,

Kannst du die Datei noch mal online stellen?

autocater

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