请问,怎么在vba中执行divide命令或者实现divide命令(定距等分任意一个曲线)

fengfan

请问,怎么在vba中执行divide命令或者实现divide命令(定距等分任意一个曲线)

fengfan

帮忙啊.有人知道吗?

fengfan

已经解决

Public Function VbaEnt2AcadCommEnt(EntObj As AcadEntity) As String

   VbaEnt2AcadCommEnt = "(handent" & Chr(34) & EntObj.Handle & Chr(34) & ")"

End Function

    Dim item As AcadEntity

            ThisDrawing.SendCommand ("divide " & VbaEnt2AcadCommEnt(item) & " 5 ")