Your Products have been synced, click here to refresh
Dim DmisApp As Object Dim DmisPart As Object Dim DmisCommands As Object Dim DmisCommand As Object Dim FCmd As Object Sub Main(OutputFileNameAndPath) Set DmisApp = CreateObject("PCDLRN.Application") Set DmisPart = DmisApp.ActivePartProgram Set DmisCommands = DmisPart.Commands CommandCount = DmisCommands.Count Set DmisCommand = DmisCommands.Item(CommandCount) Open OutputFileNameAndPath For Output As #1 For Each DmisCommand In DmisCommands If DmisCommand.IsFeature Then If DmisCommand.Type = 612 Or DmisCommand =202 Then' (612 = auto circle, 202 = measured circle. Using the numeric reference rather than text makes it language independent) Set FCmd = DmisCommand.FeatureCommand Print #1, DmisCommand.Id & chr(44) & FCmd.GetFormError() End If End If Next DmisCommand Close #1 End Sub
CS1 =SCRIPT/FILENAME= C:\USERS\PUBLIC\DOCUMENTS\SCRIPTS\GET_ROUNDNESS_FROM_FEATURE.BAS FUNCTION/Main,SHOW=YES,ARG1="C:\Users\Public\Documents\Scripts\Roundness_Output.txt",, STARTSCRIPT/ ENDSCRIPT/
Dim DmisApp As Object Dim DmisPart As Object Dim DmisCommands As Object Dim DmisCommand As Object Dim FCmd As Object Sub Main(OutputFileNameAndPath) Set DmisApp = CreateObject("PCDLRN.Application") Set DmisPart = DmisApp.ActivePartProgram Set DmisCommands = DmisPart.Commands CommandCount = DmisCommands.Count Set DmisCommand = DmisCommands.Item(CommandCount) Open OutputFileNameAndPath For Output As #1 For Each DmisCommand In DmisCommands If DmisCommand.IsFeature Then If DmisCommand.Type = 612 Or DmisCommand =202 Then' (612 = auto circle, 202 = measured circle. Using the numeric reference rather than text makes it language independent) Set FCmd = DmisCommand.FeatureCommand Print #1, DmisCommand.Id & chr(44) & FCmd.GetFormError() End If End If Next DmisCommand Close #1 End Sub
CS1 =SCRIPT/FILENAME= C:\USERS\PUBLIC\DOCUMENTS\SCRIPTS\GET_ROUNDNESS_FROM_FEATURE.BAS FUNCTION/Main,SHOW=YES,ARG1="C:\Users\Public\Documents\Scripts\Roundness_Output.txt",, STARTSCRIPT/ ENDSCRIPT/
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |