求助：怎样用VBA等分对象？

qingalice

请教各位高手：在CAD中可以用VBA的方法等分对象吗？就是说一般的CAD应用中的measure或者divide方法在VBA中有对应的方法吗？我找了很久没有找到。如：我用sendcommand方法时：thisdrawing.sendcommand “_measure”后命令行直接提示我在屏幕上选择等分的实体，我如何才能在自己的程序中传入我想要等分的实体而不用屏幕选择的方式呢？

跪求各位大虾指点！谢谢！

雪山飞狐_lzh

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=9328

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！