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

sus1982 · 发表于 2006-1-4 15:18:56

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

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

×

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

zhuxuhong · 发表于 2006-1-4 19:30:26

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

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

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

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

相关帖子