请问等分的问题~

xufen

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

efan2000

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

莫名

devide或measure命令。

meflying

计算都很简单啦

subtlation

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

xuxt

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

在VBA里有没有这个类啊,

sgf1234

这个问题涉及到VBA中的实体对象如何传到AutoCAD命令中去。我给你提供一个函数，将VBA中的实体对象作转换后，再利用SendCommand方法。

Public Function  VbaEnt2AcadCommEnt(EntObj as AcadEntity) as String

   VbaEnt2AcadCommEnt="(handent" & Chr(34) & EntObj.handle & chr(34) & ")"

End Function

在VBA编程中，利用Utility对象的GetEntity方法取得实体对象EntObj,利用此函数转换成能在命令中直接利用的格式SObjEnt

SObjEnt=VbaEnt2AcadCommEnt(EntObj)

再利用内部命令，假设按10个单位测量实体。

ThisDrawing.SendCommand "_measure" & VbCr & SObjEnt & VbCr & "10" & VbCr

OK！

http://greenhorse.com/join_now.ghc?r=129655765(网上挂着广告条挣美元,真实可靠,CCTV2报道过,有网友已收到支票)