---

Hi Edger's
ich möchte in einem Draft Ansichten über VB verschieben. Nur leider gibt es keinen Befehl DrawingView.Move.
Weiss jemand wie ich da vorgehen könnte? Der Verschiebungswert (z.B. 50 nach rechts) ist bekannt.

Danke für die Hilfe!
san

------------------
SE V14 SP5

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

---

Hallo San

Ich konnte die View mit folgendem Code in Bewegung versetzen:

Dim objApp As SolidEdgeFramework.Application

Dim objDraft As SolidEdgeDraft.DraftDocument

Dim objSheet As SolidEdgeDraft.Sheet

Dim objDrawingviews As SolidEdgeDraft.DrawingViews

Dim objDrawingview As SolidEdgeDraft.DrawingView

Dim dblxstart As Double                                  ’ X-Koordinate Start

Dim dblystart As Double

Dim dblxend As Double                                    ‘ X-Koordinate Ziel

Dim dblyend As Double

Dim i As Integer

Set objApp = GetObject(, "SolidEdge.Application")

If objApp.ActiveDocument.Type = 2 Then

Set objDraft = objApp.ActiveDocument

Set objSheet = objDraft.ActiveSheet

Set objDrawingviews = objSheet.DrawingViews

MsgBox (objDrawingviews.Count)                      ‘Anzeige wieviele Views auf dem Draft

For i = 1 To objDrawingviews.Count                    ‘in der Schleife alle Views durchlaufen

Set objDrawingview = objDrawingviews.Item(i)   

Call objDrawingview.GetOrigin(X:=dblxstart, Y:=dblystart)            ‘Einlesen des Ursprungs in die Variablen dblxstart und dblystart

dblxend = dblxstart + (50 / 1000)                                              ‘Offset und Startwert verrechnen (50mm)

dblyend = dblystart + (10 / 1000)

Call objDrawingview.SetOrigin(X:=dblxend, Y:=dblyend)

Next i

End If

…

Gruss Matthias Leemann

------------------
SE V14

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