---

Hallo Forum,
ich als Anfänger in VBA hätte mal eine fragen an euch Profis.

Hab vor kurzen mit dem VBA- Programmieren angefangen. Habe vorher Lisp Routinen geschrieben. Jetzt bin ich auf die verrückte Idee gekommen meine Lisproutinen mit einer Grafischen Oberfläche zu verschönern.
Jetzt zu meinen Fragen:

1.Wie kann ich nach den Klicken eines Button eine Lisp Routine starten?
    Geht das überhaupt?
2. Jetzt komm die frage die mich als Anfänger entlarvt. Kann ich eine VBA Anwendung      durch einen Textbefehl so wie bei Lisp ausführen?

Ich danke eich an dieser stelle schon mal.

FirephoeniX

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

---

1.) Mittels "SendCommand"

2.) Meinst du etwa "vbarun"?

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Danke für die Antwort tunnelbauer,
tut mir leid das ich euch wieder auf die Nerven gehen muss aber ich bekomme das nicht hin.
Bin halt noch extremer Anfänger.
Hab jetzt nach dem rat des Tunnelbauers das Kommando „SendCommand“ genommen.

Hier der Code ist nur ein Test:

Private Sub CBtest_Click()

Me.Hide
ThisDrawing.SendCommand ("text")

End Sub

Es funktioniert auch. Das Pogramm schreib mir den wert unten in die Textleisten. Jetzt muss ich nur wissen wie ich es ausführen kann. Und wie ich das hinbekomme, dass das Useform so lange verschwindet wie der Befehl noch läuft ? Hab mal gelesen das es mit Me.hide gehen soll aber irgendwie geht das nicht. Weiß jemand rat oder kann mir eine Gute Anfänger Seite empfählen wo ich mir so was durchlesen kann ?
Danke im voraus.

FiRepheoniX

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

---

Hi,

Zitat:

---

ThisDrawing.SendCommand ("text")
...
Jetzt muss ich nur wissen wie ich es ausführen kann

---

In der Sprache des Anwenders hätte ich mal gesagt, die Buchstaben T E X T hinschreiben, ist ok, aber dann musst Du <ENTER> drücken;) , in der Sprache des Programmierers heisst das dann:

Code:

---

ThisDrawing.SendCommand ("text" & vbcr)

---

Zitat:

---

Und wie ich das hinbekomme, dass das Useform so lange verschwindet wie der Befehl noch läuft

---

Ich schreibe meine Programme in der Regel so, dass ich nicht einen AutoCAD-Befehl anstarte und dem User die Eingaben zu dem Befehl machen lasse, denn ich werde kaum (ausser ev. durch Überwachung von ObjectAdded oder ähnliches) im Nachhinein feststellen können, ob der Anwender jetzt alles richtig gemacht hat oder den Befehl abgebrochen hat.
In diesem Fall würde ich zuerst nach einem Einfügepunkt abfragen (über Thisdrawing.Utility.GetPoint), wenn der User hier nicht abgebrochen hat, nach dem Textinhalt (den kannst Du vielleicht sogar schon in Deinem Form mittels einer Textbox eingeben lassen, samt Höhe, ...) und dann verwende ich (für Modellbereich) ThisDrawing.ModelSpace.AddText. Da habe ich die Kontrolle und weiss auch, dass die Form nach 'GetPoint' wieder da sein muss.
Beispiel dafür kannst Du auch in der AutoCAD-VBA-Hilfe finden, suche nach 'AddText Example'.

-------------------------------------------------
Und Lisp kann auch noch ohne SendCommand gestartet werden (ich forumuliere es mal vorsichtig: für Fortgeschrittene;) )

Code:

---

Public Function Acad_EvalLisp(ByRef AcadDoc As AcadDocument, ByVal LispStr As String) As Variant
  'fuehrt ein lispstatement durch, wenn vorhanden, dann wird ergebnis retourniert
  Dim tVL As Object
  Dim tPL As Object
  Dim tRetVal As Variant
  On Error Resume Next
 
  Set tVL = AcadDoc.Application.GetInterfaceObject("VL.Application.16") ' .16 ... muss an jeweilige Version angepasst werden
  If Err.Number = 0 Then Set tPL = tVL.ActiveDocument.Functions.Item("read").funcall(LispStr)
  If Err.Number = 0 Then tRetVal = tVL.ActiveDocument.Functions.Item("eval").funcall(tPL)
 
  Set tPL = Nothing
  Set tVL = Nothing
  If Err Then
      Err.Clear
  Else
      Acad_EvalLisp = tRetVal
  End If
  On Error GoTo 0
