请教如何用VBA实现按路径阵列？
本帖最后由 wit0708 于 2018-6-25 22:42 编辑Sub qqq1()
Dim retCoord() As Double
Dim obj As AcadEntity
Dim path As AcadLWPolyline
Dim i As Integer
i = 0
Dim a As Variant
Dim b As Variant
ThisDrawing.Utility.GetEntity obj, a, "选择复制对象:"
ThisDrawing.Utility.GetEntity path, b, "选择多段线:"
ThisDrawing.SendCommand "_arraypath" & vbCr & a & vbCr & "P"
调用arraypath命令的时候，怎么也实现不了，求教！或者是否可以不调用命令，用VBA编程实现路径阵列？
cad命令应该不认识vba的对象，用他们的handle,还有lisp的handent,如(handend obj.handle)
页:
[1]