Dim instance As IModelDoc
Dim Name As String
Dim Ambient As Double
Dim Diffuse As Double
Dim Specular As Double
Dim Colour As Integer
Dim Enabled As Boolean
Dim Fixed As Boolean
Dim Posx As Double
Dim Posy As Double
Dim Posz As Double
Dim Targetx As Double
Dim Targety As Double
Dim Targetz As Double
Dim ConeAngle As Double
Dim value As Boolean
value = instance.SetSpotlightProperties(Name, Ambient, Diffuse, Specular, Colour, Enabled, Fixed, Posx, Posy, Posz, Targetx, Targety, Targetz, ConeAngle)
|