使用SendCommand连接两个
我经常使用VBA来自动化和操作我的绘图。我想连接一个圆弧对象和一个多段线对象，所以我创建了一个代码字符串来传递给SendCommand方法。我的代码字符串是：codestr=“连接”&“（handent”&Chr（34）&Lineobject。Handle&Chr（34）&handent&Chr（34）&arcobject。Handle&Chr（34）&“&vbCr&vbCr
然后我使用命令
此图纸。SendCommand代码str
不用说，它不起作用。关于如何做到这一点，有什么建议吗？
提前感谢您的帮助。 也许是这样的
ThisDrawing.Utility.GetEntity oPoly, snapPt, vbCr & "Select polyline :"
If oPoly.ObjectName = "AcDbPolyline" Then
我想避免程序因用户输入而暂停，而只是让它“在运行中”连接两个实体我尝试将它们放入一个组（我称之为PiecestoJoin），并使用代码字符串传递给SendCommand方法：
“连接”&vbCr和“G”&vbCr和SSGR。名称、vbCr和vbCr
其中，SSGR是放置对象的组，但无效。
有人能帮我解决吗？我正在运行64位版本的AutoCAD 2015。
页:
[1]