---

Hallo Forum,
ich frage im Auftrag unseres Programmierers, der grade überhaupt keine Zeit hat:

Gibt es in VBA die Möglichkeit, dem Programm mitzugeben, dass es nach Programmende mit Rechter Maustaste wiederholt werden kann (Wiederholen: Programm xyz)?

Viele Grüße Petra

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

---

IMHO muß die Funktion in Acad als BEFEHL angemeldet werden
Lisp bietet da (defun C:NAME()..)  .. VBA kann das IMHO nicht ( ich kenn mich da aber nur Oberflächlich aus)

Eine (rudimentäre) Möglichkeit wäre dann sowas
(defun C:BEFEHLSNAME()
  (vl-vbaload "D:\\MDT2004\\Sample\\VBA\\cntrline.dvb")
  (vl-vba-run "AutomaticCenterLines")
)

command mit vbaload und vbarun gehen natürlich 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

---

Hi,

na dann schöne Grüße an den Programmierer ohne Zeit.  

Und die (erste) Antwort wird wenig erfreulich sein, denn die Frage wörtlich genommen kann ich nur mit NEIN beantworten.
Wieso: in VBA kannst Du 'dem Programm' nicht mitteilen, dass es sich in AutoCAD bei <ENTER> wiederholt.

Du kannst aber den Aufruf zu der VBA-Sub so in AutoCAD definieren, dass die rechte Maustaste die Option Befehl wiederholen anbietet. Dazu wäre ein kleines Lisp-Statement dem AutoCAD beizubringen und dann sollte das funktionieren. Z.B:

(defun C:mySUB()(command "_-VBARUN" "mySub"))

Startet man in AutoCAD nach dieser Initialisierung den Befehl mySUB, dann erhält mach danach auch per rechter Maustaste die Kontextauswahl 'Wiederholen mySUB'

[EDIT] hab wieder mal geschlafen, möge man/Frau mir verzeihen  [/EDIT]

- alfred -

------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 15. Mrz. 2010 editiert.]

---

Aha!  Das hört sich doch ganz gut an!

Hier ist der Programmaufruf:

Kann man eventuell dort bereits was mitgeben??

^C^C^P(setq datei (strcat ( getenv "SSIMACAD") "Palreg_PR600_Rahmen.dvb!PR600Rahmen.PR600_Rahmen"))(command "-vbarun" datei)

ansonsten Danke vielmals, ich gebe euren Tip an den Programmierer weiter!

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

---

Wiederholen.jpg

Ich nochmal.

Wir haben rausgefunden, dass der Makroaufruf aus der Werkzeugpalette heraus sich mit re.Maustaste wiederholen läßt, anbei ein Foto vom Kontextmenü.
Den Makroaufruf als Befehl in einem Werkzeugkasten funktioniert ebenfalls als Wiederholung mit der Rechten Maustaste.
Genau der gleiche Makroaufruf aus der Ribbon-Oberfläche läßt sich nicht wiederholen, die re.Maustaste wiederholt den vorletzten Befehl.

[Diese Nachricht wurde von Gigerota am 16. Mrz. 2010 editiert.]

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