| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Public Sub benennen (634 mal gelesen)
|
Einstein Mitglied Zerspanungsmechaniker-Drehtechnik
Beiträge: 94 Registriert: 20.02.2005
|
erstellt am: 25. Jun. 2007 22:22 <-- editieren / zitieren --> Unities abgeben:
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 |
Carsten1210 Mitglied staatl. geprüfter Holztechniker
Beiträge: 1357 Registriert: 24.07.2002 AutoCAD ACA 2018 Solidworks 2016 Sp5 Enterprise PDM 2016 Sp5 Pascam Woodworks Visual Studio 2017 Pro Windows 10 64Bit Dell T3620 Intel Core i7-7700K 16 GB Arbeitsspeicher 2x Samsung S24C650 Dell M4800
|
erstellt am: 26. Jun. 2007 06:58 <-- editieren / zitieren --> Unities abgeben: Nur für Einstein
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 |
| Tischlermeister / Holztechniker (w/m/d) als Leiter für die Arbeitsvorbereitung | Dula ist eines der führenden Unternehmen im Bereich der ganzheitlichen Ladengestaltung und des exklusiven Innenausbaus in Europa. Rund 800 Beschäftigte engagieren sich weltweit für die kreative Planung, Entwicklung, Produktion und Montage von namhaften nationalen und internationalen Kundenprojekten, u.?a. aus der Mode-, Kosmetik-, Automobil-, Retail- und IT-Branche, die für Individualität und hohen Erlebniswert stehen und die Handschrift von Dula tragen.... | Anzeige ansehen | Holzhandwerk |
|
Stelli1 Moderator Verm.-Ing.
Beiträge: 1521 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 26. Jun. 2007 21:43 <-- editieren / zitieren --> Unities abgeben: Nur für Einstein
Hallo, meinst du so was ??? Der Aufruf einer Funktion oder Sub erfolgt per Variable.
Code: Option ExplicitSub 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 |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|