Your Products have been synced, click here to refresh
Dim pcd As Application Dim cmd As Command Set pcd = CreateObject("PCDLRN.Application", "") sPassedGroup = "GRP1" Set cmd = pcd.ActivePartProgram.Commands(sPassedGroup) If cmd Is Nothing Then MsgBox ("Invalid Group Name") ElseIf cmd.Type <> EW_GROUP_START Then MsgBox ("Passed name is not a group") Else cmd.Next While cmd.Type <> EW_GROUP_END 'Process each set feature here '. '. '. cmd.Next Wend End If
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |