|
Lisp : Übersetzungstabelle
spider_dd am 16.08.2006 um 16:36 Uhr (0)
Hallo Ernst,vielleicht als Idee ...bedeutet aber auch (einmalige?) Änderung Deiner Programme:Alle verwendeten Layernamen, Blocknamen u.ä werden in fester Reihenfolge in Textdatei eingetragen.Die gibt es dann einmal für Deine Bezeichnungen und jeweils einmal entsprechend angepasst für die entsprechenden AGs.Datei wird am Anfang abgefragt und geladen, Namen für Layer u. ä. werden entsprechenden Variablen zugewiesen. Das Schalten der Layer und Einfügen der Blockreferenzen erfolgt dann nicht mehr direkt mit de ...
|
| In das Form Lisp wechseln |
|
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 : Gruppen auflösen
Dorfy am 22.08.2006 um 07:25 Uhr (0)
Hallo alle zusammenNun ein neuer der Ansatz um einer soliden Implementierung gerecht zu werden -Ansatz- da noch nicht getestet! (reine Trockenübung am Editor beim Feierabendbier)Der Marc, der hat da wirklich Recht .Benötige mal wieder eine weitere Meinung bzw. Verbesserungsvorschlag od. Korrektur der einzelnen Fragmente im Mittelteil. (das Ganze ist auch im Plural erwünscht);;; löst jeweils nur die "obersten" vorhandenen Gruppen von gepickten Objekten auf(defun C:xxx (/ GNAME GROUPSEL c dgnamen d g_liste) ...
|
| In das Form Lisp wechseln |
|
Lisp : StartUndoMark in Verbindung mit (align ..)
Carsten1210 am 22.08.2006 um 07:42 Uhr (0)
Hallo Holger,Es ist wohl so, das Align die Gruppe Zerlegt. Habs im ADT 2006 und AutoCAD 2007 getestet. Bei beiden wird die Befehlsgruppe durch den Befehl _align zerlegt.Gruß, Carsten
|
| In das Form Lisp wechseln |
|
Lisp : StartUndoMark in Verbindung mit (align ..)
CAD-Huebner am 22.08.2006 um 08:00 Uhr (0)
Ich habs mal mit AutoCAD 2007 getestet. Für mich stellt es sich so dar, als wenn _ALIGN selbst ein _UNDO _M aufruft und daher eine schon bestehende geöffnete _UNDO _Mark Gruppierung automatisch abschließt.Also _UNDO _M3 x _LINE_ALIGN (die 3 Linien)_UNDO _E_u (_Align rückgängig)_u ( 3 Linien rückgängig)------------------Mit freundlichem GrußUdo Hübner
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 23.08.2006 um 13:31 Uhr (0)
HalloNun das ganze mal getestetVisual-Lisp-Editor ACad sagt:; Fehler: Zu wenige Argumente in SETQ: (SETQ MERKERSET (ITOA (SSLENGTH (SSGET "_P"))) (SETQ DGNAMEN ELEM)) (???was will der Künstler mir damit sagen???)beim folgenden Code:;;; löst jeweils nur die "obersten" vorhandenen Gruppen von gepickten Objekten auf(defun C:xxx (/ GNAME GROUPSEL c dgnamen d g_liste merkerset) (princ "
Objekt(e) anwählen, dessen Gruppe(n) aufgelöst werden soll(en): ") (setq GROUPSEL (ssget)) ALT-PICKSTYLE (getvar "pickstyle")( ...
|
| In das Form Lisp wechseln |
|
Lisp : Datei Z_Kopf.dwg öffnen
Bernd P am 24.08.2006 um 12:52 Uhr (0)
HiWie kann ich dei "Z_kopf.dwg" die immer im selben Verzeichnis wie die aktuelle Zeichnung liegt öffnen??Hab schon mit (command "_start" "z_kopf.dwg") herumprobiert aber das funkt irgendwie bei mir nicht. ------------------"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Bitte Supportangaben eintragen, warum siehst du hier
|
| In das Form Lisp wechseln |
|
Lisp : Datei Z_Kopf.dwg öffnen
CADmium am 24.08.2006 um 13:10 Uhr (0)
wenn du nicht mit filedia usw. rummachen willst :(command "vbastmt" (Strcat "AcadApplication.Documents.OPEN"(chr 34)(getvar "DWGPREFIX")"z_kopf.dwg")(chr 34)(chr 13))auf einen Button oder zum Testen erstmal in die Befehlszeile------------------ - 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 : Datei Z_Kopf.dwg öffnen
Bernd P am 24.08.2006 um 13:36 Uhr (0)
Göttlich danke------------------"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Bitte Supportangaben eintragen, warum siehst du hier
|
| In das Form Lisp wechseln |
|
Lisp : Textzeile Einlesen
spider_dd am 24.08.2006 um 13:57 Uhr (0)
Hallo Rabbit,hast Du Dir mal im einzelnen angesehen was Du einliest? Und dann sieh Dir Deine Datei mal in einem Hex-Editor an.Bei mir endet die erste gelesene Zeile mit "Modemn", in der Datei kommt danach ein 0x0D (= CR).Die zweite gelesenen Zeile endet mit "uXm", in der Datei kommt danach ein 0x1A (= SUB) was auch immer das ist.Danach werden bei mir keine weiteren Daten gelesen (read-line liefert nil)Springt der Zeiger dort ans Dateiende?Also wie Udo schon sagte, wahrscheinlich besser Zeichenweise lesen u ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 25.08.2006 um 07:19 Uhr (0)
Hi Marc, hi Jörn, @Marc"as designed" or NOT "as designed" this is the question?IMHO - Mit cons... in der Subfunktion wird die ACAD-Logik umgedreht!? auch ACAD folg IMHO einer Logik welcher? this? only now? ...Euer Weg ist dennoch der richtigeAnzahl der Entities der Gruppen!?Es klemmt wie immer bei der Implementierung - im gekennzeichneten Bereich warum???Guter Rat (kann auch schon wo anders klemmen [IMHO]) ;;; löst jeweils nur die "obersten" vorhandenen Gruppen von gepickten Objekten auf(defun C:xxx ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 29.08.2006 um 07:57 Uhr (0)
Soooo;;; löst jeweils nur die "obersten" vorhandenen Gruppen im Auswahlsatz auf(defun C:xxx (/ GROUPSEL GNAME DGNAMEN D G_LISTE MERKERSET) (princ "
Objekt(e) anwählen, dessen Gruppe(n) aufgelöst werden soll(en): ") (setq GROUPSEL (ssget)) ALT-PICKSTYLE (getvar "pickstyle") (if GROUPSEL (progn (repeat (sslength GROUPSEL) (if (setq GNAME (GET-GROUPNAME (entget (ssname GROUPSEL (setq D (if D (1+ D)0)))))) (if GNAME (progn (foreach ELEM GNAME (command "_.select" "_group" elem "") ...
|
| In das Form Lisp wechseln |
