This will remove the T value from all dimensions in a program.
feel free to tweak as needed. No express guarantees.
Dim dmisapp as object
dim dmispart as object
dim DmisCommands as Object
dim DmisCommand as Object
sub part1
set DmisApp = CreateObject("PCDLRN.Application")
set DmisPart = DmisApp.ActivePartProgram
Set DmisCommands = DmisPart.Commands
CommandCount = DmisCommands.Count
Set DmisCommand = DmisCommands.Item(CommandCount)
for each DmisCommand In DmisCommands
if DmisCommand.IsDimension Then
If DmisCommand.Type = Dimension_T_Location tHen
DmisCommand.Remove
End If
End If
next
end sub
sub main
part
dmispart.RefreshPart
End Sub
