求助：关于文字转换成注解点的程序！

haihao2000

求助：请问下如何修改这个程序，才可以只把选中的文字转换成注解点；目前是所有点（隐藏、图层）都会转换；

[AppleScript] 纯文本查看 复制代码

NoEcho
! -_RunScript (
Option Explicit
Call Main()
Sub Main()
        Dim arrObjects, strObject
        arrObjects = Rhino.AllObjects
        If IsArray(arrObjects) Then
                For Each strObject In arrObjects
                        If Rhino.IsText(strObject) Then
                                Rhino.SelectObject strObject
                        Dim txtText, txtPt
                        txtText = Rhino.TextObjectText(strObject)
                        txtPt = Rhino.TextObjectPoint(strObject)
                        Rhino.AddTextDot txtText, txtPt 
                        Rhino.DeleteObject(strObject)
                End If
        Next
        End If
End Sub
)

筑梦NARUTO

改成下面这段代码就OK了

[AppleScript] 纯文本查看 复制代码

NoEcho
! -_RunScript (
Option Explicit
Call Main()
Sub Main()
	Dim arrObjects, strObject
	arrObjects = Rhino.GetObjects("选择要转换成注解点的TEXT")
	If IsArray(arrObjects) Then
		For Each strObject In arrObjects
			If Rhino.IsText(strObject) Then
				Rhino.SelectObject strObject
				Dim txtText, txtPt
				txtText = Rhino.TextObjectText(strObject)
				txtPt = Rhino.TextObjectPoint(strObject)
				Rhino.AddTextDot txtText, txtPt 
				Rhino.DeleteObject(strObject)
			End If
		Next
	End If
End Sub
)