Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  Public Sub benennen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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


Sehen Sie sich das Profil von Einstein an!   Senden Sie eine Private Message an Einstein  Schreiben Sie einen Gästebucheintrag für Einstein

Beiträge: 94
Registriert: 20.02.2005

erstellt am: 25. Jun. 2007 22:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Carsten1210 an!   Senden Sie eine Private Message an Carsten1210  Schreiben Sie einen Gästebucheintrag für Carsten1210

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Einstein 10 Unities + Antwort hilfreich

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 ansehenHolzhandwerk
Stelli1
Moderator
Verm.-Ing.


Sehen Sie sich das Profil von Stelli1 an!   Senden Sie eine Private Message an Stelli1  Schreiben Sie einen Gästebucheintrag für Stelli1

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Einstein 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz