求闭合多段线的心【不是一般的心】（望高手出手）感激不尽（已解决）

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

测绘,整体中心,线内

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

是用在绘制穿丝孔吗

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

;; 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)
)

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

求闭合多段线的心【不是一般的心】（望高手出手）感激不尽（已解决）

点评

本帖子中包含更多资源

点评

点评

点评

点评

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块