Displays a dialog box prompting the user to select a linetype.
Rhino.GetLinetype ([strLinetype])
strLinetype |
可选参数。字符串。The name of the linetype to select.If omitted, the current linetype will be selected. |
String |
The name of the selected linetype if successful. |
Null |
如果执行不成功或出错，返回空值。 |
Dim strObject, strLinetype
strObject = Rhino.GetObject("Select object")
If Not IsNull(strObject) Then
strLinetype = Rhino.GetLinetype( Rhino.ObjectLinetype(strObject) )
If Not IsNull(strLinetype) Then
Rhino.ObjectLinetype strObject, strLinetype
End If
End If