[求助]：已知一条闭合多义线如何求在其区域内的一点的坐标

xiao_longxin

已知一条闭合多义线（有可能是拟合过的，也可能包含有弧度），如何求在其区域内的一点的坐标，即只要求出的点的坐标在其区域内即可了。

mkhsj927

试试已知点偏移多义线，再比线的较长度

xiao_longxin

最初由 mkhsj927 发布
[B]试试已知点偏移多义线，再比线的较长度 [/B]

那么移的量是不是应该进行多次由小到大的偿试才能有满意的结果呢？

mkhsj927

怎么会呢？只偏移原多义线到指定点一次就行了

呵呵，也许我没看清你的意思，sorry！
你是要找一个在闭合多义线内的点？？？有必要吗？

xiao_longxin

最初由 mkhsj927 发布
[B]怎么会呢？只偏移原多义线到指定点一次就行了

呵呵，也许我没看清你的意思，sorry！
你是要找一个在闭合多义线内的点？？？有必要吗？ [/B]

当然有这个必要了，当你要在很多填充图案内随机编号并且注记在其中时就有用了。

mkhsj927

在没编号的话就应该寻找最适合的位置，呵呵，比较复杂了，暂时还没好办法

狂刀

思路，供参考：
曲线上任意一点（比如：firstpoint），沿法线及法线+PI 取两点（距离可取很小）
判断点是否在曲线内。(方法有多种:射线法,面积法,offset法)
个人推荐射线法,但能写这个方法的人在论坛也不算多
一般应用可用面积法,计算量大的时候慢点
offset法不是很保险.....

xiao_longxin

我觉得还是2楼的想法比较现实些
1，先取到线上一点
2。做四种偿试：
　　先过（X＋0。001，Y），判断此点是否在线上（如果在线上刚把0.001变成0.002、003、004。。。。，直到点不在线上为止），过该点做平行线，比较两线的长度，不不满足则
　　过（X－0。001，Y），判断此点是否在线上（如果在线上刚把0.001变成0.002、003、004。。。。，直到点不在线上为止），过该点做平行线，比较两线的长度，不不满足则
　　过（X，Y＋0。001），判断此点是否在线上（如果在线上刚把0.001变成0.002、003、004。。。。，直到点不在线上为止），过该点做平行线，比较两线的长度，不不满足则
　　过（X，Y－0。001），判断此点是否在线上（如果在线上刚把0.001变成0.002、003、004。。。。，直到点不在线上为止），过该点做平行线，比较两线的长度
3。就是四种情况中是不是一定有一种可以满足呢？
4。其间有一个问题：因为选的线上的点为不可预知，如果刚好此点处在正南北朝向和正东西朝向时，则不管坐标加多少变量都会在线。

请各位大大讨论

舟自横

(defun hy_inorout(point en dimr / base_area cr en1 en2);;;判斷點畫圓是否超出封閉圖形 pt="in" pt="out"
  (setvar "osmode" 0)
  (command "undo" "be")
  (command "area" "o" en)
  (setq base_area (getvar "area"))
  (command "circle" point "d" dimr)(setq cr (entlast))
  (command "region" en "")(setq en2 (entlast))
  (command "region" cr "")(setq en1 (entlast))
  (setq ss (ssadd) ss (ssadd en1 ss) ss(ssadd en2 ss))
  (command "union" en1 en2 "")
  (command "area" "o" (entlast))
  (if (> (getvar "area") base_area) (setq pt "out") (setq pt "in"))
  (command "undo" "e" "undo" 1)
  pt
  )
(defun hy_getinpoint(en / apoint anglebase p1);;;取得封閉復線中一點
  (setvar "osmode" 0)
  (setq apoint (cdr(assoc 10 (entget en))))
  (setq anglebase 0.0)
  (setq p1 (polar apoint anglebase 0.5))
  (while(= (hy_inorout p1 en 0.01) "out")
        (setq anglebase (+ anglebase 1.0))
        (setq p1 (polar apoint (* (/ anglebase 180) pi) 0.5))
    )
  p1       
  )
试一下吧

啵浪鼓

朱小弟,还在吗?你的程序用不了

舟自横

请问你哪位?我在!我试过可以的!

xiao_longxin

最初由 舟自横 发布
[B](defun hy_inorout(point en dimr / base_area cr en1 en2);;;判斷點畫圓是否超出封閉圖形 pt="in" pt="out"
  (setvar "osmode" 0)
  (command "undo" "be")
  (command "area" "o" en)
  (setq base_area (get... [/B]

该程序有BUG，REGION不是所有的封闭多义线都能生成面的。就算REGION能生成所有的面，该程序也不能适应各种情况。楼主考虑过有这种情况吗？

狂刀

为什么没有人注意我在7楼的重要讲话呢?郁闷ing....

xiao_longxin

最初由 狂刀 发布
[B]为什么没有人注意我在7楼的重要讲话呢?郁闷ing.... [/B]

想法好像是可行的。
楼主把你的程序帖出来供大家讨论和测试。

狂刀

现在没空哦。
上面的几位朋友按我的思路可以试写出来的。