Description This command sets the active flag status for a given surface roughness node.
Syntax SurfRoughSetActive roughNode, activeStatus
Parameters roughNode As Long Node number of the surface roughness model being modified.
activeStatus As Boolean Status being set for roughNode. True = model is active. False = model is inactive.
Example The following example loops over all surface roughness nodes and sets their active status to True.
Sub Main
Dim roughCount As Long, curRough As Long, cnt As Long cnt = 0 For curRough = SurfRoughGetMaxNodeNum To 0 Step -1 If SurfRoughIsValidNode( curRough ) Then SurfRoughSetActive( curRough, True ) cnt = cnt + 1 End If Next curRough Print cnt & " surface roughness models were activated."
End Sub
See Also SurfRoughSRSNGetIthProbability SurfRoughSRSNGetOverallRoughnessProbability SurfRoughSRSNSetOverallRoughnessProbability
|