Klasické zobrazení

Načtení uživatelských vlastností ve výkrese

Úvod Obsah fóra Pomocné aplikace a spolupráce API Načtení uživatelských vlastností ve výkr...

Toto fórum obsahuje 0 odpovědí a 1 diskutující a naposledy bylo upraveno uživatelem Profile photo of Viktor Němec Viki před 1.7.2021 13:47.

  • Autor
    příspěvky
  • Načtení uživatelských vlastností ve výkrese
    Citovat #81590
    Viki
    Účastník
    1 příspěvků

    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

Zobrazeno: 1 až 1 (z 1 celkem)

Odpověď na: Načtení uživatelských vlastností ve výkr...

Přidávat témata do fóra mohou pouze přihlášení uživatelé.

Chcele-li přidat nové téma, nebo se zaregistrujte.