Dim instance As IModelDoc2
Dim IdName As String
Dim LType As Integer
Dim Diff As Double
Dim RgbColor As Integer
Dim Dist As Double
Dim DirX As Double
Dim DirY As Double
Dim DirZ As Double
Dim SpotDirX As Double
Dim SpotDirY As Double
Dim SpotDirZ As Double
Dim SpotAngle As Double
Dim FallOff0 As Double
Dim FallOff1 As Double
Dim FallOff2 As Double
Dim Ambient As Double
Dim Specular As Double
Dim SpotExponent As Double
Dim BDisable As Boolean
Dim value As Boolean
value = instance.SetLightSourcePropertyValuesVB(IdName, LType, Diff, RgbColor, Dist, DirX, DirY, DirZ, SpotDirX, SpotDirY, SpotDirZ, SpotAngle, FallOff0, FallOff1, FallOff2, Ambient, Specular, SpotExponent, BDisable)
|