乐筑天下

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

块不能爆炸

[复制链接]

8

主题

65

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
86
发表于 2006-4-14 15:17:08 | 显示全部楼层 |阅读模式
我想知道是否有人可以帮助我。
我们有一些在任何情况下都不应该分解的工作块。我正在尝试使用begin命令事件编写一些代码,如果有人试图分解该块并阻止它被分解,它将识别该块。任何帮助都将不胜感激。以下是我到目前为止所知道的,谢谢您在此图纸中的每个blkref上
标记
-
Dim blkref作为AcadBlockReference
。模型空间
If blkref。name =(" xarw ")Then
If command name =(" EXPLODE ")Then
MsgBox "此项目不能被分解"
End If
End If
Next
此绘图。SendCommand ("undo") & vbCrLf结束Sub

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

58

主题

3353

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1761
发表于 2006-4-14 15:21:44 | 显示全部楼层
利用块 MINSERT
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2006-4-14 15:26:58 | 显示全部楼层
也许......
http://www.theswamp.org/index.php?topic=6463.msg79131#msg79131
回复

使用道具 举报

0

主题

9

帖子

3

银币

初来乍到

Rank: 1

铜币
9
发表于 2006-4-14 15:29:17 | 显示全部楼层
也许使用 AcadDocument.BeginCommand
回复

使用道具 举报

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2006-4-14 17:03:55 | 显示全部楼层
从Autdesk Devhelp中,这是BLOCK对象的属性,因此将其设置为false作为一个Block定义应该会使其所有插入都不可攻击...
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2006-4-14 18:38:38 | 显示全部楼层
干得好,太容易了。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-5 11:20 , Processed in 0.775177 second(s), 64 queries .

© 2020-2025 乐筑天下

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