怎样得到多义线内一点

GTJ116600

在使用boundary是，遇到一个问题，就是要选择多义线内部一点。据此产生一个想法，就是有没有一个点，这个点一定在闭合多义线内（跟多义线形状无关），如有，该怎样求出来。请各位大侠、版主，高人各显神通，不吝赐教。

Underway

Ref:
http://bbs.xdcad.net/thread-667628-1-1.html

newer

直接求多义线型心不就得了？

GTJ116600

newer 发表于 2013-5-9 12:28

                               
登录/注册后可看大图

直接求多义线型心不就得了？

多义线型心一定在多义线内部么

Lispboy

newer 发表于 2013-5-9 12:28

                               
登录/注册后可看大图

直接求多义线型心不就得了？

型心也不一定在内部的，看下面图形。

[pcode=lisp,true]
;;;-----------------------------------------------------------;;
;;; 向量乘标量(系数)                                              ;;
;;; Vector x Scalar - Lee Mac                                      ;;
;;; Args: v - vector in R^n, s - real scalar                      ;;
;;;-----------------------------------------------------------;;
(defun MAT:vxs ( v s )
  (mapcar (function (lambda ( n ) (* n s))) v)
)
(defun GEO:Centroid (Pts / )
  (MAT:vxs (apply 'mapcar (cons '+ pts)) (/ 1.0 (length pts)))
)
[/pcode]

Lispboy

GTJ116600 发表于 2013-5-9 12:36

                               
登录/注册后可看大图

多义线型心一定在多义线内部么

呵呵，楼主，用一个笨方法试试，你用第一个顶点和其他所有点循环求中点，判断下这个中点是否在多边形内部，找到一个就终止循环。这算法不复杂，但肯定应该有一个中点在内部。

牢固

可采用vla-ofset偏移的方法进行迭代运算，当偏移后的多段线面积接近0时，该多段线的中心点就是封闭曲线最大区域的中心位置点！代码写起来也会很简单！尝试按这个思路写一个吧！

GTJ116600

牢固 发表于 2013-5-9 12:43

                               
登录/注册后可看大图

可采用vla-ofset偏移的方法进行迭代运算，当偏移后的多段线面积接近0时，该多段线的中心点就是封闭曲线最大 ...

谢谢固版主，这个方法非常好。暨简单，又容易

eachy

GTJ116600 发表于 2013-5-9 13:31

                               
登录/注册后可看大图

谢谢固版主，这个方法非常好。暨简单，又容易

求 Pline 的BOX , 然后画一个对角线,这个对角线和 Pline 求  Intersectwith , 自己找一个规律, 取其中两个点的中点就肯定在 Pline 内部了(比如第一个和第二个)

XDSoft

GTJ116600 发表于 2013-5-9 13:31

                               
登录/注册后可看大图

谢谢固版主，这个方法非常好。暨简单，又容易

上面朋友提供的思路都可行，不管你用哪个，写好函数后贴到论坛来吧。

GTJ116600

没有问题

GTJ116600

呵呵，感谢各位大侠，感谢各位版主。问题得到解决。利用
(vla-offset obj dist)函数，只要dist 是正值就向多义线内部偏移，负值就向多义线外部偏移。通过偏移后的实体就容易得到偏移后的多义线内部点了。对任何类型的多义线都适用。:lol:lol:lol

具体内容参看
(vla-Offset myline dist)

• Object : Arc, Circle, Ellipse, Line, LightweightPolyline, Polyline, Spline, XLine
  The object or objects this method applies to.
• Distance : Double; input-only
  The distance to offset the object. The offset can be a positive or negative number, but it cannot equal zero. If the offset is negative, this is interpreted as being an offset to make a "smaller" curve (that is, for an arc it would offset to a radius that is "Distance less" than the starting curve's radius). If "smaller" has no meaning, then it would offset in the direction of smaller X, Y, and Z WCS coordinates.
• RetVal : Variant (array of objects)
  An array of the newly created objects resulting from the offset
• 
  

具体程序，随后附上

GTJ116600

GTJ116600 发表于 2013-5-9 16:54

                               
登录/注册后可看大图

呵呵，感谢各位大侠，感谢各位版主。问题得到解决。利用
(vla-offset obj dist)函数，只要dist 是正值就向 ...

[pcode=lisp,true](defun get-pl-ptlist(entname)
        (setq entlist (entget entname))
        (setq n 0 ptlists nil ent_list t)
        (while ent_list
             (setq en (nth n entlist))
             (if (= (car en) 10)
                 (setq ptlist (cdr en))
             )
             (setq n (1+ n) ent_list (nth n entlist))
       )
       (princ ptlist)
)         
(defun c:getinpt()
       (vl-load-com)
       (setq ent (car (entsel "\n请选择要偏移的实体")))
       (setq obj (vlax-ename->vla-object ent))
       (setq dist 10)
       (setq obj1 (vla-offset obj dist))
       (princ obj1)      
       (get-pl-ptlist (entlast))
       (princ)
)[/pcode]

sicky111

GTJ116600 发表于 2013-5-9 17:08
(defun get-pl-ptlist(entname)
        (setq entlist (entget entname))
        (setq n 0 ptlists ...

如果不够向里面偏移时，程式会出错：请选择要偏移的实体ERROR ==> Automation 错误。未提供说明。.layer

XDSoft

GTJ116600 发表于 2013-5-9 17:08
(defun get-pl-ptlist(entname)
        (setq entlist (entget entname))
        (setq n 0 ptlists ...

还是需要在修改下代码，适用各种情况。不能往内偏移的怎么处理？