---

Hallo,

gibt es bei Solid die Möglichkeit Ansichten in der Zeichnung per API zu verschieben? Wenn ja, hat jemand ein gutes Beispiel oder die genaue Syntax. Ich konnte leider überhaupt nichts zu dem Thema finden.

Vielen Dank im Voraus

René

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

---

Hallo René,

schau mal in der API Hilfe unter dem Call View::Position nach, damit kannst du die Position einer Zeichenansicht in Bezug auf den Blattursprung setzen (wie üblich natürlich in Metern!). Ein beispiel ist da auch direkt dabei.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de
KLAMM? Was ist KLAMM?

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

---

Hallo Stefan,

vielen Dank erstmal, das klingt ja schon sehr vielversprechend. Nur leider hab ich jetzt ein neues Problem.  Irgendwie scheint mein API-Hilfe verkrüppelt zu sein. Obwohl ich mir die neuste Version von SolidWorks.com heruntergeladen habe, kriege ich eine Fehlermeldung, wenn ich mir dies Beispiel anschauen will. Leider hänge ich als Anfänger immer ziemlich in der Luft, wenn ich nichts habe, an dem ich mich entlanghangeln kann. 
Muss ich die Hilfe irgendwie auf besondere Art installieren oder einfach nur entpacken? Oder kannst du mir das Beispiel ins Forum stellen? 

Gruß René

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

---

Hallo Rene,

ich hab dir mal ein Beispiel gemacht, dass eine (vorher) selektierte Zeichenansicht an die Koordinaten 10/50 setzt (wenn sich die Ansicht frei bewegen kann  ):

Code:

---

Dim swApp As Object
Dim DrawingDoc As Object
Dim SelMgr As Object
Dim SelCount As Long
Dim DrawingView As Object
' Übergabe der Koordinaten als Safearray aus 2 Double
Dim vViewPos(1) As Double

Const swSelDRAWINGVIEWS = 12

Sub main()

    Set swApp = Application.SldWorks
    Set DrawingDoc = swApp.ActiveDoc
   
    ' die Zeichnungasansicht sollte selektiert sein
    Set SelMgr = DrawingDoc.SelectionManager
    ' wenn überhaupt was selektiert ist
    SelCount = SelMgr.GetSelectedObjectCount
    If SelCount = 1 Then
        ' wenn Zeichenansicht selektiert ist
        If (SelMgr.GetSelectedObjectType(1) = swSelDRAWINGVIEWS) Then
            Set DrawingView = SelMgr.GetSelectedObject4(1)
            ' und die Position bestimmen, Abmessung wie immer in Meter!
            vViewPos(0) = 0.01  ' 10 mm rechts
            vViewPos(1) = 0.05  ' 50 mm oberhalb der unteren, linken Ecke
            DrawingView.position = (vViewPos)
            ' damit man auch was sieht ein Rebuild machen
            DrawingDoc.EditRebuild
        End If
    End If

End Sub

---

Meine API-Hilfedateien scheinen in Ordnung zu sein, ich komm ohne Schwierigkeiten auch an das Beispiel ran ... aber das oben ist auch schön 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de
KLAMM? Was ist KLAMM?

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

---

Hallo Stefan,

vielen Dank für deine Hilfe.  Das war schon etwas mehr als nur ein "Beispiel", kam mir mehr wie die Lösung vor. 

Gruß René

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

---

Hallo Stefan

Das Makro funktioniert auch noch in der Version 2023 SP3. Gerade verwendet.

Gruss
Mike

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