请教如何用VBA实现按路径阵列？

wit0708

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编程实现路径阵列？

zzyong00

cad命令应该不认识vba的对象，用他们的handle,还有lisp的handent,如(handend obj.handle)