[求助]：如何求的闭合多段线的重心点

tgh56 · 发表于 2005-6-12 12:26:56

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

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

×

比如我选择一个闭合多段线在其重心处自动标注面积.

Gis · 发表于 2005-6-12 21:22:05

重心和最佳标注点应该不是同一个概念

舟自横 · 发表于 2005-6-12 22:38:37

很簡單，作面域求質心。。
不過有必要一定要寫在重心處嗎？

xiao_longxin · 发表于 2005-6-12 22:44:37

求多边形内最大圆的圆心

xyp1964 · 发表于 2005-6-12 23:15:28

[FONT=courier new]
(load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址:[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
(可在签名栏直接下载)
|;
(defun c:test ()
(cmdla0)
(jzhz)
(X_zb(zxd));在“质心点”标注坐标
(cmdla1)
)[/FONT]

xiao_longxin · 发表于 2005-6-13 00:23:50

有些多边形的质心可能会在多边形的外面

tgh56 · 发表于 2005-6-13 11:37:29

最初由舟自横发布
[B]很簡單，作面域求質心。。
不過有必要一定要寫在重心處嗎？ [/B]

这个方法我知道,我总觉的这个方法不妥,而且运行的时候会闪一下命令文本窗口出来(不知道有什么方法能不让这个命令文本窗口闪哪么一下吗?)我想找一种几何算法.下面就是我用作面域求質心的方法写的一个面积标注的东东:
(defun c:aer ()
  (while
(setvar "CMDECHO" 0)
   (setvar "OSMODE" 0)
   (setq se (entsel);选择一个闭合线型实体

   )
   (if (= se nil)
   (exit)
   )
   (command "hatch" "STEEL" 1 0 se "");将选择的区哉用双线填充
   (command "_area" "o" se)
   (setq p2 (getvar "area")
   p3 (/ p2 668)
   );取的闭合线型实体的面积
   (setq p2 (strcat (rtos p2 2 3) "平方米"))
   (command "_copy" se "" "0,0" "0,0")
   (command "region" se "");做面哉
   (setq rg (entget (entlast)))
   (command "massprop" "l" "" "y" "c:/ZZX.mpr")
   (command "_erase" "l" "")
   (setq f (open "c:/ZZX.mpr" "r"))
   (read-line f)
   (read-line f)
   (read-line f)
   (read-line f)
   (read-line f)
   (read-line f)
   (read-line f)
   (setq xxx (read-line f))
   (setq xxy (read-line f))
   (close f)
   (setq xxx1 (substr xxx 25 20))
   (setq xxy1 (substr xxy 25 20))
   (setq xxx2 (atof xxx1))
   (setq xxy2 (atof xxy1))
   (setq cep (list xxx2 xxy2 0));求的质心点坐标
   (command "text" "s" "STANDARD" "j" "m" cep p3 0 p2)
  )
  (princ)
)

tuobai · 发表于 2005-6-13 12:12:48

你牛,有点扮猪吃老虎的样子!

tgh56 · 发表于 2005-6-13 12:21:33

最初由 tuobai 发布
[B]你牛,有点扮猪吃老虎的样子! [/B]

楼上的说哪里去了哦!!我是真心的想求大家帮我找到一种几何算质心的算法,才来论坛求助高手的!!以前上学不听老师的话,学的积分法啊!划三角形求面积法啊!!算法和公式都忘记了哦!!

xyp1964 · 发表于 2005-6-13 20:24:44

[FONT=courier new](load "xyp_lib") ;加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址:[url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]
(可在签名栏直接下载)
|;
(defun c:mj ()
(cmdla0)
(jzhz)
(mkla "面积标注" 4)
(setvar "osmode" 0)
(princ "\n选择标注区域 : ")
(while (setq pt (zxd))
(command "bpoly" pt "")
(setq en (entlast))
(command "area" "o" en)
(entdel en)
(command "text"
"j"
"mc"
pt
(* SC 250)
"0"
(rtos (/ (getvar "area") 1.0) 2 2)
)
)
(cmdla1)
)[/FONT]

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

[求助] [求助]：如何求的闭合多段线的重心点

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

相关帖子