使用sendcommand阻止

phamduyanh · 发表于 2022-7-6 22:47:13

大家好。我有一个关于这个代码的问题。你能帮我解决这个问题吗。非常感谢。

我正在尝试选择块，并将其添加到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“您没有选择块。”
如果结束

末端接头

fuccaro · 发表于 2022-7-7 00:04:24

我在VBA论坛中提出了这个请求-在这里有更多的机会得到答复。

[编程交流] 使用sendcommand阻止

发表回复

精选推荐