热门标签

[已解答] 求助:关于文字转换成注解点的程序!

[复制链接]
查看: 12863|回复: 2

1

主题

2

帖子

46

积分

注册会员

Rank: 2

积分
46
发表于 2017-7-29 14:47:57 | 显示全部楼层 |阅读模式
本帖最后由 筑梦NARUTO 于 2017-7-31 01:16 编辑

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

[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
)


回复

使用道具 举报

18

主题

166

帖子

984

积分

超级版主

Rank: 8Rank: 8

积分
984
发表于 2017-7-31 01:07:27 | 显示全部楼层
改成下面这段代码就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
)

[db:签名]
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精彩推荐

Rhino 6 的授权管理模式的调整与转换

2020-08-20 图文教学

2020冬季 Rhino 建筑造型系统面授课程

2020-03-21 面授课程

课程介绍|Rhino工业/艺术设计曲面造型高级

2020-03-20 面授课程

2020暑期 Grasshopper参数化系统面授课程

2020-03-20 面授课程

VisualARQ 2.7 发布更新

2020-02-17 新闻

VisualARQ 2.6 发布更新

2019-12-12 新闻

ShapeMap–复杂形体的表面纹理贴合参数化插

2019-11-04 新闻

图文教学 | Rhino 6 细分建模 BARCELONA 椅

2019-06-30 图文教学

Rhino3D(犀牛)中文网

  • 深圳:0755-29642189
  • 上海:021-56496412
  • 成都:028-61592400
  • support@shaper3d.com

关注我们

Copyright   ©2007-2017  Rhino3D犀牛中文网  Powered by©Discuz!     ( 粤ICP备12051517号-5