|
AutoLisp : Externe Lisp in Repeat starten möglich?
cadking am 26.10.2004 um 10:44 Uhr (0)
Hallo Leute, kann mir jemand sagen, ob es in Autolisp möglich ist, innerhalb einer Repeat-Schleife eine externe Lisp-Datei auszuführen und anschließend wieder in die Schleife zurückzukehren? hier ein Auszug aus meiner Lisp. In der vorletzten Zeile soll die externe Lisproutine PVERB.LSP ausgeführt werden und dann soll es in der Repeat-Schleife weitergehen. (command .-layer _th * _on * ) (setq allobj (ssget X (list (-4 . AND )(cons 8 * ) (-4 . AND )))) (Setq objanz (sslength allobj)) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
cadking am 26.10.2004 um 13:32 Uhr (0)
So funktioniert es leider nicht. Ich habe es versucht mit (load PVERB )(pverb) und (load PVERB.LSP )(pverb) aber immer, wenn ich an diesen Stelle bin erhalte ich die Fehlermeldung no function definition: PVERB . Gruß Stefan
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
cadking am 26.10.2004 um 14:40 Uhr (0)
Hallo Holger und Thomas, jetzt bin ich noch ruhiger, denn es funzt jetzt. Was so ei : doch bewirken kann. Noch ne Frage: kann es sein, dass in einer Lisp folgendes nicht funktioiert? (command _explode _all ) um alle Objekt aufzulösen. Wie muss es richtig heissen? Danke Stefan
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
cadking am 26.10.2004 um 14:15 Uhr (0)
Hallo Thomas, noch bin ich ganz ruhig. Natürlich habe ich nach dem defun in der pverb.lsp gesucht. Da steht zum Starten (defun C verb (/.... geladen wird die routine auch, aber ausgeführt wird sie nicht. Wenn ich in der Befehlszeile nach erscheinen der Fehlermeldung no function definition: PVERB pverb eingebe, läuft die routine 1a ab. noch ganz ruhig - Stefan
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
cadking am 27.10.2004 um 10:17 Uhr (0)
Danke für Eure Hilfe, ich habe die Lösung gefunden: ;explodieren aller (LW)POLYLINIEN (defun C:expl ( / expausw expanz expallobj lastexp) (setq expausw (ssget X ((0 . *POLY* )))) (Setq expanz (sslength expausw)) (repeat expanz (setq expallobj (ssget X ((0 . *POLY* )))) (setq lastexp (ssname expallobj 0)) (command _.explode lastexp) ) )
|
| In das Form AutoLisp wechseln |
