macro help

macro help

dsmits
Advocate Advocate
1,789 Views
2 Replies
Message 1 of 3

macro help

dsmits
Advocate
Advocate

using 2021 omv how can i change these for a DeltaTranform in plugin?

dsmits_0-1699886703203.png

this is what i have so far..

            Dim alg = power_inspect.ActiveDocument.SequenceItems.AddItem(PowerINSPECT.PWI_EntityItemType.pwi_alg_UserDefined_)
            alg.Name = "G54"
            alg.Refresh()
            power_inspect.ActiveDocument.ActiveItem = alg
            Dim aPl As AlignmentUserDefined = power_inspect.ActiveDocument.ActiveItem
            Dim mtb As New PWIMATHBOXLib.MathToolbox
            Dim vector As New PWIMATHBOXLib.Vector3D
            vector.SetCoordinates(0, 0, 1)
            Dim matrix1 As New PWIMATHBOXLib.Transform
            matrix1.CreateRotation(vector, 45)
            Dim matrix2 As New PWIMATHBOXLib.Transform
            vector.SetCoordinates(0, 0, +0.00000001)
            matrix2.CreateTranslation(vector)
            aPl.ParameterTransformation.matrix.Transform.CreateTranslation(vector)
            alg.Refresh()
            aPl.Refresh()
            ''''''''''''''''''''
            Dim dtm = power_inspect.ActiveDocument.SequenceItems.AddItem(PowerINSPECT.PWI_EntityItemType.pwi_ent_DatumUserDefined_)
            dtm.Name = "MOVE IT"
            power_inspect.ActiveDocument.ActiveItem = dtm
            Dim dtud As DatumUserDefined = power_inspect.ActiveDocument.ActiveItem
            dtud.ParameterTransformation.matrix.Transform.CreateTranslation(vector)
            dtm.Refresh()
            dtud.Refresh()
            '''''''''''''''''''''''
            '''
            Dim ispG = power_inspect.ActiveDocument.SequenceItems.AddItem(PowerINSPECT.PWI_EntityItemType.pwi_grp_SurfPointsCNC_)
            '  power_inspect.ActiveDocument.SequenceItems.AddItem(PowerINSPECT.PWI_EntityItemType.pwi_grp_SurfPointsCNC_)
            ispG.Refresh()
            Dim bestfit = power_inspect.ActiveDocument.SequenceItems.AddItem(PowerINSPECT.PWI_EntityItemType.pwi_ent_BestFit_)
            bestfit.Refresh()
            Dim deltatran = power_inspect.ActiveDocument.SequenceItems.AddItem(PowerINSPECT.PWI_EntityItemType.pwi_ent_DeltaTransform_)
            deltatran.Refresh()

            MsgBox("done")

 

0 Likes
Accepted solutions (1)
1,790 Views
2 Replies
Replies (2)
Message 2 of 3

dsmits
Advocate
Advocate
Accepted solution

well i figured it out

0 Likes
Message 3 of 3

huyc2GQZL
Contributor
Contributor

您能留下您的电子邮件地址吗?我对 PowerMill 和 PowerInspect 同样感兴趣

0 Likes