|
Lisp : Liste aller Entitätsnamen innerhalb der Blocktabelle
S.Langhammer am 31.01.2013 um 08:20 Uhr (0)
Ganz zum Schluss will ich eine Datei erzeugt haben, in der alle Informationen, die ich benötige, über die Entitäten in einer Zeichnung (.dwg Datei), stehen.So nun bevor ich irgendetwas Anderes aus der eigentlichen Zeichnung auslese will ich sämtliche Blöcke aus der Blocktabelle auslesen. Wie ich an die eigentlichen Informationen des Blocks rankomme weiß ich schon. Mein Problem momentan ist es, eine Liste der Entitätsnamen (nicht die Blocknamen) der Blöcke anzulegen. Damit mein ich DXF Group Code -1 so wie ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer zusammenführen statt umbenennen
joern bosse am 05.06.2007 um 22:03 Uhr (0)
Hallo Peter,vielleicht ist das Layerkonvertierungsprogramm die Lösung. Das ist unter Extras=CAD-STandards zu finden.Ein Nachteil ist, dass Du die ganzen neuen Layer einmal anlegen musst, aber das kann man dann ja als *.dws-Datei speichern.------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : ASCII Datei mit CHR 59
CADMATIC am 24.08.2012 um 09:03 Uhr (0)
Hallo,ich muß eine ASCII Datei erstellen wo am Zeilenanfang ein ";" steht. Die Zeile soll auskommentiert sein.Allerdings soll es nicht in Aprostroph-Zeichen gesetzt werden, sondern komplett ohne - ;Der Ausdruck CHR59 setzt mir immer die Aprostroph -Zeichnen und im Visuallispeditor kann kein ; setzen da dann dort die Zeile als auskommentiert gilt.Hat jemand eine Ahnung wie ich dieses kleine Problem lösen könnte ? Vielen Dank !Gruß CADMATIC
|
| In das Form Lisp wechseln |
|
Lisp : ASCII Datei mit CHR 59
CADmium am 24.08.2012 um 09:18 Uhr (0)
Welches Problem?(setq FILE(open"D:TESTUS.txt" "w"))(setq Zeile "TESTZEILE")(repeat 5 (princ (strcat ";" ZEILE "
") FILE))(close FILE)------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : ASCII Datei mit CHR 59
CADMATIC am 24.08.2012 um 09:46 Uhr (0)
Hallo Cadmium,ich muß die Datei nicht einlesen,sondern aus LISP erzeugen.Gruß CADMATIC
|
| In das Form Lisp wechseln |
|
Lisp : ASCII Datei mit CHR 59
CADmium am 24.08.2012 um 09:54 Uhr (0)
... der BSPCode erzeugt auch ne Datei ...wie gesagt, ich versteh nicht, wo das Problem ist. Vielleicht holst du etwas weiter aus?!------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei command schleife
cadplayer am 29.08.2012 um 10:59 Uhr (0)
Absolut klasse, wie systematisch und strukturell du in deinem Code vorgehst ... ist eigentlich meine Art (nur nicht leicht umsetzbar), da ich nicht genau weiss, wie man vorgeht, wenn man eine Unterfunktion aufbaut. An deinem Beispiel habe ich zwar eine sehr gute Vorlage. Aber irgendwie platzt der Knoten nicht.Beispiel der DT:TEXTFILE-LST (DATEINAME /...1) Code:(if (and(=(type DATEINAME) STR)...Abfrage die Eingabe ein String ist2)Code:(while(=(type(setq ZEILE(read-line DATEI)))STR)...lies solange aus wie d ...
|
| In das Form Lisp wechseln |
Richtig.txt |
Lisp : ASCII Datei mit CHR 59
CADMATIC am 24.08.2012 um 12:04 Uhr (0)
Hallo,ich habe mal das Ergebnis in eine Textdatei gepackt. In der Datei "FALSCH.txt" steht es so wie ich es derzeit erzeuge, was aber nicht gewünscht ist.In der Datei "RICHTIG.txt" ist das gewünschte Ergbenis. Ich hoffe, das dadurch alle Unklarheiten beseitigt werden. Was heißt den "BSPCode"?Gruß CADMATIC
|
| In das Form Lisp wechseln |
|
Lisp : ASCII Datei mit CHR 59
CADmium am 24.08.2012 um 12:24 Uhr (0)
sorry ... aber hast du einfach mal den von mir geposteten Code getestet und mit deinem "Code" ?? verglichen .... ?------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : ASCII Datei mit CHR 59
spider_dd am 24.08.2012 um 12:26 Uhr (0)
Na hast Du Cadmiums BeiSPiel-Code mal ausprobiert? Mit leichten Abwandlungen (setq zeile "TEST ZEILE") (strcat "; " zeile) liefert er mir genau so eine Datei, wie Du willst, nämlich:; TEST ZEILE; TEST ZEILE; TEST ZEILE; TEST ZEILE; TEST ZEILEGrußThomas
|
| In das Form Lisp wechseln |
|
Lisp : ASCII Datei mit CHR 59
CADMATIC am 24.08.2012 um 13:03 Uhr (0)
Sorry,hab auf der Leitung gestanden. Frunzt !Danke.Gruß CADMATIC
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei command schleife
spider_dd am 28.08.2012 um 09:28 Uhr (0)
Hallo Dirk,wie Cadmium schon anmerkte, ist Dein Code nicht wirklich übersichtlich. Hast Du Dir mal den Link, den Cadmium angibt durchgelesen? Dann siehtst Du, das Du fast alles machst, was man nicht machen sollte.Ich habe mal versucht Deinen Code zu importPcode zu vereinfachen. Rausgekommen ist m. E. eine Funktion mit der Du genauso auch Deine Punktliste oder ähnlich aufgebaute Eingabedateien einlesen kannst. (Es ist ungetestet, da ich Deine Funktion STD-STRTOK nicht habe, aber probiere es mal aus)Code:(de ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei command schleife
CADmium am 28.08.2012 um 10:14 Uhr (0)
wie sieht dir Datendatei denn nun überhaupt aus ?bis dahin ein paar Funktionen mit nur einer Aufgabe;; Funktion zum Einlesen einer Datei(defun DT:TEXTFILE-LST (DATEINAME / DATEI ZEILE BASE-LST ) (if (and(=(type DATEINAME) STR) (setq DATEINAME(findfile DATEINAME)) (setq DATEI (open DATEINAME "r")) ) (progn (while(=(type(setq ZEILE(read-line DATEI)))STR) (setq BASE-LST (cons (vl-string-trim " " ZEILE) BASE-LST)) ) (setq DATEI(close DATEI)) BASE-LST ...
|
| In das Form Lisp wechseln |
