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

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

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

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

帮忙啊.有人知道吗?

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

<p>已经解决</p><p></p><p>Public Function VbaEnt2AcadCommEnt(EntObj As AcadEntity) As String</p><p>&nbsp;&nbsp; VbaEnt2AcadCommEnt = "(handent" &amp; Chr(34) &amp; EntObj.Handle &amp; Chr(34) &amp; ")"</p><p>End Function</p><p></p><p>&nbsp;&nbsp;&nbsp; Dim item As AcadEntity</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.SendCommand ("divide " &amp; VbaEnt2AcadCommEnt(item) &amp; " 5 ")</p><p></p><p></p><p></p><p></p>
页: [1]
查看完整版本: 请问,怎么在vba中执行divide命令或者实现divide命令(定距等分任意一个曲线)