xufen 发表于 2004-2-10 20:18:00

请问等分的问题~

请问大虾VBA里如何等分一个实体？并且获取各等分点的坐标信息~~

efan2000 发表于 2004-2-10 21:12:00

也可以使用SendCommand发送命令来等分，与命令行方式类似。

莫名 发表于 2004-2-10 21:42:00

devide或measure命令。

meflying 发表于 2004-2-11 09:19:00

计算都很简单啦

subtlation 发表于 2004-2-11 09:24:00

可以直接计算。如果是曲线找点，可以用vlax类中的函数。

xuxt 发表于 2005-12-29 19:27:00

subtlation发表于2004-2-11 9:24:00static/image/common/back.gif可以直接计算。如果是曲线找点，可以用vlax类中的函数。

<BR>在VBA里有没有这个类啊,

sgf1234 发表于 2006-1-16 22:26:00

本帖最后由 作者 于 2006-2-14 17:18:07 编辑 <br /><br /> <P>这个问题涉及到VBA中的实体对象如何传到AutoCAD命令中去。我给你提供一个函数，将VBA中的实体对象作转换后，再利用SendCommand方法。</P>
<P>Public Function&nbsp; 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>在VBA编程中，利用Utility对象的GetEntity方法取得实体对象EntObj,利用此函数转换成能在命令中直接利用的格式SObjEnt</P>
<P>SObjEnt=VbaEnt2AcadCommEnt(EntObj)</P>
<P>再利用内部命令，假设按10个单位测量实体。</P>
<P>ThisDrawing.SendCommand "_measure" &amp; VbCr &amp; SObjEnt &amp; VbCr &amp; "10" &amp; VbCr</P>
<P>OK！</P>
<P><A href="http://greenhorse.com/join_now.ghc?r=129655765" target="_blank" >http://greenhorse.com/join_now.ghc?r=129655765</A>(网上挂着广告条挣美元,真实可靠,CCTV2报道过,有网友已收到支票)<BR></P>
页: [1]
查看完整版本: 请问等分的问题~