---

Hallo Leute,

ich möchte über ein Lisp-Programm / DCL Dialog, auf alle zur Zeit geöffneten DWGs zugreifen. Also durch Klick auf eine Zeichnung, soll dann das entsprechende Fenster aktiviert werden.

Geht das in Lisp (hab nix gefunden) oder wie könnte man das anders lösen. Als Parameter für den Aufruf wird der Zeichnungsname übergeben.

Über Lösungen wär ich dankbar.

Schönen Sonntag noch :-)  (Wetter passt ja)

Wilfried Nelkel

------------------
Schöne Grüsse

Wilfried Nelkel 

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

---

Hi Wilfried,

mit Lisp kann ich Dir nicht dienen,
hier ein 'gruseliger VBA-Code' - hoffentlich bekomm ich keine Prügel hier ;-)

CU Nancy
--
Userform1.frm

Code:

---

Option Explicit
Private Sub UserForm_Initialize()
  Dim i%
  For i = 0 To Documents.Count - 1
      ListBox1.AddItem Documents.Item(i).Name
  Next
End Sub

Private Sub ListBox1_Click()
  Dim i%
  With ListBox1
      For i = 0 To .ListCount
        If .Selected(i) Then
            if Documents(i).WindowState = acMin then Documents(i).WindowState = acNorm
            Documents(i).Activate
            Exit For
        End If
      Next
  End With
End Sub

---

Modul1 normales Modul

Code:

---

Sub allDrawings()
Userform1.show 0 '0=modal 1=default wenn keine Angabe
end Sub

---

   

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

---

Hy Nancy,

danke für die schnelle Antwort. Aber wie starte ich das Programm aus einem Lisp heraus?

Wahrscheinlich bekomme ich jetzt Prügel, weil ich so doof frage, aber ich hab mich leider noch nie mit VBA oder VB befasst. :-(

Ich möchte ja ausserdem den Zeichnungsnamen der geöffneten AutoCAD-Datei als Parameter mit übergeben.

------------------
Schöne Grüsse

Wilfried Nelkel 

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

---

Mannomann. Ich war mal wieder viel zu schnell mit der Frage. Noch nicht mal ausprobiert.
Is ja total easy (wenn fraus kann.)

Aber irgendwie hängt mein AutoCAD, wenn ich auf einen DCL-Button klicke (unload_dialog ....) und dann (VBARUN mit dem Modulnamen) reinschreibe. Beim erstenmal gehts beim zweitan Mal kommt der Makroeditor. Vielleicht muss ich erst das VBA-Modul laden und dann nur noch starten?

Keine Ahnung. Irgendwie finde ich VBA viel schwerer als AutoLisp. Oder täusch ich mich da? :-)

------------------
Schöne Grüsse

Wilfried Nelkel 

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

---

frmDraws.zip

Hi nochmal,

> Keine Ahnung. Irgendwie finde ich VBA viel schwerer als AutoLisp.
> Oder täusch ich mich da? :-)

also da fragst Du wohl die Falsche ;-) dito! Nur mir gehts genau andersrum ...

Wie Du das aus Lisp heraus startest, sorry, weiss nicht, ob & wie das geht.
Desweiteren weiss ich nicht, wie general rein unter lisp lösbar,
ich mein wir sind ja hier in ebendiesem Forum [eigentlich hab ich mich nur reingedrängelt] ;-)

Okay, sei's wies sei:

den Anhang müsstest Du im VBE im Projektexplorer via RMK-Import reinholen.
Danach noch unter Einfügen -> Modul wählen und da einfach ins Codefenster reinschreiben/kopieren:

~~~~~
sub keineIdee()
frmDraws.show
end sub
~~~~~

that's all, oder solltes gewesen sein, dann kannste aus der ACAD-Umgebung via Alt+F8 das Makro 'keineIdee' starten [hoffentlich] 

Ansonsten wollt ich jetz aber keinen überzeugten Lispler umkrempeln, wer's besser weiss der melde sich bitte ... und mein Code is sicher [wie immer] nicht das gelbe vom Ei

lg Nancy
                       

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

---

@ Wilfried

Wenn du das nicht unbedingt selber basteln willst, gibt es sowas fertig als Freeware.
Heißt "Docbar" siehe unter www.cadwerx.net !
Wenn es dir wirklich nur ums umschalten geht.

Tschüß Frank!

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

---

Hallo Frank,

danke für den Hinweis. Aber ich bräuchte eine Idee, wie ich aus einem Lispprogramm heraus die aktiven Zeichnungen durchschalten kann.

Leider kann das Programm von Nancy zwar die Zeichnungen durchschalten, aber irgendwie finde ich nicht den Weg, den Zeichnungsnahmen aus einem lisp-Programm heraus als Parameter zu übergeben, um das gewünschte Zeichenfenster zu aktivieren.

Vielleicht bin ich ja auch nur zu doof.

------------------
Schöne Grüsse

Wilfried Nelkel 

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

---

(vl-load-com)
(defun DOCUMENT-ACTIVATE (DOCUMENT / FOUND)   
  (vlax-for ITEM (vla-get-documents
                  (vlax-get-acad-object)
                )
    (if (and(not FOUND)
            (=(strcase(vla-get-name ITEM))(strcase DOCUMENT))
        )   
      (setq DOCUMENT ITEM
            FOUND    'T
      )
    )
  ) 
  (if FOUND (vla-activate DOCUMENT))
)

Aufruf dann mit (document-activate "Zeichnung1.dwg")

Zu bedenken ist allerdings, das das Lisp normalerweise in eine Zeichnung geladen wird, und nur da läuft (namespace usw., aber das erklärt dir MAPCAR vielleicht genauer (und mir auch)), d.h. nach dem Aktivieren der neuen Zeichnung "hängt dein Programm"

------------------
- Thomas -

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