Description This command sets the additional coating specifier for a Jones matrix coating type.
Syntax SetMatrixCoatingExtra matrixID, coatID
Parameters matrixID As Long Node number of the Jones matrix coating being modified.
coatID As Long Node number of the coating to be used with matrixID. Use a value of -1 to indicate "None"
Example The following example loops over all coatings on the tree, checks to see if the current coating is a Jones matrix coating type, checks to see if there is an extra coating datum applied and resets the value to "None" using the -1 specifier.
Sub Main
Dim curCoat As Long For curCoat = 0 To GetCoatingCount()-1 If InStr( GetCoatingType( curCoat ), "MatrixCoating" ) <> 0 Then If GetMatrixCoatingExtra( curCoat ) >= 0 Then SetMatrixCoatingExtra( curCoat, -1 ) End If End If Next curCoat
End Sub
See Also
|