乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 103|回复: 6

如何抑制附图中的"命令:"提示行的出现

[复制链接]

17

主题

68

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
136
发表于 2007-2-8 17:12:00 | 显示全部楼层 |阅读模式
'附图为以下程序的结果。附图中出现3个无意义的"命令:"提示行,
'很不好看,如何抑制它们的出现?
Public Sub test()
   Dim Obj As AcadObject
   Dim sset As AcadSelectionSet
   Dim ssetObj As AcadSelectionSet
   On Error Resume Next
   ThisDrawing.SelectionSets.Item("SsetObjects").Delete
   ThisDrawing.SelectionSets.Item("SSETASSOC").Delete
   On Error GoTo 0
   Set sset = ThisDrawing.SelectionSets.Add("SsetObjects")
   Set ssetObj = ThisDrawing.SelectionSets.Add("SSETASSOC")
   sset.SelectOnScreen
   For Each Obj In sset
      Call SelectObject(Obj, ssetObj)
      'MsgBox "Number of objects = " & ssetObj.Count
   Next
End Sub
Private Sub SelectObject(Obj As Variant, ssetObj As Variant)
   Dim pt As Variant
   Dim sp(0 To 2) As Double
   Dim ep(0 To 2) As Double
   Dim mode As Integer
   ssetObj.Clear
   pt = Obj.StartPoint
   sp(0) = pt(0)
   sp(1) = pt(1)
   sp(2) = pt(2)
   pt = Obj.EndPoint
   ep(0) = pt(0)
   ep(1) = pt(1)
   ep(2) = pt(2)
   mode = acSelectionSetCrossing
   ssetObj.Select mode, sp, ep         '附图的命令提示由此方法产生
   '其他处理
End Sub
回复

使用道具 举报

17

主题

68

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
136
发表于 2007-2-8 17:28:00 | 显示全部楼层
没能上传图片。
回复

使用道具 举报

17

主题

68

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
136
发表于 2007-2-9 10:05:00 | 显示全部楼层
附图

vhxcm5z1jah.gif

vhxcm5z1jah.gif

回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2007-2-9 10:11:00 | 显示全部楼层
这个好像无所谓吧:)
回复

使用道具 举报

17

主题

68

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
136
发表于 2007-2-9 18:30:00 | 显示全部楼层
谢谢回帖。
虽然没有什么错误,但当选择的直线很多时,会产生大量的空行,看着很不舒服。
难道就没有解决的办法吗?
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2007-2-10 09:51:00 | 显示全部楼层
在前面加上:   ThisDrawing.SetVariable "NOMUTT", 1
结束时把它恢复为0
回复

使用道具 举报

17

主题

68

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
136
发表于 2007-2-12 17:45:00 | 显示全部楼层
还是大师高.
谢谢啦.
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 10:05 , Processed in 1.026795 second(s), 69 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表