(XD::Pnt:IsPits)判断点是否是多段线的“凹点”

Lispboy · 发表于 2016-10-16 04:41:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::Pnt:IsPits (e pt / area1 e1 inx inxs p- p+ pts tf)
  (if (= (type e) 'LIST)
    (setq e1 (xdrx_polyline_make e t)
          e e1
    )
  )
  (setq pts (xdrx_getsamplept e))
  (if (setq inx (xd::polyline:nearIndex e pt))
    (progn
      (setq inxs (xd::polyline:-index+ e inx)
            p- (xdrx_getpropertyvalue e "pointat" (car inxs))
            p+ (xdrx_getpropertyvalue e "pointat" (cadr inxs))
            area1 (xdrx_points_area p- pt p+)
      )
      (if (xd::pnts:isclockwise pts)
          (setq tf (> area1 0))
          (setq tf (< area1 0))
      )
    )
  )
  (and
    e1
    (entdel e1)
  )
  tf
)

Lispboy · 发表于 2016-10-16 04:47:19

下面代码把多段线的“凹点”标注出来

搜狗截图20161016044050.png

(defun c:tt ()
  (if (setq e (car (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "*POLYLINE")
                                 (-4 . "&=")
                                 (70 . 1)
                                )
                   )
              )
      )
    (progn
      (setq pts (xdrx_getpropertyvalue e "vertices"))
      (mapcar
        '(lambda (x)
           (if (xd::pnt:ispits e x)
             (xdrx_grdraw 2 0 x 3 3)
           )
         )
        pts
      )
    )
  )
  (princ)
)

yjch · 发表于 2016-10-16 11:32:18

好好学习天天向上

守仁格竹GM · 发表于 2016-10-17 08:06:25

回的人少，我来小顶一下

bnjzzheng · 发表于 2016-11-17 17:31:43

顶一个，相当不错

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

[点表] (XD::Pnt:IsPits)判断点是否是多段线的“凹点”

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。