Description This command specifies the surface roughness node to be applied to the surface.
Syntax ApplySurfRoughToSurface surfNode, SRnode
Parameters surfNode As Long Node number of the surface being modified.
SRnode As Long Node number of the surface roughness model being applied to the surface. Use -1 to specify "None".
Example The following example retrieves the node number of a surface's roughness model and if the return value is greater than or equal to 0, the surface roughness model is removed by using the -1 specifier.
Sub Main
Dim surfNode As Long surfNode = FindFullName( "Geometry.Detector.Surface" )
If RetrieveSurfRoughFromSurface( surfNode ) >= 0 Then ApplySurfRoughToSurface surfNode, -1 End If
End Sub
See Also
|