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

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

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命令(定距等分任意一个曲线)

发表回复

精选推荐