|
AutoLisp : Fehlermeldung
Waldemar am 04.06.2003 um 11:07 Uhr (0)
Hallo zusammen, habe nachfolgenden Bereich in einem Lispprogramm vor einigen Jahren geschrieben (noch unter R14). (Defun DKL () (Setq KL (Getstring (Strcat
Kanallänge VKL : ))) (If (/= KL ) (Setq VKL KL)) (Setq KL VKL) (Setq KL (Atof KL)) (If ( = KL 0) (And (Princ
Wert muss positiv und ungleich Null sein. ) (DKL)) );If ) Seitdem habe ich mich mit Lisp nicht beschäftigt. Unter R2000 bekomme ich nachfolgende Fehlermeldung: ; Fehler: Fehlerhafter Argumenttyp: stringp nil Offensichtlich lieg ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Attributte aus DWG auslesen
Waldemar am 02.12.2002 um 14:58 Uhr (0)
Hallo Zusammen, in unserem Unternehmen haben wir eine Symbolbibliothek mit ca. 500 Blöcken. Alle Blöcke beinhalten die gleiche Attribute (ca. 15 Stück). Diese würden wir gerne in eine Stückliste auslesen. Am besten in eine Excel Tabelle. Die Datei sollte als Titelzeile die Attributbezeichnung haben. Die Auswahl der Blöcke sollte automatisch (alle Blöcke in der Zeichnung) oder über Objektwahl erfolgen. Da wir sowohl AutoCAD Vollversion als auch LT verwenden, kann ich leider nichts mit Lisp anfangen. 1. Ken ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Acad_Colordlg
Waldemar am 30.07.2004 um 08:13 Uhr (0)
Hallo Axel, sorry für meine ungenaue Angaben. Habe versucht ein vorhandenes LSP Programm etwas zu erweitern. Mit dem Programm ist es möglich über eine DCL Dialogbox die aktuelle Farbe zu verändern/setzen. Ich möchte (mir meinem kleinem Lisp Wissen) die Funktion übernehmen und auf Linientyp anpassen. Leider fand ich in der Onlinehilfe keine entspr. Funktion. Anbei Teil aus dem LSP Programm: (Defun DDCOLORSTART (/ NFARBE) (If (Or (= (Getvar cecolor ) BYLAYER ) (= (Getvar cecolor ) VONLAYER ) (= ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fehler in meiner MNU Datei
Waldemar am 08.03.2004 um 14:19 Uhr (0)
Hallo Forum, beim Dazuladen eigener Menüdatei über ein zus. Programm (Lisp) taucht nachfolgende Fehler meldung auf: Laden des Menüs mißlungen. Datei nicht gefunden: _menuload.(mnu/mns/mnc) . Das Menü wird allerdings korrekt hinter dem Acad Menü geladen. Habe es nachvollzogen, das es nicht am Ladeprogramm liegt. Anbei Teil daraus: (if (findfile acetmain.mnc ) (progn (princ
Lade Fremdprogramme: Express ) (command _menuload ACETMAIN ) (menucmd P13=+express.pop1 ) ;; wurde von p12 auf p1 ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zusätzliche Menüdatei
Waldemar am 28.11.2003 um 11:37 Uhr (0)
Hallo Forum, versuche über nachfolgendes Lisp Programm eine selbst erstellte Menüdatei nach "acad" und "expres" dazuzuladen. Das Makro funktioniert soweit, aber die beiden Menüs werden leider entladen. Was mach ich falsch? Bitte hilft mir. Schöne Grüße Waldemar (Defun C:MENLADWP () (Setq ML_CM (Getvar "cmdecho")) (Setq ML_FD (Getvar "filedia")) (Setq ML_MN (Findfile "WP-MENU.mnu")) (Setvar "cmdecho" 0) (Setvar "filedia" 0) (Command "_.menuunload" "WP-MENU") (Command "_.menuload" ML_MN) (Menucmd ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layer von Objekt(en) ausschalten
Waldemar am 19.10.2005 um 11:59 Uhr (0)
Hallo,habe mir ein Tool geschrieben mit dem ich den Objekt-Layer ausschalten kann. Es funktioniert super! Während der arbeit hab ich festgestellt, es währe schön, wenn ich auch mehrere Objekte auswählen und damit auschalten könnte. Nur da ist mein Lisp am Ende. Kann mir jemand helfen.Schöne GrüßeWaldemar(defun C:LAYFRIWP (/ CM AU LA) ;Systemvariablen werden gespeichert (Setq CM (Getvar "Cmdecho")) ;Systemvariablen werden gesetzt (Setvar "Cmdecho" 0) ;Auswahlsatz wird gebildet (Setq AU (Entget (Car (Entsel ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layerliste bilden
Waldemar am 25.11.2005 um 10:38 Uhr (0)
Hallo liebes Forum,versuche mit Lisp ein Programm zu schreiben in dem ich nach Auswahl der Objekte alle anderen Layer ausschalte außer der auf denen die Objekte Liegen. So weit hab ich es schon geschafft, dass Objekte die gewählt werden ausgeschaltet werden. Beim Bilden einer Liste komme ich leider nicht weiter. Kann mir jemand einen "Schubser" geben wie ich es am besten erreiche.(defun C:LAYSELWP (/) ;(/ CM AU LA ZA) ;Systemvariablen werden gespeichert (Setq CM (Getvar "Cmdecho")) ;Systemvariablen wer ...
|
| In das Form Lisp wechseln |