End Function

---

......und in den 'normalen' Fällen bekomme ich damit sogar den Return-Wert aus Lisp zurück, leider nur als String. Das ist auch nur ein CodeSchnippsel, d.h. bei oftmaligem Aufruf empfiehlt es sich, das Object 'tVL' getrennt in einer Initialisierung aufzurufen, damit dies eben nur einmal passiert und nicht bei jedem Aufruf.

Zitat:

---

das ich euch wieder auf die Nerven gehen

---

Mach Dir deswegen mal keine Sorgen, die Antworten passieren hier freiwillig, auf die Nerven kann mir nur wer gehen, der 'von mir' etwas verlangt, und das vielleicht auch noch 'begrenzt intelligent' ist. Beides ist bei Dir nicht der Fall

- alfred -

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

---

Hi alfred,

ich danke dir erst mal für die ausführliche antwort.
Werde ich auf jeden fall test.
Ich danke dir auch für deine letzten Worte die haben mir mut gemacht es einfach zu probieren.
Den mit Lisp ist es genau so man muss einfach Üben, Üben, Üben.
Statt meine alten Lisp Routinen in VBA einzubringen werde ich, mal probieren diese in VBA zu schreiben. Obwohl ich die Symtax in VAB irgendwie Komisch finde  .
Kennt ihr vielleicht eine geeignete Seite wo VBA von anfange an beschrieben wird.
Ich kenn nur die:
http://www.battefeld.com/Anwenderberichte_und_Erfahrung/VBA_fuer_BircsCad__IntelliCAD_/VBA_Grundlagen_fur_AutoCAD__Te/vba_grundlagen_fur_autocad__te.html
http://www.afralisp.net/index.htm

Ich finde die setzen viel zu viel Vorwissen voraus.

Mit freundlichen Grüßen

FirephoeniX

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

---

Hi,

bei Büchern musst Du unterscheiden, was ist AutoCAD-spezifisch und was ist allgemeines VBA (auch gültig dann in Excel, Word, ...)

Allgmein hätte ich (auf die schnelle) gefunden: http://www.vb-seminar.de/ welches mir nach ein paar Minuten überfliegen ganz ok aussieht, aber finden wirst Du im Internet jede Menge.

Schwerer wird es dann schon, wenn Du VBA mit AutoCAD in Kombinaton suchst. Da hätte ich aber mal vermutet, nachdem Du den internen Aufbau der AutoCAD-Objekte durch Lisp ja schon kennst, dass Du nach obiger allgemeiner 'Schulung' relativ einfach reinkommen wirst.

Viel Erfolg, - alfred -

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

---

Für die Verbindung AUTOCAD und VBA finde ich AutoCAD programmieren mit VBA recht ok

------------------
  - 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

---

Und wenn's bloß um die Benutzeroberfläche der Lisp's geht: Schau Dir mal OpenDCL an (opendcl.com). kost' nix! Damit kriegst Du Dialoge hin wie Du sie mit VB nicht so leicht zusammenbringst.

Grüße

Martin

------------------
You seem (in my (humble) opinion (which doesn't mean much)) to be (or possibly could be) more of a Lisp programmer (but I could be (and probably am) wrong).

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

---

Hallo Hunchback,
dein Programm finde ich Super. Habe es mir sofort geholt und ausprobiert. Aber irgendwie verstehe ich es nicht ganz.
Gibt es vielleicht ein Deutsches Tutorial womit mir der Einstieg ein bisschen leichter fällt.
Zur Not würde ich auch ein Englische nehmen.

mfg

FirePhoenix

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

---

Am einfachsten im OpenDCL Forum registrieren. Im Forum gibt's dann einen Downloadlink zu einem AU - Tutorial (mit vielen Beispielen).Ist aber leider nur auf Englisch. Im Help-Menu des OpenDCL-Studios ist auch ein kleines Tutorial (Englisch) zu finden.

Grüße

Martin

------------------
You seem (in my (humble) opinion (which doesn't mean much)) to be (or possibly could be) more of a Lisp programmer (but I could be (and probably am) wrong).

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