---

Hallo, ich bastel immernoch oder schon wieder an meinem
Problem, dass im Modell das Ansichtsfenster/Zeichnungsfenster vertikal geteilt
werden soll und dann in jedem ein anderes BKS aktiviert werden soll.
Das Teilen klappt. Das Aktivieren der Fenster nacheinander mit VBA klappt so
automatisch nicht; daher versuche ich nun den Benutzer aufzufordern,das Fenster durch
reinklicken zu aktivieren.
Leider komme ich da auch nicht weiter  .....
Wer kann mir hierzu einen Tip geben???

    Set model = ThisDrawing.ModelSpace
    '---- der Modellbereich wird zur weiteren Bearbeitung in zwei vertikale Ansichtsfenster geteilt ----
    ' ---- Erstellen und Aktivieren eines neuen Ansichtsfensters ----
    Dim vportbenutzer As AcadViewport
    ThisDrawing.Viewports.DeleteConfiguration ("benutzeransicht")
    Set vportbenutzer = ThisDrawing.Viewports.Add("benutzeransicht")
    ThisDrawing.ActiveViewport = vportbenutzer
   
    ' vport in 2 Fenster teilen
    vportbenutzer.Split acViewport2Vertical
    ThisDrawing.ActiveViewport = vportbenutzer
   
    MsgBox ("Ansichtsfenster wurde geteilt")
   
    Dim Promptfenster As String
    Dim Klick As String
    Set model = ThisDrawing.ModelSpace
    Promptfenster = "Bitte in rechtes Ansichtsfenster klicken:"
    ThisDrawing.Utility.GetString , Klick, Promtfenster
        ThisDrawing.SendCommand ("bks" + vbCr + "EN" + vbCr + "HO" + vbCr + "stationsebene" + vbCr)
        ThisDrawing.SendCommand ("drsicht a ")
        MsgBox ("Draufsicht BKS Stationsebene wurde erstellt")
         
    Promptfenster = "Bitte in linkes Ansichtsfenster klicken:"
    ThisDrawing.Utility.GetEntity , Klick, Promtfenster
        ThisDrawing.SendCommand ("bks" + vbCr + "EN" + vbCr + "HO" + vbCr + "achsenebene" + vbCr)
        ThisDrawing.SendCommand ("drsicht a ")
        MsgBox ("Draufsicht BKS Achsenebene wurde erstellt")
       
    MsgBox ("Fertig zur weiteren Bearbeitung")

Viele Grüße
GJ-Werner

------------------
D. Werner

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

---

Hi,

>> ThisDrawing.Utility.GetEntity , Klick, Promtfenster

An GetEntity musst Du eine Variable für Element übergeben, ohne diesem fliegt GetEntity ab.
GetPoint wäre aber auch eine Variante.

- alfred -

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

---

Danke alfred,
irgendwie habe ich gar nicht an GetPoint gedacht...
So funktioniert es nun

    Set model = ThisDrawing.ModelSpace
    Dim vportbenutzer As AcadViewport
    ThisDrawing.Viewports.DeleteConfiguration ("benutzeransicht")
    Set vportbenutzer = ThisDrawing.Viewports.Add("benutzeransicht")
    ThisDrawing.ActiveViewport = vportbenutzer
    ' vport in 2 Fenster teilen
    vportbenutzer.Split acViewport2Vertical
    ThisDrawing.ActiveViewport = vportbenutzer
   
    MsgBox ("Ansichtsfenster wurde geteilt")
   
    Dim promptrechts As String
    Dim promptlinks As String
    Dim klickrechts As Variant
    Dim klicklinks As Variant
   
    promptrechts = "Bitte in rechtes Ansichtsfenster klicken:"
    klickrechts = ThisDrawing.Utility.GetPoint(, promptrechts)
        ThisDrawing.SendCommand ("bks" + vbCr + "EN" + vbCr + "HO" + vbCr + "stationsebene" + vbCr)
        ThisDrawing.SendCommand ("drsicht a ")
        MsgBox ("Draufsicht BKS Stationsebene wurde erstellt")
         
    promptlinks = "Bitte in linkes Ansichtsfenster klicken:"
    klicklinks = ThisDrawing.Utility.GetPoint(, promptlinks)
        ThisDrawing.SendCommand ("bks" + vbCr + "EN" + vbCr + "HO" + vbCr + "achsenebene" + vbCr)
        ThisDrawing.SendCommand ("drsicht a ")
        MsgBox ("Draufsicht BKS Achsenebene wurde erstellt")
       
    MsgBox ("Fertig zur weiteren Bearbeitung")

Vielen Dank und Viele Grüße
GJ-Werner

------------------
D. Werner

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