Téma: Načtení uživatelských vlastností ve výkrese - MůjSolidworks.cz

Dobrý den,

potřebuji poradit, s načtením uživatelské vlatnosti dílu, do proměnné ve výkrese.

Ve výkrese, mám vložený podled s nějakým dílem. Hodnoty uživatelských vlastností z dílu se propisují do tabulky ve výkrese. Potřebuji si napsat makro na přečtení uživatelské vlastnosti ( název vlastnosti je Revize) přímo ve výkresu, v díle to umím, ale přijde mi, že když mám otevřený výkres s tím dílem tak nemusím otevírat extra i samostatný díl (nebo sestavu) abych se dotal k jeho vlastnostem.

Jediné k čemu jsem se dostal je vložení poznámky do výkresu ve které je hodnota té uživatelské vlatnosti.Viz kód:

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
Set CWAddinCallBackObj = swApp.GetAddInObject(„CosmosWorks.CosmosWorks“)
Set COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS

Dim myNote As Object
Dim myAnnotation As Object
Dim myTextFormat As Object
Set myNote = Part.InsertNote(„$PRPSHEET:““Revize“““)
If Not myNote Is Nothing Then
myNote.LockPosition = False
myNote.Angle = 0
boolstatus = myNote.SetBalloon(0, 0)
Set myAnnotation = myNote.GetAnnotation()
If Not myAnnotation Is Nothing Then
longstatus = myAnnotation.SetLeader3(swLeaderStyle_e.swNO_LEADER, 0, True, False, False, False)
boolstatus = myAnnotation.SetPosition(0.220062171126129, 0.157752387205387, 0)
boolstatus = myAnnotation.SetTextFormat(0, True, myTextFormat)
End If
End If
Part.ClearSelection2 True
Part.WindowRedraw

Set CWAddinCallBackObj = Nothing
Set COSMOSWORKSObj = Nothing
End Sub