明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1714|回复: 6

请问等分的问题~

[复制链接]
发表于 2004-2-10 20:18:00 | 显示全部楼层 |阅读模式
请问大虾VBA里如何等分一个实体?并且获取各等分点的坐标信息~~

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2004-2-10 21:12:00 | 显示全部楼层
也可以使用SendCommand发送命令来等分,与命令行方式类似。
发表于 2004-2-10 21:42:00 | 显示全部楼层
devide或measure命令。
发表于 2004-2-11 09:19:00 | 显示全部楼层
计算都很简单啦
发表于 2004-2-11 09:24:00 | 显示全部楼层
可以直接计算。如果是曲线找点,可以用vlax类中的函数。
发表于 2005-12-29 19:27:00 | 显示全部楼层
subtlation发表于2004-2-11 9:24:00可以直接计算。如果是曲线找点,可以用vlax类中的函数。

在VBA里有没有这个类啊,
发表于 2006-1-16 22:26:00 | 显示全部楼层
本帖最后由 作者 于 2006-2-14 17:18:07 编辑

这个问题涉及到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报道过,有网友已收到支票)

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-27 06:31 , Processed in 0.149910 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表