怎样去获取一个对象的相关属性[原创]

yicol

比如说：在一段程序里，
要获得一文字的高度，怎么样出现拾取框让用户去选择任意文字
这个拾取框的单选和多选怎么控制

mccad

yicol

Sub Ch4_AddToASelectionSet()
' 创建新的选择集
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("SS1")

' 提示用户选择对象并将它们添加到选择集中。
' 要完成选择，按回车。
sset.SelectOnScreen

' 在选择集中循环并将每一对象的颜色改为蓝色。
Dim entry As AcadEntity
For Each entry In sset
entry.Color = acBlue
entry.Update
Next entry
End Sub

topirol

用

Dim retent As Object
Dim pnt As Variant
Thisdrawing.Utility.GetEntity retent, ont, "提示内容"

选择的对象赋值给retent

yicol

当你没有点到对象时就会报错
如果用出错处理，也就是说你运行一次程序，就一定要选中对象，要不然
就要重新运行。我想这样，当你没有选中对象时可以再选 ，，
可不可以呀

mccad

yicol

那用户一旦运行了这个程序，就不能中途取消了，
这样也不完美吧

mccad

在未选择到对象、或按了回车、或按了空格、或按了取消，出错编号都是-2147352567。
但命令行提示有些不同，如果按了取消则命令行多了*取消*这样的字符(注册如果英文版则为*Cancel*)。所以通过使用
ThisDrawing.GetVariable("lastprompt")
来取得命令行的最后一行就可以确认用户的操作了。

yicol

好好好