[求助]：乐于助人的高手进

baohui668 · 发表于 2006-2-20 21:57:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

怎么在VB中获取文本的插入点坐标，并存储
求救，急

yunzhong80 · 发表于 2006-2-21 10:47:03

Sub TEST()
Dim sstext As AcadSelectionSet
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
Dim PT As Variant
Dim Text As AcadText
Set sstext = ThisDrawing.SelectionSets.Add("S1")
FilterType(0) = 0
FilterData(0) = "TEXT"
sstext.SelectOnScreen FilterType, FilterData
For I = 0 To sstext.Count - 1
   Set Text = sstext.Item(0)
   PT = Text.InsertionPoint
   MsgBox "X:" & PT(0) & "Y:" & PT(1) & "Z:" & PT(2)
Next
ThisDrawing.SelectionSets.Item("S1").Delete
End Sub

baohui668 · 发表于 2006-2-21 16:35:32

谢谢啊,不胜感激

账号		自动登录	找回密码
密码			立即注册

[求助]： 乐于助人的高手进

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

[求助]：乐于助人的高手进