Rhino3D犀牛中文网

标题: 求助：关于文字转换成注解点的程序！ [打印本页]

---

作者: haihao2000    时间: 2017-7-29 14:47
标题: 求助：关于文字转换成注解点的程序！


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

[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    时间: 2017-7-31 01:07
改成下面这段代码就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

)

---

欢迎光临 Rhino3D犀牛中文网 (https://www.rhino3d.asia/)

Powered by Discuz! X3.3