|
Lisp : ASCII-Zeichen
Theodor Schoenwald am 19.08.2006 um 23:48 Uhr (0)
Hallo Udo, hallo Niggemann,dem Kunde wird vorgemacht, dass es Binärcode ist und 300 Euro für ein Umwandlungsprogramm verlangt.Mit einer einfachen Bat-Datei und dem Programm "CHG", kann ich, mit folgenden Beispiel Zeilen:...CHG -i %1 -s [193] -r [65]CHG -i %1 -s [194] -r [66]CHG -i %1 -s [195] -r [67]CHG -i %1 -s [196] -r [68]...,die Dateien lesbar machen. Das funktioniert einwandfrei.%1 ist der Dateiname, -s suchen, -r ersetzen.Mit eine zweiten Batdatei kann ich den Weg auch rückwärts gehen.Das Programm CH ...
|
| In das Form Lisp wechseln |
|
Lisp : ASCII-Zeichen
Theodor Schoenwald am 20.08.2006 um 17:40 Uhr (0)
Hallo Niggemann,Du hast nicht ganz recht mit morgen, dank Muster-Beispiele von Axel heute schon.Hier ist die Rohfassung:;;--------------------------------------------(defun C:N_E (/) ;; Liste aus String von Axel (defun STR2LST (STR / LS I) (setq I 1) (repeat (strlen STR) (if (= (substr STR I 1) "0") (setq LS (cons (substr STR I 1) LS)) ;; Mit - 128 wird entschlüsselt mit + 128 verschlüsselt (setq LS (cons (chr (- 128 (ascii (substr STR I 1)))) LS)) ) (setq I (1+ I)) ) (reverse LS) ) ;; Liste zu Strin ...
|
| In das Form Lisp wechseln |
|
Lisp : Bat-Datei starten
Theodor Schoenwald am 26.02.2007 um 23:50 Uhr (0)
Hallo,als Ergänzung zum Vorschlag von Thomas.So etwas habe ich auch schon eingebaut:----------------------------- (setq Z 1) (while (and (not (findfile DAT_OUT)) (= Z 10)) (command "PAUSE" 1000) (setq Z (1+ Z)) )----------------------------------mit (= Z 10) kann man dann manipulieren.GrußTheodor
|
| In das Form Lisp wechseln |
|
Lisp : Hinweis auf das Buch
Theodor Schoenwald am 11.06.2007 um 15:47 Uhr (0)
Hallo,eine Antwort von einem Forumsteilnehmer bei "Spotlight".GrußTheodor--------------------------------------------------Re: autocad literatur für fortgeschrittenehallo,danke für die buchdetailshab ich natürlich gleich bestellt
|
| In das Form Lisp wechseln |
|
Lisp : MapCars Lisp-Tutorials
Theodor Schoenwald am 11.08.2007 um 22:47 Uhr (0)
Hallo Thomas,ich liste hier Deine erste Frage vom Januar:---------------------------------------------------- Wer würde gerne MapCars Lisp-Tutorials in Buchform haben ?Da im deutschsprachigen Raum Literatur zum Thema Autocad-Programmierung in Lisp nicht gerade reich gesät ist, haben sich die Seiten von Axel zum Standard-Tipp etabliert...Wenn man Online mal schnell was sucht ist die Internet-Plattform ja ideal(auch zum mal schnell überarbeiten-was Axels Argument war), aber zum Schritt für Schritt lernen ode ...
|
| In das Form Lisp wechseln |
|
Lisp : Geometrie von Polylinien vergleichen
Theodor Schoenwald am 26.09.2007 um 15:58 Uhr (0)
Hallo,das geht so:- Du wählst ein Objekt, und gibt Dir die Geometriedaten aus,- danach suchst Du z.B. mit Lisp nach gleichen Konturen.- Bevor Du die Geometrie zu CNC-Code machst, färbst Du die gefundenen Konturen.- Nun gibst Du die Wegdaten (CNC-Code) in eine Datei.Diesen Vorgang kannst Du so lange wiederholen bis keine ungefärbten Elemente mehr auf dem Bildschirm sind.Der Vorteile der ganzen Sache sind: a) Da CNC-Programm ist sehr schnell erstellt.b) Es wird nichts vergessen.Dieser Weg hat jedoch den Nach ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockade nach fertig durlaufenem Lisp
Theodor Schoenwald am 04.03.2008 um 17:30 Uhr (0)
Hallo Anton,gerade wenn in einer Lispdatei eine EXE-Datei ausgeführt wird,wartet Lisp nicht bis die EXE ihre Arbeit getan hat (auch wenn es ganz kurz ist), sondern läuft weiter. Das muss ich dann mit "getstring" oder "while schleife" abfangen. Kann da (redraw) auch die Lösung sein?Wenn ja, hatte die Anfrage von Roman einen schönen Nebeneffekt.GrußTheodor[Diese Nachricht wurde von Theodor Schoenwald am 04. Mrz. 2008 editiert.]
|
| In das Form Lisp wechseln |
Vers_test1.txt |
Lisp : Alle Konturen nach innen versetzen
Theodor Schoenwald am 17.08.2008 um 21:58 Uhr (1)
Hallo Ernst,im Anhang ist eine Musterzeichnung.Der Fang war ausgeschaltet.Unten 2 Rechtecke als Polylinie, ein UZ die andere GUZ.Oben 2 x als LW-Polylinien eine UZ die andere GUZ.Bei der unteren rechts wurde 2 x nach innen versetzt.Da sind innen 2 Konturen.Die Datei habe ich umbenannt als .TXT einfach wieder zu .DWG machen.GrußTheodor
|
| In das Form Lisp wechseln |
|
Lisp : Lisp warten lassen
Theodor Schoenwald am 16.12.2008 um 20:15 Uhr (0)
Hallo,die letzten beiden Vorschläge sind für ACAD, das VL-Anweisungen verarbeiten kann.Viele ICAD-Abkömmlinge können nur teilweise VL-Anweisungen verarbeiten oder überhaupt nicht.Ich benötige einen Vorschlag der auch für das Vor-VL-Lisp benutzt werden kann.Das Beispiel:;; --------------------------------------- (startapp "PGCPock.EXE") ; erstellt die Datei PocketOUT.ARF ;; An dieser Stelle hatte ich schon: ;; (command "Pause" mit Zeitangabe, die nie gestimmt hat. ;; while Schleife ... ;; und Einiges mehr. ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp warten lassen
Theodor Schoenwald am 06.01.2009 um 18:14 Uhr (0)
Hallo,Bei ACAD konnte ich nicht feststellen, ob Dein Tipp gut ist oder nicht,Da das Überlaufen (warum auch immer) nicht immer auftritt.Bei BricsCad konnte ich mehr sehen, da kam es zu einer Fehlermeldung, weil die Datei nicht vorhanden war.Deine Tipps helfen auch nicht weiter.GrußTheodor
|
| In das Form Lisp wechseln |
|
Lisp : Lisp warten lassen
Theodor Schoenwald am 08.01.2009 um 18:39 Uhr (0)
Hallo Stefan,ich habe es Heute Abend noch getestet.Ob so:(startapp "C:Programme\_PGC
unWaitMakeFile.exe C:Programme\_PGCPGCPock.EXE C:TempPocketOUT.ARF")in AutoLispoder so: runWaitMakeFile.exe PGCPock.exe PocketOUT.ARFim DOS-Fenster und gleichem Ordner, die Datei "PocketOUT.ARF" hat 0 Byte.Normalerweise hat sie viel mehr.Scheinbar wartet das Programm "runWaitMakeFile.exe" nicht bis das Programm "PGCPock.exe" alles fertig hat.Die "PGCPock.exe" hat je nach Kontur viel zu rechnen, die Ergebnisse werden danach ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp warten lassen
Theodor Schoenwald am 08.01.2009 um 22:17 Uhr (0)
Hallo Alfred,das ist ein wenig anders, die Datei: "PocketOUT.ARF" wird automatisch von der PGCPock.EXE erstellt, die wird normalerweise nicht angegeben. Da war nur weil die Ablaufdatei von Stephan die Angabe benötigt hat.Ich vermute es müsste dann so aussehen Code:-------------------------------------------------@echo offC:Programme\_PGCPGCPock.EXE echo ExeEnded C:TempCheckLoop.txt-------------------------------------------------Dass ich dann danach die Existenz der "CheckLoop.txt" abfrage.Da bei dem Lisp ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp warten lassen
Theodor Schoenwald am 09.01.2009 um 14:11 Uhr (0)
Hallo Alfred, hallo Stephan,so geht es:---------------Stapeldatei------------@echo offPGCPock.EXEecho ExeEnded CheckLoop.txt-----------Lispabfrage----------------setq Z3 0 Z4 0)(while (not (findfile "CheckLoop.txt")) (setq Z3 (1+ Z3) Z4 (1+ Z4) ) (if (= Z3 100) (progn (princ " .") ;Kontrollanzeige (setq Z3 0) ) ) (if (= Z4 2000) (progn (princ "
Bitte noch warten") (setq Z4 0) ) ))--------------------------------------------------Von allen Vorschlägen die ich bis jetzt probiert habe, ist ...
|
| In das Form Lisp wechseln |
