乐筑天下

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

如何防止

[复制链接]

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-15 20:23:00 | 显示全部楼层 |阅读模式
为双击事件添加代码处理无名块时如何防止CAD调用refedit命令
或者说:
为双击事件添加代码时如何防止CAD调用相关命令
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-16 22:32:00 | 显示全部楼层
斑竹可以说说么?
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-17 17:49:00 | 显示全部楼层
明总救救急呀
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-25 20:43:00 | 显示全部楼层
我已经弄清楚了SendCommand "(command)" + vbCr
这么简单,哈哈
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2004-4-25 21:02:00 | 显示全部楼层
我试过无效
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-25 21:08:00 | 显示全部楼层
可以呀,明总,这是我的代码
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
On Error Resume Next
Dim lBlockObject As AcadObject
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.ActiveSelectionSet
If ss.Count  1 Then Exit Sub
Set lBlockObject = ss(0)
Select Case ObjectType(lBlockObject)
Case oNull
ThisDrawing.SendCommand "(command) "
Case oObject
frmDwgC.Change lBlockObject
ThisDrawing.SendCommand "(command) "
Case oTable
frmTable.Change lBlockObject
ThisDrawing.SendCommand "(command) "
End Select
End Sub
具体的处理部分没贴上,不过确实可以达到效果即:
为双击事件添加代码处理无名块时防止CAD调用refedit命令
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2004-4-25 21:18:00 | 显示全部楼层
但我这样却不行:
  1. Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
  2.        Dim ss As AcadSelectionSet
  3.        Set ss = ThisDrawing.ActiveSelectionSet
  4.        MsgBox "当前选定的对象数量为" & ss.Count
  5.        ThisDrawing.SendCommand "(command)" + vbCr
  6. End Sub
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-25 21:22:00 | 显示全部楼层
refedit命令要求输入,用ThisDrawing.SendCommand "(command)" + vbCr可以消除,其他的就没办法了,可能是这个原因
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 16:19 , Processed in 0.345062 second(s), 68 queries .

© 2020-2025 乐筑天下

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