---

Hallo miteinander.......

man kann zu klein oder zu groß geratene Ebenen mit dem Befehl "automatisch Anpassen"
wieder auf Modellgröße bringen.

Gibt es die Möglichkeit dies auch mit einem Makrobefehl zu machen ?

ciao

Martin

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

---

Hallo Martin

Eigendlich gibt es den API-Befehl "RefPlaneFeatureData.AutoSize".
Aber der funktioniert nicht -> SPR 174238 ("RefPlaneFeatureData.AutoSize fails to resize the plane.")
Und da SolidWorks das SPR geschlossen hat, wird der wohl auch in näherer Zukunft nicht funktioieren.

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

hi.....

danke für die Info

schönes WE

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

---

Falls es doch noch mal jemand braucht.

Code:

---

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeat As SldWorks.Feature

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swFeat = swModel.FirstFeature
   
    While Not swFeat Is Nothing
        If swFeat.GetTypeName = "RefPlane" Then
            swFeat.Select2 False, -1
            swApp.RunCommand swCommands_e.swCommands_Auto_Size, ""
        End If
        Set swFeat = swFeat.GetNextFeature
    Wend
End Sub

---

------------------
21 ist nur die halbe Antwort.

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