---

Hallo Forum, hat jemand von hier eine Idee, wie man den Name eines "Public Sub" an eine Variable bindet?

Wie Ihr je sicherlicht wisst, kann ein in Lisp definierter Befehl, den gleichnamigen "Public Sub" in VBA ausführen. Da mein Tool einen Benutzerdefinierten Befehl verwenden soll, muss ich natürlich auch den "Public Sub" so benennen. Deshalb müsste dieser variabel sein um ihn den Name des Befehls zuweisen zu können. ...Wie geht das?

Schriebt doch mal was!

------------------
MfG  A. Einstein    

P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!

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

---

Hi Einstein,

Ich verstehe zwar nicht wirklich, was du vor hast, aber einen Befehl kannst du wie folgt definieren:
(Defun c:Stempel (/) (VL-VBARun "Stempel"))
Danach kannst du im Autocad mit dem Befehle "stempel" die Public Sub "Stempel" aufrufen.
Pack das am besten in die Acaddoc.lsp und diese ins Support-Verzeichnis. Damit wird die Lisp automatisch beim Start geladen.

Gruß, Carsten

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

---

Hallo,

meinst du so was ???
Der Aufruf einer Funktion oder Sub erfolgt per Variable.

Code:

---

Option Explicit

Sub Test1()
    Debug.Print "Sub Test1"
End Sub
Sub Test2()
    Debug.Print "Sub Test2"
End Sub
Sub Test3()
    Debug.Print "Sub Test3"
End Sub
Sub Test4()
    Debug.Print "Sub Test4"
End Sub

Sub evalDemo()
    Dim strSub As String
    Dim i As Integer
   
    Eval ("fTest1 (1)")
    For i = 1 To 4
        Eval ("call Test" & CStr(i))
    Next i

    MsgBox "Ende"
End Sub

Function fTest1(Parameter As Integer) As String
    fTest1 = "Funktion 1"
   
End Function

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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