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

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
)