[求助]：如何获得一个线围合域的中心？（又有新问题）

xyp1964 · 发表于 2004-10-17 22:12:33

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

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

×

用lisp如何获得一个平面域的形心，如四边形、三角形的中心点？

aidraft · 发表于 2004-10-18 04:36:45

vla-get-centroid

saltxf · 发表于 2004-10-18 08:45:49

最初由 aidraft 发布
[B]vla-get-centroid [/B]

请详细说明具体用法，谢谢！

aidraft · 发表于 2004-10-18 09:11:38

Do you mean regions?

(vlax-safearray->list
(vlax-variant-value
(vla-get-centroid
(vlax-ename->vla-object (car (entsel "Select a region: "))))))

xyp1964 · 发表于 2004-10-18 13:28:15

Object 只适用3DSolid, Region
对一个封闭的pline采用什么办法？

aidraft · 发表于 2004-10-18 14:18:29

You said that's a 平面域! If it is a polyline, try to create a region with that polyline first.

xyp1964 · 发表于 2004-10-18 18:36:01

诸如一个园（circle）其形心或中心就是其圆心、正方形（可能是line或pline围合）是对角线交点等等，能否不生成“region”而直接得到？

aidraft · 发表于 2004-10-18 19:45:35

有什么原因要不生成region? 用顶点坐标计算很麻烦的，而且对不规则曲线是除了生成region没有其它办法。

wykdy · 发表于 2004-10-18 23:55:19

同意楼上的观点,何必放着现成的命令不用而通过顶点去求形心?何况自己编的效率未必高,碰上复杂曲线围成的面也不好办. 还是生成面域方便

xyp1964 · 发表于 2004-10-19 00:18:59

生成面域的条件是必须有闭合的多段线、直线和曲线。为了找到“中心”，首先用boundary生成闭合线，然后用region将此线生成面域，然后利用vla-get-centroid函数求得中心！
再求程序！

PLgis · 发表于 2004-10-19 10:15:12

对不规则、不对称图形，结果不佳。

xyp1964 · 发表于 2004-10-19 13:38:11

只要封闭就行！

;;zx 得到线围合域的中心点
(defun c:zx(/)
  (vl-load-com)
  (setq zxd (getpoint"\n\t 区域内任意一点 : "))
  (command "-boundary" zxd "")
  (command "_region" (entlast) "")
  (setq zxd (vlax-safearray->list (vlax-variant-value (vla-get-centroid (vlax-ename->vla-object (entlast))))))
  (entdel (entlast))
  zxd
  )
测试：
命令: zx
  区域内任意一点 :
已提取 1 个环。[/COLOR]

已创建 1 个面域。[/COLOR]
(69354.2 57315.0)
如何去掉不想要的提示？

另：
当存在spline时，不能用region命令生成面域，如何解决？

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

[求助] [求助]：如何获得一个线围合域的中心？（又有新问题）

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

相关帖子