there are plenty of threads about clash report and every one is using the same marco except modifications. in my case i'm outputting clash and clearance. the value for clearance is always zero. how can i change it?
i guess everyone recognized this macro
InputObject(0) = "AnyObject"'selection filter forces user to select specific objects, AnyObject allows selection of any object
Set USel = CATIA.ActiveDocument.Selection
Set USelLB = USel
Msgbox "PRESS OK AND SELECT PRODUCT OR COMPONENTS FOR CLASH/CLEARANCE DETECTION"
oSel.Clear'You should clear the selection before making a selection
oStatus = oSel.SelectElement3(InputObject, "Select objects to list names", True,CATMultiSelTriggWhenUserValidatesSelection, False)
Dim oClash As Clash
Set oClash = cClashes.AddFromSel
oClash.ComputationType = catClashComputationTypeInsideOne
oClash.InterferenceType = catClashInterferenceTypeContact
oClash.InterferenceType = catClashInterferenceTypeClearance
oClash.Compute
i guess everyone recognized this macro
InputObject(0) = "AnyObject"'selection filter forces user to select specific objects, AnyObject allows selection of any object
Set USel = CATIA.ActiveDocument.Selection
Set USelLB = USel
Msgbox "PRESS OK AND SELECT PRODUCT OR COMPONENTS FOR CLASH/CLEARANCE DETECTION"
oSel.Clear'You should clear the selection before making a selection
oStatus = oSel.SelectElement3(InputObject, "Select objects to list names", True,CATMultiSelTriggWhenUserValidatesSelection, False)
Dim oClash As Clash
Set oClash = cClashes.AddFromSel
oClash.ComputationType = catClashComputationTypeInsideOne
oClash.InterferenceType = catClashInterferenceTypeContact
oClash.InterferenceType = catClashInterferenceTypeClearance
oClash.Compute