[求助]：怎样形成一个面域

hxg_888 · 发表于 2002-9-13 10:49:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

各位大侠请帮小弟，我刚学VBA，怎样在屏幕上选择一个封闭的实体，然后形成面域，谢谢

明经通道 · 发表于 2002-9-13 12:39:49

http://www.mjtd.com/a2/list.asp?id=249

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.mjtd.com/a2/list.asp?id=249">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

hxg_888 · 发表于 2002-9-13 14:50:22

谢谢，我还想问：得到的面域，怎样求它的质心、惯性距？

秋枫 · 发表于 2002-9-13 15:27:58

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body>
<table border="1" cellspacing="0" cellpadding="0" style="margin-left:-1.45pt;
border-collapse:collapse;border:none;mso-border-alt:solid black 1.5pt;
mso-padding-alt:3.0pt 3.0pt 3.0pt 3.0pt">
<tr>
<td width="195" valign="top" style="width:146.4pt;border-top:solid black 1.5pt;
border-left:solid black 1.5pt;border-bottom:solid black .75pt;border-right:
none;background:navy;mso-shading:white;mso-pattern:solid navy;padding:3.0pt 3.0pt 3.0pt 3.0pt">
Methods
<o:p>
</o:p>
</td>
<td width="198" valign="top" style="width:148.4pt;border-top:solid black 1.5pt;
border-left:none;border-bottom:solid black .75pt;border-right:none;
background:navy;mso-shading:white;mso-pattern:solid navy;padding:3.0pt 3.0pt 3.0pt 3.0pt">
Properties
<o:p>
</o:p>
</td>
<td width="93" valign="top" style="width:69.7pt;border-top:solid black 1.5pt;
border-left:none;border-bottom:solid black .75pt;border-right:solid black 1.5pt;
background:navy;mso-shading:white;mso-pattern:solid navy;padding:3.0pt 3.0pt 3.0pt 3.0pt">
Events
<o:p>
</o:p>
</td>
</tr>
<tr>
<td width="195" valign="top" style="width:146.4pt;border-top:none;border-left:
solid black 1.5pt;border-bottom:solid black 1.5pt;border-right:none;
mso-border-top-alt:solid black .75pt;background:silver;mso-shading:white;
mso-pattern:solid silver;padding:3.0pt 3.0pt 3.0pt 3.0pt">
<p class="heading-2" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_arraypolar.htm">ArrayPolar</a><a href="idh_arrayrectangular.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_arrayrectangular.htm">ArrayRectangular</a><a href="idh_boolean.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_boolean.htm">Boolean</a><a href="idh_copy.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_copy.htm">Copy</a><a href="idh_delete.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_delete.htm">Delete</a><a href="idh_explode.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_explode.htm">Explode</a><a href="idh_getboundingbox.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_getboundingbox.htm">GetBoundingBox</a><a href="idh_getextensiondictionary.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_getextensiondictionary.htm">GetExtensionDictionary</a><a href="idh_getxdata.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_getxdata.htm"><span lang="EN-US" style="color:
navy">GetXData</a><a href="idh_highlight.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_highlight.htm">Highlight</a><a href="idh_intersectwith.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_intersectwith.htm">IntersectWith</a><a href="idh_mirror.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_mirror.htm">Mirror</a><a href="idh_mirror3d.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_mirror3d.htm"><span lang="EN-US" style="color:
navy">Mirror3D</a><a href="idh_move.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_move.htm">Move</a><a href="idh_rotate.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_rotate.htm">Rotate</a><a href="idh_rotate3d.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_rotate3d.htm"><span lang="EN-US" style="color:
navy">Rotate3D</a><a href="idh_scaleentity.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_scaleentity.htm">ScaleEntity</a><a href="idh_setxdata.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_setxdata.htm"><span lang="EN-US" style="color:
navy">SetXData</a><a href="idh_transformby.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_transformby.htm">TransformBy</a><a href="idh_update.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_update.htm">Update</a><o:p>
</o:p>
</td>
<td width="198" valign="top" style="width:148.4pt;border:none;border-bottom:solid black 1.5pt;
mso-border-top-alt:solid black .75pt;background:silver;mso-shading:white;
mso-pattern:solid silver;padding:3.0pt 3.0pt 3.0pt 3.0pt">
<p class="heading-2" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_application.htm">Application</a><a href="idh_area.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_area.htm">Area</a><a href="idh_centroid.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_centroid.htm"><span lang="EN-US" style="color:
navy">Centroid</a><a href="idh_color.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_color.htm">Color</a><a href="idh_document.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_document.htm"><span lang="EN-US" style="color:
navy">Document</a><a href="idh_handle.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_handle.htm">Handle</a><a href="idh_hasextensiondictionary.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_hasextensiondictionary.htm">HasExtensionDictionary</a><a href="idh_hyperlinks.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_hyperlinks.htm">Hyperlinks</a><a href="idh_layer.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_layer.htm">Layer</a><a href="idh_linetype.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_linetype.htm"><span lang="EN-US" style="color:
navy">Linetype</a><a href="idh_linetypescale.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_linetypescale.htm">LinetypeScale</a><a href="idh_lineweight.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_lineweight.htm">Lineweight</a><a href="idh_momentofinertia.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_momentofinertia.htm">MomentOfInertia</a><a href="idh_normal.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_normal.htm">Normal</a><a href="idh_objectid.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_objectid.htm"><span lang="EN-US" style="color:
navy">ObjectID</a><a href="idh_objectname.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_objectname.htm">ObjectName</a><a href="idh_ownerid.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_ownerid.htm">OwnerID</a><a href="idh_perimeter.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_perimeter.htm">Perimeter</a><a href="idh_plotstylename.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_plotstylename.htm">PlotStyleName</a><a href="idh_principaldirections.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_principaldirections.htm">PrincipalDirections</a><a href="idh_principalmoments.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_principalmoments.htm">PrincipalMoments</a><a href="idh_productofinertia.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_productofinertia.htm">ProductOfInertia</a><a href="idh_radiiofgyration.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_radiiofgyration.htm">RadiiOfGyration</a><a href="idh_visible.htm">
<o:p>
</o:p>
</a>
<p class="body" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_visible.htm">Visible</a><o:p>
</o:p>
</td>
<td width="93" valign="top" style="width:69.7pt;border-top:none;border-left:none;
border-bottom:solid black 1.5pt;border-right:solid black 1.5pt;mso-border-top-alt:
solid black .75pt;background:silver;mso-shading:white;mso-pattern:solid silver;
padding:3.0pt 3.0pt 3.0pt 3.0pt">
<p class="heading-2" style="margin:0cm;margin-bottom:.0001pt;mso-line-height-alt:
0pt"><a href="idh_modified.htm">Modified</a>
<o:p>
</o:p>
</td>
</tr>
</table>
</body>
</html>

复制代码

hxg_888 · 发表于 2002-9-16 15:53:46

形成的三维实体可以求质心、惯性距，但是到面域的时候就出错，能不能给编一个实例？谢谢

显示全部楼层 · 发表于 2002-9-16 17:54:00

提示: 作者被禁止或删除内容自动屏蔽

显示全部楼层 · 发表于 2002-9-16 17:59:20

提示: 作者被禁止或删除内容自动屏蔽

秋枫 · 发表于 2002-9-16 18:07:48

Public Function PolygonCenter(ObjectList() as AcadEntity) as Variant
Dim myReg as AcadRegion
Set myReg = ThisDrawing.ModelSpace.AddRegion(ObjectList)
PolygonCenter = myReg(0).Centroid
myReg.Delete
End Function

账号		自动登录	找回密码
密码			立即注册

Dreamer 该用户已被删除	发表于 2002-9-16 17:54:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
Dreamer 该用户已被删除	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

Dreamer 该用户已被删除	发表于 2002-9-16 17:59:20 \| 显示全部楼层【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
Dreamer 该用户已被删除	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[求助]：怎样形成一个面域

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块