|
Lisp : Befehlslänge auf Werkzeugbuttons/Makro beschränkt?
ebla am 16.01.2012 um 17:46 Uhr (0)
Hallo cadffm,Könnte man dann das ganze als LSP-Datei speichern und dann einfach nur diese dann als Befehl auf den Button legen?Wenn ja, wie wäre die Struktur dieser Datei?Grußein LISP-Rookie
|
| In das Form Lisp wechseln |
|
Lisp : Befehlslänge auf Werkzeugbuttons/Makro beschränkt?
ebla am 16.01.2012 um 19:39 Uhr (0)
Hallo Heiko,prima, das ist es. Natürlich funzt der Code ganz super. Da kann ich mal schön alle meine "Makros" in eine Datei reinschreiben und diese dann im Startup mitladen.Vielen, vielen Dank. MfGErnst
|
| In das Form Lisp wechseln |
|
Lisp : Ursprung mit Variable
ebla am 14.07.2012 um 10:20 Uhr (0)
Hallo Leute,schon wieder mal stehe ich auf´m Schlauch.Ich lese eine DXF-Datei ein und wandle den Namen DXFName.DXF in DXFName und setze diese in EingelesenerBlock,obwohl der Name richtig scheint (geprüft durch Ausgabe mit princ, funktioniert mein ssget nicht. (princ (strcat DATEI " eingelesen" "
" " Bitte jetzt mit der Layerkonvertierung fortfahren...")) (setq EingelesenerBlock (strcat(substr DATEI 1 (- (strlen DATEI) 4)))) (princ (strcat "
" EingelesenerBlock "
")) (setq BlockAufloesen (ssget "X" (c ...
|
| In das Form Lisp wechseln |
|
Lisp : Variable merken für erneuten Aufruf
ebla am 18.07.2012 um 19:17 Uhr (0)
Hallo Henning,danke, das hatte ich vergessen.Trotzdem ist es jetzt so, das die Variable PFAD den Dateipfad jetzt hat, getfiled kann aber diesen nicht verarbeiten. (if *NEUERPFAD* (setq PFAD *NEUERPFAD*) (setq PFAD "O:FSPSWM") );end if (princ (strcat "
." PFAD ".
")); hier kommt raus O:FSPSWMHAL - Kistlerhofstraße 70FremdspartenElektro (setq DATEI (getfiled "NIS-DXF-Datei wählen" PFAD "dxf" 0)); hier ist er wieder auf C:Eigene Dateienla bla------------------ ErnstPerfektion ist Lähmung
|
| In das Form Lisp wechseln |
|
Lisp : Variable merken für erneuten Aufruf
ebla am 18.07.2012 um 18:37 Uhr (0)
Hallo Leute,ich möchte mit folgenden Code, dass mir der letzte Dateipfad bis zum nächsten Aufruf durch den User erhalten bleibt, jedoch ohne Erfolg.(defun c:NIS-DXFeinlesen ( / ech PFAD DATEI POS LISTE ) (setq ech (getvar "CMDECHO")) (setvar "CMDECHO" 0) (command "_undo" "_begin") (princ PFAD) (princ *NEUERPFAD*) (if (= *NEUERPFAD* nil) (setq PFAD "O:FSPSWM") (setq PFAD *NEUERPFAD*) );end if (setq DATEI (getfiled "NIS-DXF-Datei wählen" PFAD "dxf" 0)) (if Datei (progn (command "_-insert" DATEI (list -4 ...
|
| In das Form Lisp wechseln |
|
Lisp : Variable merken für erneuten Aufruf
ebla am 20.07.2012 um 18:56 Uhr (0)
Hallo Thomas,danke für die Idee. Ich hab das noch abgeändert auf(setq PFAD (substr DATEI 1 (+ 1 (vl-string-position 92 DATEI 0 T))))Hinter DATEI bei substr muss eine 1 stehen, da bei substr die Nummerierung bei 1 losgeht und nicht so wie bei vl-string-position bei 0.Seitdem ich PFAD so setze, kommt er auch bei getfiled so an.Vielen Dank nochmal. U´s sind unterwegs.------------------ ErnstPerfektion ist Lähmung
|
| In das Form Lisp wechseln |
