---

zeichenansicht.jpg

Hallo Leute,

ich habe in einer Zeichnung eine Zeichenansicht "Zeichenansicht1"
und davon eine Schnittansicht "Schnittansicht A-A".

Die Schnittansicht lässt sich mit dem Befehl:

Drawing.SelectByID "Schnittansicht A-A", "DRAWINGVIEW", 0, 0, 0

nicht selektieren.

Verwende ich hingegen:

Drawing.SelectByID "Zeichenansicht2", "DRAWINGVIEW", 0, 0, 0

geht es. Es scheint so dass SW intern einen anderen Namen für die
Zeichenansichten benutzt wie diese im Featurebaum dargestellt sind.

Die Frage ist nun wie komme ich an diesen Namen oder an das Objekt?

Gruss
Reiner

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

---

Hi,
an den Namen der Zeichenansicht kommt man nur, wenn man mit

SetView = Drawing.GetFirstView
Do While Not View Is Nothing
ViewName = View.Name
Set View = View.GetNextView
Loop

Eine andere Möglichkeit, als alle Views durchzulaufen, gibt es meines Erachtens nicht.

Gruß,
Stefanie Diesterich
SOLID LINE Sales & Support
SalesSupport Norddeutschland

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

---

Hallo Stefanie,

vielen Dank für den Tipp. Ich habe das auch schon getestet. Leider
ohne Erfolg. Die Schnittansicht lässt sich unter dem ermittelten
Namen (Schnittansicht A-A) nicht aktivieren.

Um in die Schnittansicht zusätzliche Zeichnungselemente einzufügen
muss diese aber aktiv sein. Ich habe im Kontextmenü eine Option
"Sprung zu Elternansicht" gefunden von der ich dachte dass sie
mich weiterbringt. Ich kann in der API-Hilfe aber keine
entsprechende Methode finden.

Gruss
Reiner

---------- Auszug VB Programm -----------------------------

Dim oDrawing As Object
Dim oView As Object
Dim oSection As Object
Dim oSectView As Object

Set oDrawing = oSwApp.ActiveDoc
Set oView = oDrawing.GetFirstView()
While Not oView Is Nothing
Set oSection = oView.GetSection

If Not oSection Is Nothing Then
Set oSectView = oSection.GetSectionView()

If Not oSectView Is Nothing Then
If Not oDrawing.ActivateView(oSectView.Name) Then
MsgBox "Zeichenansicht " & oSectView.Name & " kann nicht aktiv gesetzt werden !"
End If
End If
End If

Set oView = oView.GetNextView()
Wend

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