---

Moin !

wer kenn sie nicht, die Anweisung eine bestimmte Datei zu laden, wenn eine Funktion nicht verfügbar ist um diese dann zu starten:

Code:

---

^C^C^P(if(not c:3dstiftschrauben)(load"tools")(princ));3dstiftschrauben

---

Meine Aufgabe geht nun in eine etwas andere Richtung. Gebe eine Meldung aus, wenn eine Funktion nicht verfügbar. Wenn vorhanden, dann selbstverständlich ausführen. Im Grund wäre das dann

Code:

---

^C^C^P(if(not c:3dstiftschrauben)(alert "Funktion steht nicht zur Verfügung")(c:3dstiftschrauben))

---

Nun möchte ich nicht hinter jeden Befehlsaufruf dieses alles schreiben, sondern hätte gerne eine kompakte Funktion die das alles erledigt. Das ganze sieht dann so aus:

Code:

---

(Defun Funktionstest (Funktionsname / )
  (if(not c:3dstiftschrauben)
    (alert "Funktion steht nicht zur Verfügung")
    (c:3dstiftschrauben)
  )
)

---

mit einem entsprechenden Aufruf

Code:

---

^C^C^P(Funktionstest "3dstiftschrauben")

---

Nun komme ich zu meiner Frage - kann mir einer Weiterhelfen bei der Fragestellung wie ich den Befehlsnamen verwertbar in die Lisp-Funktion einbauen kann?

Gruß Jan

------------------
jan :-)

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

---

Moin Jan,

mit (type ..) kannst du das prüfen:

Code:

---

(princ "Nicht geladen: ")
(terpri)
(princ (type c:JanT))
(defun c:JanT ()
(princ "Jan Tappenbeck")
)
(princ "\ngeladen: ")
(terpri)
(princ (type c:JanT))

---

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Guten Morgen Holger,

und erst einmal vielen Dank.

Aber zunächst - wer oder was ist

Code:

---

(terpri)

---

??

In Deinem Beispiel arbeitest Du aber mit einem "festen" Funktionsnamen. Mir geht es darum den Namen dynamisch in die Funktion "Funktionstest" irgendwie einzubauen!

Gruß Jan

------------------
jan :-)

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

---

(defun TESTFUNC(FUNCNAME)
  (if(or(=(type FUNCNAME)'SUBR)
        (and(=(type FUNCNAME)'STR)(=(type(eval(setq FUNCNAME(read FUNCNAME))))'SUBR))
    )
    (progn
      (princ "\nvorhanden..")
      ((eval FUNCNAME))  ;;Kann man auch lassen und 'T zurückgeben
    )
    (progn
      (princ(strcat "\nFunktion : "(vl-princ-to-string FUNCNAME)" nicht vorhanden."))
      nil
    )
  )
)

(defun C:MEINEFUNC()
  (princ"\nAlles klaro")(princ)
)

Aufruf
(TESTFUNC C:MEINEFUNC)
oder
(TESTFUNC "C:MEINEFUNC")

und zu (terpri)  .. meine Hilfe ( über F1 zu erreichen ) sagt : Prints a newline to the command line

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Moin !

das ist die Richtung in die ich wollte.

Bei mir hat es auf Anhieb nicht funktioniert und erst als ich aus SUBR -> USUBR gemacht habe hat es mit MEINEFUNC bei mir (Map 2015) funktioniert.

Nun hatte ich von Anfang eines verheimlicht. Es geht um Befehle die von einer DLL über die Befehlszeile zur Verfügung gestellt werden. Vom Grundsatz hatte ich mir gedacht, dass dieses dasselbe sein müsste. Ist aber wohl nicht ganz so. Mit MEINEFUNC hat es geklappt. Mit dem DLL-Befehl allerdings nicht. (im übrigen mit den Standardbefehlen - hier PLINE als Test - auch nicht!) Daraufhin habe ich einige Ausgabe eingefügt:

Code:

---

(defun TESTFUNC(FUNCNAME)

(princ "\ntype: ")(princ (type FUNCNAME))
(princ "\ntype2: ")(princ (type(eval(setq FUNCNAME(read FUNCNAME)))))
 
  (if(or(=(type FUNCNAME) 'USUBR)
        (and(=(type FUNCNAME)'STR)(=(type(eval(setq FUNCNAME(read FUNCNAME))))'USUBR))
    )

---

Hier die Testwerte:

Zitat:

---

Befehl: (TESTFUNC "C:MEINEFUNC")
vorhanden..
Alles klaro

Befehl: (TESTFUNC "C:MEINEFUNC2")
Funktion : C:MEINEFUNC2 nicht vorhanden.nil

Befehl: (TESTFUNC "C:MEINEFUNC2")
type: STR
type2: nil

Funktion : C:MEINEFUNC2 nicht vorhanden.nil

Befehl: (TESTFUNC "C:EBL_Optionen")
type: STR
type2: nil

;; einfach mal so eingeben ...
Funktion : C:EBL_OPTIONEN nicht vorhanden.nil

;; nachfolgender Aufruf funktioniert ..
Befehl: EBL_OPTIONEN

Befehl: (TESTFUNC "EBL_Optionen")
type: STR
type2: nil
Funktion : EBL_OPTIONEN nicht vorhanden.nil

Befehl: (TESTFUNC "C:Plinie")
type: STR
type2: nil
Funktion : C:PLINIE nicht vorhanden.nil

Befehl: (TESTFUNC "Plinie")
type: STR
type2: nil
Funktion : PLINIE nicht vorhanden.nil

---

Hat einer eine Idee und ist da vielleicht ein Unterschied in den Befehlen ..... ?

Gruß Jan

------------------
jan :-)

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