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

yicol · 发表于 2003-6-8 16:32:00

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

yicol · 发表于 2003-6-8 17:48:00

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 · 发表于 2003-6-8 18:08:00

用
Dim retent As Object
Dim pnt As Variant
Thisdrawing.Utility.GetEntity retent, ont, "提示内容"
选择的对象赋值给retent

yicol · 发表于 2003-6-8 18:45:00

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

yicol · 发表于 2003-6-8 20:07:00

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

mccad · 发表于 2003-6-8 20:22:00

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

yicol · 发表于 2003-6-9 11:35:00

好好好

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

发表回复

精选推荐