使用sendcommand阻止
大家好。我有一个关于这个代码的问题。你能帮我解决这个问题吗。非常感谢。我正在尝试选择块，并将其添加到blockedit workspase中，通过命令：-refedit执行1个命令。但我无法在命令中添加实体。
代码：
子块测试（）
作为AcadBlockReference的Dim obj
作为变体的Dim inspt
此图纸。公用事业GetEntity对象，inspt，“选择对象：”
如果obj的类型为AcadBlockReference，则
此图纸。SendCommand“\u refedit”&_
“（handent”&Chr（34）&obj。手柄和Chr（34）&“&_
vbCr和“o”&vbCr和“a”&vbCr和“y”&vbCr
其他的
MsgBox“您没有选择块。”
如果结束
末端接头 我在VBA论坛中提出了这个请求-在这里有更多的机会得到答复。
页:
[1]