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

sus1982 · 发表于 2006-1-4 13:36:04

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

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

×

我用Sset.SelectOnScreen给新建的选择集添加对象,可老是选不上对象,下面代码没反应,请高手们帮我看看把

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

ljq_as · 发表于 2006-1-6 19:09:44

Sset.SelectOnScreen 应为lineSelection1.SelectOnScreen

小美菜 · 发表于 2006-1-8 19:57:33

ThisDrawing.SelectionSets("SSl").Delet 应为ThisDrawing.SelectionSets("SSl").Delete
在调试时应考虑去掉On Error Resume Next以免有错时不知道！！

sus1982 · 发表于 2006-1-8 22:55:14

xiexiele

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

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

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

相关帖子