---

KoordLesen.lsp Punkte.txt

Hallo liebe Leut,

mir ist es mit meinen begrenzten Hirnströmen nicht möglich mein Problem zu lösen.

Ich habe ein paar Zeilen Lisp geschrieben um aus einer Koordinaten Datei bestimmte Punkte zu lesen und als Block in die Zeichnung einzutragen. Das muss mit Abfrage geschehen, bei Numerischen Werten geht das auch aber nicht bei Alphanumerisch. Könnte sich das mal jemand ansehen ich bin echt am verzweifeln.

Anbei die Punktdatei und die Lisp.

Vielen Dank schonmal.

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

---

versuch's mal damit:

Code:

---

(setq koord (list xx y z))

---

ps du gehst auch davon aus, dass ATTREQ immer 1 ist 

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

230307_1lsp.PNG

Hi,

zunächst einmal formatiere dir den Inhalt etwas lesbarer,
so fallen dann ggf. auch Fehler besser auf - oder sie passieren erst überhaupt nicht.

In der Tiefe habe ich es mir nicht angesehen: Zuerst das Grobe und falls dann noch nötig - der Rest.

Siehe anbei, markierte Stellen an denen Unnötiges markiert ist,
wie auch Fehler. Hoffe dir hilft das schon weiter, ansonsten hänge die aktuelle korrigierte Fassung an.

PS: Bitte benenne deine Dateien "EINdeutiger", auf CAD.de hast du nur ein Uploadverzeichnis und eine
Datei "Punkte.txt" würdest du sicher früher oder später mal aus Versehen  überschreiben,
wodurch der alten Post dann nicht mehr nachvollziehbar wird.
KoordLesen.lsp darf also beim nächsten Mal gerne 230307-1_KoordLesen.lsp heißen, nur so als Beispiel

Das oben geschriebene ist zwar nicht so falsch,
aber nach dem zweiten Blick kommt noch dazu: Wir können ja nicht 1:1 testen
wenn du uns die Funktionen strtrim + read-point und ggf. mehr nicht zur Verfügung stellst.

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

---

230307_KoordLesen.lsp Punkte.txt

Sorry für das schlechte Programmieren, bin halt nicht vom Fach und mit einem einfachen Editor geht das halt nicht immer so schön (aber es läuft wenn keine Buchstaben enthalten sind). Nur ein Punkt aus der Punkte Datei wird dargestellt (die letzte Zeile wird als Block ausgegeben) die Zeilen mit einem Buchstaben vorne weg werden ignoriert.

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

---

230308-1.dwg

Sorry, aber das ist auch nicht der Code der bei dir funktioniert,dazu noch die fehlenden blöcke und layer
(nimm m=machen statt se für setzen, falls mal ein Layer fehlt in der DWG / Userr2 sollte auch gesetzt werden falls aktueller Wert 0)
Ich bin raus und muss anderes erledigen. 

cdf? sdf?
read-point?

Im übrigen Code sehe ich aktuell keine Fehler welche deiner Beschreibung entsprechen würden,
außer das erwähnte (if <Test> ((command "irgendwas")(command "machen")))
was (if <Test> (progn(command "irgendwas")(command "machen")))
oder (if <Test> (command "irgendwas" "machen"))
heißen müßte.

Es ist halt einfach nicht der Code mit allen nötigen Gegebenheiten der bei dir erfolgreich (bei Zahlen) läuft, daher ist es
schwer zu helfen.

Eine DWG mit allen Blöcken, je mit 2 Attributdefinitionen,  ist kein Problem zu erstellen - aber nicht unsere Aufgabe.
Die Layer setzen Sequenz ändert man auf "m" statt "se", dann klappt auch das,
aber die richtigen Programmfehler im geposteten Code..

Ändern können wir das, aber wir suchen ja deinen Fehler und dafür brauchts deinen Code (und in diesem Fall auch eine DWG mit den nötigen Blöcken,
sonst macht es wenig Spaß zu helfen und eingie potentielle Helfer lassen es dann einfach)

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