[求助]：多边形与点定位

knight928

在任意多边形内，求出其中的任意一点坐标？？发了几天了没人回复啊 很难吗？本来设计求出多边形的顶点坐标，再取两个奇数顶点的中点，但也不行哟 哪个高手有办法指点一下啊

aeo

论坛有的
其实简单的理解
对不是很特殊的多边形:
取任一边，作中点的法线，向左一点点，如果在外部，那么向右一点点，肯定在里面
如果都在外面，取1/3处，如果不行1/4处...

aeo

[php]
;;取多边形里一点 取值往里偏0.01
(defun getpt_inbox(e / ang is j pt pt1)
  ;;先检验框子  闭合   有面积   不自相交  省略之.
  ;;假定已知 函数 (pt-in-box pt box) 测试pt在不在box里
  ;; http://www.xdcad.net/forum/showthread.php?s=&threadid=624276
  ;;检测8次，如果返回是nil 说明你的框子不适合本函数
  (setq j 2.)
  (while(and (null is)(< j 10))
     (setq pt1(vlax-curve-getpointatparam e (/ 1 j))
           ang(+ (/ pi 2)(angle '(0 0 0)(vlax-curve-getFirstDeriv e (/ 1 j))))
     )
     (setq is
        (or(pt-in-box(setq pt (polar pt1 ang 0.01)) e)
           (pt-in-box(setq pt (polar pt1(+ ang pi) 0.01)) e)
        )
     )
     (setq j(1+ j))
   )
   pt
)
[/php]

测试

2. 
   
3. (defun c:test( / e pt)
   
4.   (setvar "osmode" 0)
   
5.   (if (setq e(car(entsel)))
   
6.    (progn
   
7.     (setq pt (getpt_inbox e))
   
8.     (command "offset" "1" e pt "")
   
9.     (command "change"(entlast)"""p""c""1""")
   
10.   ))
    
11. )
    

<br /> (defun c:test( / e pt)<br />   (setvar "osmode" 0)<br />   (if (setq e(car(entsel)))<br />    (progn<br />     (setq pt (getpt_inbox e))<br />     (command "offset" "1" e pt "")<br />     (command "change"(entlast)"""p""c""1""")<br />   ))<br /> )<br />