---

Hallo, ich möchte probieren, die Referenzebenen einer Baugruppe in ein anderes Part zu übertragen.
Ebenen herausfinden habe ich gelöst.
Wie kann ich nun die Eigenschaften der jeweils gefundene Ebene so beschreiben/ Infos herausholen, das ich aufgrund dieser Angaben die gleiche Ebenen in ein anderes Part einfügen kann?
Hat jemand eine Idee?
Gruss
Stefan

Do While Not swfeat Is Nothing
    If "RefPlane" = swfeat.GetTypeName Then
      PlaneCount = PlaneCount + 1
      If PlaneCount = 1 Then mainplane1_name = swfeat.name
      If PlaneCount = 2 Then mainplane2_name = swfeat.name
      If PlaneCount = 3 Then mainplane3_name = swfeat.name
      If PlaneCount > 3 Then
            If InStr(relevant_planes, swfeat.name) And refplane_check(swfeat.name & postfix_m, 1) = True Then
                ' Initialize the SolidWorks application
                'Set swApp = Application.SldWorks
                ' Verweis auf das Referenzebenenobjekt
                Set swRefPlane = swfeat.GetSpecificFeature2
                ' Informationen zur Definition der Ebene abrufen
                Dim refPlaneData As Variant
                refPlaneData = swRefPlane.GetRefPlaneData
               
                ........
            End If
           
        End If
        End If
        Set swfeat = swfeat.GetNextFeature
Loop

------------------
Stefan

CSWP 2006

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

---

Zitat:

---

Original erstellt von StefanNie:
... das ich aufgrund dieser Angaben die gleiche Ebenen in ein anderes Part einfügen kann?

... If InStr(relevant_planes, swfeat.name) And refplane_check(swfeat.name & postfix_m, 1) = True Then
...

---

ah, so einfach kann es sein - 0=false und >0=true 

Bezüglich der Ebenen sehe ich Schwierigkeiten, wenn sie wieder über die gleichen Beziehungen definiert werden sollen.

Wenn es nur um die Lage der Ebene geht (nichts assoziatives), gibt es "transform", vielleicht hilft das ...

Gruß, Christian

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

---

hab mal noch etwas gestöbert in der Hilfe ...
in älteren Versionen gab es verschiedene Befehle für die verschiedenen Ebenendefinitionen (modeldoc::createplane____)
seit 2010 featuremanager:insertrefplane.
ich denke von hier aus findest du, was man brauchen kann ...
vielleicht geht universell was aus den Beispielmakros: "get Corner Points of" und "Create PLane thru 3 Points"

Gruß, Christian

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