Text dotazu:
Dobrý den,
chtěl bych udělat makro na vložení svaru a následnou editaci.
dle V5Automation.chm jsem se dopracoval k tomuto:

    Dim DrwDocument As DrawingDocument

    Dim drwsheets As DrawingSheets

    Dim drwsheet As DrawingSheet

    Dim drwviews As DrawingViews

    Dim drwview As DrawingView

    Dim DrwWelding As DrawingWeldings

    Dim DrwWeld As DrawingWelding

            

        Set DrwDocument = CATIA.ActiveDocument

        

        Set drwsheets = DrwDocument.Sheets

        Set drwsheet = drwsheets.Item(1)



        Set drwviews = drwsheets.Item(1).Views

        Set drwview = drwviews.Item("Front view")

         

        Set DrwWelding = drwview.Weldings

        Set DrwWeld = drwview.Weldings.Add(catCFlangeWelding, -3540#, -8010#) 'pridat svar

    

    'texty značky svaru

    DrwWeld.GetTextRange(catWeldingFieldOne).Text = "1"

    DrwWeld.GetTextRange(catWeldingFieldTwo).Text = "2"

    DrwWeld.GetTextRange(catWeldingFieldThree).Text = "3"

    DrwWeld.GetTextRange(catWeldingFieldFour).Text = "4"

    DrwWeld.GetTextRange(catWeldingFieldFive).Text = "5"

    DrwWeld.GetTextRange(catWeldingFieldSix).Text = "6"     'nezobrazuje se => pouzit pro informace o pozicich

    DrwWeld.GetTextRange(catWeldingFieldSeven).Text = "7"   'nezobrazuje se => pouzit pro informace o pozicich



        MsgBox DrwWeld.GetTextRange(catWeldingFieldOne).Text  'rozmer svaru (např. a4)

        MsgBox DrwWeld.GetSymbol(catFirstWelding) 'znacka svaru

DrwWeld.GetTextRange(catWeldingFieldOne).Text

DrwWeld.GetSymbol(catFirstWelding)