---

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))
(repeat objanz
(setq laakt (ssget "l"))
(print laakt)
(setq las (ssname laakt 0))
(print las)
(setq elist (entget las))
(print elist)
(setq lalist (assoc 8 elist))
(print lalist)
(setq aktla (cdr lalist))
(print aktla)
(command ".-layer" "_se" aktla "_off" "*" "_on" aktla "" "")

(if (setq lst (acet-overkill-ui nil))
(acet-overkill2 lst)
);if
(acet-error-restore)
(command ".-layer" "_on" "*" "_se" "0" "_fr" aktla "" "")
(hier extene Lisp [PVERB.LSP] starten und dann weiter mit repeat)
);end repeat

Gruß Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

müsste so gehen

(command ".-layer" "_th" "*" "_on" "*" "" "")
(setq allobj (ssget "X" (list '(-4 . "<AND")(cons 8 "*")'(-4 . "AND>"))))
(Setq objanz (sslength allobj))
(repeat objanz
(setq laakt (ssget "l"))
(print laakt)
(setq las (ssname laakt 0))
(print las)
(setq elist (entget las))
(print elist)
(setq lalist (assoc 8 elist))
(print lalist)
(setq aktla (cdr lalist))
(print aktla)
(command ".-layer" "_se" aktla "_off" "*" "_on" aktla "" "")

(if (setq lst (acet-overkill-ui nil))
(acet-overkill2 lst)
);if
(acet-error-restore)
(command ".-layer" "_on" "*" "_se" "0" "_fr" aktla "" "")
(load "PVERB")(pverb)
);end repeat

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

eine Lispdatei kann man laden : (load "PVERB.LSP")
auch in einer Repeatschleife .. da werden dann jedesmal die gleichen Funktionen definiert .. ob das sinn macht? .. ruf doch besser die in der  "PVERB.LSP" definierte Funktion (defun ...???)
in deiner Routine auf z.B. (c verb)

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

..gaaanz ruhig : guck erstmal hier
such nach nem defun in der Lisp und gucke, welche mit defun definierte Funktion du brauchst. Guck die überhaupt mal in der Hilfe im Vlispeditor den Text zur funktion defun an

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

pverb.lsp.txt

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

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stefan,

wenn dort (defun c:pverb ...steht, dann ist der Aufruf in Lisp auch
(c:pverb)

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

aufruf mit (c:NAME)

------------------
.Signatur hat derzeit leider Urlaub.

[Diese Nachricht wurde von cadffm am 26. Okt. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

na dann mußt du es auch so aufrufen:
(load "PVERB.LSP")(c verb)

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

richtig, das ist so / bitte nutze hierzu mal die Suchfunktion !
zB hier: http://ww3.cad.de/foren/ubb/Forum145/HTML/000249.shtml

------------------
.Signatur hat derzeit leider Urlaub.

[Diese Nachricht wurde von cadffm am 26. Okt. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi CADking,
ich LIEBE Crosspostings...
Guckst Du hier: http://www.industrie24.com/bbs/read.php?f=5&i=8643&t=8639
...

...

------------------
Ciao,
Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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)
)
)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wenn dann so :

(defun c:EXPL(/ AUSWAHL INDEX)
  (if(setq Auswahl(ssget "_X" '((0 . "*POLYLINE"))))
    (progn
      (setq INDEX -1)     
      (repeat (sslength AUSWAHL)       
        (command "_.explode" (ssname AUSWAHL(setq INDEX(1+ INDEX))))
      )     
    )
  )
)

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP