linshiyin2 发表于 2012-12-14 22:07:30

如果仅仅写文字，我用一个很简单的方法解决了。

cheng5276 发表于 2012-12-14 23:21:18

本帖最后由 cheng5276 于 2012-12-14 23:39 编辑



其实你仅仅是想取得一个相对中心的点，要求这个点位于多义线的内部，对吧？
1、直接取多义线的中心P1
2、以点P1正交X或Y都行，画一条临时线，求这条临时线与多义线的交点，取出同侧的两个点P2 P3
3、计算P2 P3的中点即是你要的点
（思路给你了，代码就不写了）

xiabin68 发表于 2012-12-15 10:23:44

楼主，你是不是在做勘测定界图哦，，，

linshiyin2 发表于 2012-12-15 17:17:42

linshiyin2 发表于 2012-12-14 22:07 static/image/common/back.gif
如果仅仅写文字，我用一个很简单的方法解决了。

我这个方法只能针对凸的多段线，凹的多段线求得点可能会在图形外边。

zhb236623 发表于 2012-12-18 10:20:00

看了半天不知道哪个有用，楼主直接把那个可以标注面积的代码贴出来共享下吧。

陈亚娣 发表于 2013-7-2 11:37:32

xiabin68 发表于 2012-12-11 21:49 static/image/common/back.gif
明天发给你一段代码，是G版给我的，现在手机上的不方便

xiabin68,你好！可以也发一个这样的代码给我吗？我的邮箱：610680625@qq.com

维尼 发表于 2014-1-4 20:53:30

楼主，你好利用你写的代码测试了一下结果为科学计数法，您能帮我解决一下吗？谢谢

wkq004 发表于 2016-9-23 01:34:00

chpmould 发表于 2012-12-13 19:46
不知这个要求用在什么行业

测绘,整体中心,线内

xudongchu 发表于 2017-11-23 20:19:36

是用在绘制穿丝孔吗

xyp1964 发表于 2017-11-23 21:40:23


;; tt(闭合曲线内部点)
(defun c:tt ()
(xyp-Start)
(setq i -1)
(if (setq ss (ssget '((0 . "*POLYLINE"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (xyp-point (xyp-PtInCurve s1 nil))
    )
)
(xyp-End)
)
页: 1 2 [3] 4
查看完整版本: 求闭合多段线的心【不是一般的心】（望高手出手）感激不尽（已解决）