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

fengfan 发表于 2007-4-2 22:43:00

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

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

fengfan 发表于 2007-4-3 09:05:00

帮忙啊.有人知道吗?

fengfan 发表于 2007-4-3 14:13:00

已经解决
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 ")

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