---

also ich rufe in einem lisp ein lisp auf

(c:explode_all) ;das ist ein lisp von marc.scherler

wie kann ich im einem wert mit geben?

z.B.

(C:explode_all "ja") wie geht das?

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

---

Hallo Michelangelo,

die mögliche Übergabe von Parametern wird in der aufgerufenen Lisp-Datei festgelegt.

(defun msg (TEXT /)
(alert TEXT)
)
(msg "Texttext")

Du wirst dir dann also die Lisp-Datei dementsprechend anpassen müssen, dass du diesen Parameter gleich mitgeben kannst.
Allgemein:
(defun FunktionsName (argument1 argument2 / lokaleVariable1 lokaleVariable2)
;...
)
(FunktionsName WertfürArgument1 WertfürArgument1)

Bei Fragen ...

Grüße Holger

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

Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich!

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

---

Holger meint das sicher so :

(defun C:EXPLODE_ALL (/ INDEX AUSWAHLSATZ OBJFILTER ASLENGTH)
  (command "_.-layer" "_thaw" "*" "_unlock" "*" "_on" "*" "")
  (setq OBJFILTER (cons 0 "DIM*,INSERT,*POLYLINE,HATCH"))
  (if (not (setq AUSWAHLSATZ
                  (ssget "_I"
                        (list OBJFILTER (cons 410 (getvar "ctab")))
                  ) ;_ end of ssget
          ) ;_ end of setq
      ) ;_ wenn kein pickset vorh.
    (progn
      (setq AUSWAHLSATZ
            (ssget
              "_X"
              (list OBJFILTER (cons 410 (getvar "ctab")))
            ) ;_ end of ssget
      )                            ; nimm alle
      (if AUSWAHLSATZ
        (progn
          (setq INDEX    -1
                ASLENGTH (sslength AUSWAHLSATZ)
          ) ;_ end of if
          (repeat ASLENGTH ;_ end of sslength
            (command "_.explode"
                    (ssname AUSWAHLSATZ (setq INDEX (1+ INDEX)))
            ) ;_ end of command
          ) ;_ end of repeat
          (princ (strcat "\n>> "
                        (itoa ASLENGTH)
                        " << Objekt(e) aufgelöst. "
                ) ;_ end of strcat
          ) ;_ end of princ
        ) ;_ end of progn
        (princ "\nKeine auflösbaren Objekte gefunden!")
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
)

@MARC ... kein (vlax-invoke-methode Objekt 'Explode) ?

------------------
- Thomas -

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

---

Hi CADmium,
@: "... kein (vlax-invoke-methode Objekt 'Explode)?"

Kannte ich da noch nicht :-).
's is relativ alt, damals wußte ich NOCH weniger über Lisp als heute.

@Michel Anderswo:
Marc SCHERER heißt das, nicht Scherler... So viel Zeit muß sein :-)

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

[Diese Nachricht wurde von marc.scherer am 25. Mai. 2004 editiert.]

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

---

danke das gibt 10 U's

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

---

Zitat:

---

Original erstellt von CADmium:
Holger meint das sicher so :

(defun C:EXPLODE_ALL (/ INDEX AUSWAHLSATZ OBJFILTER ASLENGTH)
.....

---

@CADmium
Nein, das meine ich nicht so.
Die Frage war nicht, ob jemand mal eine Lisp ändern könnte, sondern ob und wie man einer Lisp-Routine Parameter mit übergeben kann. Die Routine, die auch nicht beigefügt war, musste ja nur als Bsp herhalten.

EDIT>>Scheinbar meinte michelangelo das doch wie du es verstanden hattest, denn die von ihm angesprochenen Us sind bei mir nicht angekommen, so dass ich davon ausgehe, dass ihm meine Antwort nicht geholfen hat.<<EDIT

Grüße Holger

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

Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich!

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