---

Hallöchen,
gibt es ein Makro oder eine schöne Möglichkeit die Eigenschaften,
die man im Part hat in eine Baugruppe zu übertragen.

z.B. ein Makro, was vom ersten Teil in der Baugruppe
die Eigenschaften ausließt und in die Baugruppe einträgt?

Gruß Hobi

------------------

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

---

Copy_Paste_ASP.mp4

Copy & Paste

VG
AndiS

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

---

Hi,
das ist es ja wie ich es im Moment mache.
Würde es halt gerne nur etwas vereinfachen.
Weil mein Chefe sagt immer : JEDER SEKUNDE ZÄHLT 🤣🤣🤣

------------------

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

---

Kurz ChatGPT gefragt:

Code:

---

Dim swApp As SldWorks.ISldWorks
Dim swModel As SldWorks.IModelDoc2
Dim swAssy As SldWorks.IAssemblyDoc
Dim swComp As SldWorks.IComponent2
Dim swCustPropMgr As SldWorks.ICustomPropertyManager
Dim swCompCustPropMgr As SldWorks.ICustomPropertyManager
Dim propName As String
Dim propValue As String
Dim propResolvedValue As String
Dim propLinkedToProperty As Boolean

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swAssy = swModel
    Set swComp = swAssy.GetComponents(True)(0) 'GetFirstComponent
    Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
    Set swCompCustPropMgr = swComp.GetModelDoc2.Extension.CustomPropertyManager("")

    Dim i As Long
    For i = 0 To swCompCustPropMgr.count - 1
        propName = swCompCustPropMgr.GetNames(i)
        swCompCustPropMgr.Get5 propName, False, propValue, propResolvedValue, propLinkedToProperty
        swCustPropMgr.Add3 propName, swCustomInfoType_e.swCustomInfoText, propValue, swCustomPropertyAddOption_e.swCustomPropertyReplaceValue
    Next i

End Sub

---

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

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