使用SendCommand连接两个

Gibbo · 发表于 2022-7-5 18:34:51

我经常使用VBA来自动化和操作我的绘图。我想连接一个圆弧对象和一个多段线对象，所以我创建了一个代码字符串来传递给SendCommand方法。我的代码字符串是：

codestr=“连接”&“（handent”&Chr（34）&Lineobject。Handle&Chr（34）&handent&Chr（34）&arcobject。Handle&Chr（34）&“&vbCr&vbCr

然后我使用命令

此图纸。SendCommand代码str

不用说，它不起作用。关于如何做到这一点，有什么建议吗？

提前感谢您的帮助。

BIGAL · 发表于 2022-7-5 19:10:52

也许是这样的

copy


ThisDrawing.Utility.GetEntity oPoly, snapPt, vbCr & "Select polyline :"
If oPoly.ObjectName = "AcDbPolyline" Then

Gibbo · 发表于 2022-7-5 20:00:40

我想避免程序因用户输入而暂停，而只是让它“在运行中”连接两个实体我尝试将它们放入一个组（我称之为PiecestoJoin），并使用代码字符串传递给SendCommand方法：

“连接”&vbCr和“G”&vbCr和SSGR。名称、vbCr和vbCr

其中，SSGR是放置对象的组，但无效。

有人能帮我解决吗？我正在运行64位版本的AutoCAD 2015。

[编程交流] 使用SendCommand连接两个

发表回复

精选推荐