---

Hallo!

Ich habe gehört das hier im VBA-Forum vielleicht der Schlüssel zúr Lösung meines Problems liegt...

Habe im "Rund um AutoCAD"-Forum bereits einige Hilfe erfahren, allerdings das gewünschte Ergebnis nur zum Teil erreicht. Es geht um folgendes:

In einige Zeichnungen muss vor dem Plotten ein Stempel eingefügt werden um sie eindeutig zu kennzeichnen. Damit dies nicht vergessen wird soll vor beim Aufruf des Plotbefehls ein Hinweisfenster aufpoppen.

Zum Beispiel: "Stempel einfügen nicht vergessen (wenn notwendig)!"

So kann der User bei Bedarf den Plot-Befehl abbrechen und den Stempel einfügen, oder einfach OK drücken und weiterplotten.

Nun müssen aber alle Zeichnungen die einen Stempel erhalten haben zentral erfasst werden. Dies soll in einer Excel-Tabelle geschehen. Ich dachte zunächst eine Verknüpfung des Stempels (ein Block) mit der Excel-Liste über einen Hyperlink wäre eine tolle Lösung. Allerdings gefällt mir das nun doch nicht. Das Symbol ist sehr klein und der Weg dorthin über Markieren > RMT > Hyperlink > Öffnen... sehr lang.
Schöner wäre es man hätte bereits in dem Popup eine Verbindung zu der Excel-Liste, z.B. so:

"Stempel einfügen nicht vergessen (wenn notwendig)!
Zum Öffnen der Excel-Liste bitte hier klicken."

Im Rund um AutoCAD-Forum hab ich nun erfahren das ein solcher Hyperlink in einem alert nicht möglich ist. Also muss was anderes her. Mein bisheriger Code sieht so aus:

(defun C  lot ( )
  (alert "Stempel einfügen nicht vergessen (wenn erforderlich)!")
  (initdia)
  (command ".plot")
  (princ)
)

Ich denke ich muss die alert-Zeile ersetzen und an dieser Stelle ein weiteres Programm aufrufen oder? Wie macht man das am elegantesten? Und wie sieht dann dieses weitere Programm aus? Wie erstelle ich ein Fenster mit einem Hyperlink und einem Ok-Button zum Schließen des Fensters? Leider habe ich mit VBA-noch keinerlei Erfahrung...

Habe bislang nur so etwas gefunden:

(command "start" "Liste.xls") --> Kann man das mit einem Text oder Button verknüpfen?

Dankeschön.

[Diese Nachricht wurde von kschlepp am 27. Jun. 2007 editiert.]

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

---

Kleine Info am Rande:

Der Code den du oben gepostet hast ist LISP - und das ist hier das VBA-Forum... sozusagen eine inkompatible Mischung zweier Programmiersprachen...

Du solltest dich entscheiden, in welcher Sprache es abgewickelt werden soll...

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

Thomas

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

---

Ich hatte es so verstanden als wenn die beiden miteinander kommunizieren können... aber trotzdem Danke, ich probiers nochmal im LISP-Forum...

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

---

Hallo,

ich denke mit VBA kann man deine Aufgabe schon lösen.
Wie sieht es denn mit deinen VBA Kenntnissen aus ?
Hier mal eine Anregung:

Code:

---

Private Sub AcadDocument_BeginPlot(ByVal DrawingName As String)
    Dim Blockvorhanden As Boolean
    Dim Antwort As VbMsgBoxResult
    ' Verweis aud Excel einbinden !!! (Extras/Verweise)
    Dim Excelapp As Excel.Application
    Dim ExcelWB As Excel.Workbook
    Dim ExcelWS As Excel.Worksheet
   
    ' Schauen ob der Stempel da ist.
    ' Code musst du noch schreiben
   
    If Not Blockvorhanden Then
      ' Plot abbrechen
      SendKeys Chr$(27)
      DoEvents
     
      ' Hinweis
      Antwort = MsgBox("Stempel nicht vorhanden!" & vbCrLf & "Excel wir geöffnet", vbCritical + vbOKCancel, "Plotüberwachung")
      If Antwort = vbOK Then
          ' Excel öffnen
          Set Excelapp = New Excel.Application
          Excelapp.Visible = True
          Excelapp.Workbooks.Open "C:\TEmp\Test.xls"
          Set ExcelWB = Excelapp.Workbooks(1)
          Set ExcelWS = ExcelWB.Sheets("Tabelle1")
          ExcelWS.Cells(1, 2) = ExcelWS.Cells(1, 2) + 1
         
      Else
          ' Abbruch
          Exit Sub
      End If
    End If
   
End Sub

---

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