社区 › VB › 块不能爆炸

ElpanovEvgeniy 发表于 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
**** Hidden Message *****

ronjonp 发表于 2006-4-14 15:21:44

利用块 MINSERT

Bryco 发表于 2006-4-14 15:26:58

也许......
http://www.theswamp.org/index.php?topic=6463.msg79131#msg79131

Sdoman 发表于 2006-4-14 15:29:17

也许使用 AcadDocument.BeginCommand

Jeff_M 发表于 2006-4-14 17:03:55

从Autdesk Devhelp中，这是BLOCK对象的属性，因此将其设置为false作为一个Block定义应该会使其所有插入都不可攻击...

Bryco 发表于 2006-4-14 18:38:38

干得好，太容易了。

查看完整版本: 块不能爆炸