[VBA函数]：我用Sset.SelectOnScreen给新建的选择集添加对象,可老是选不上对象,下面代

sus1982 · 发表于 2006-1-4 13:44:37

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

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

×

Sub addrelativityline()
Dim lineSelection1 As AcadSelectionSet
On Error Resume Next
ThisDrawing.SelectionSets("SSl").Delet
Set lineSelection1 = ThisDrawing.SelectionSets.Add("SSl")
Sset.SelectOnScreen
ThisDrawing.ModelSpace.lineSelection1.Erase
End Sub

gdzhou · 发表于 2006-1-8 22:23:54

Sub addrelativityline()
Dim lineSelection1 As AcadSelectionSet
On Error Resume Next
ThisDrawing.SelectionSets("SSl").Delet  这句后面少了个e
Set lineSelection1 = ThisDrawing.SelectionSets.Add("SSl")
Sset.SelectOnScreen    ‘’‘’‘’这句的“sset”与上面定以的名字不一样了，应该是“lineselection1”
ThisDrawing.ModelSpace.lineSelection1.Erase /////这里是否应该成“lineselection1.erase”  意思是把选择集以及其中的图元删除把
End Sub

sus1982 · 发表于 2006-1-8 22:48:35

xie xe

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

[VBA函数]：我用Sset.SelectOnScreen给新建的选择集添加对象,可老是选不上对象,下面代

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

相关帖子