我想知道是否有人可以帮助我。
我们有一些在任何情况下都不应该分解的工作块。我正在尝试使用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