点与多个闭合多段线的关系

正版马甲 · 发表于 2014-6-3 10:40:00

求教：已知一个点，和很多封闭的多段线，如果不用遍历的方法，怎么能快速确定出包含这个点的多段线呢？
（PS：这些多段线彼此没有交集）

sieben · 发表于 2014-6-3 19:08:00

从点出发,Fence方式选择

正版马甲 · 发表于 2014-6-3 19:20:00

其他点怎么确定呢？

sieben · 发表于 2014-6-3 22:45:00

随便取视口的一个角点呀,或者取个很远很远的点
第一点是已知点,这样选择出来的选择集的第一个封闭多段线应该就是想要的

sieben · 发表于 2014-6-3 22:47:00

不过我没这样试过,只是想应该可以

树櫴希德 · 发表于 2015-6-12 11:05:00

GreenWood
感觉edata大大的可能会好用些，选择的少，只选屏幕范围内~迈克大师的全部选，有点多了~
麦克利大师
的
; a way to find a closed polyline by point inside
;Lee Mac
(defun polyfrominsidepoint ( p / e i r s )
(if
      (setq i -1 s
         (ssget "_X"
            (list '(0 . "LWPOLYLINE") '(-4 . "&=") '(70 . 1)
                  (if (= 1 (getvar 'cvport))
                     (cons 410 (getvar 'ctab))
                     '(410 . "Model")
                  )
            )
         )
      )
      (while (and (null r) (setq e (ssname s (setq i (1+ i)))))
         (if (raycast p (mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) (entget e))))
            (setq r e)
         )
      )
)
r
)
(defun raycast ( p l )
(= 1
      (logand 1
         (length
            (vl-remove 'nil
                  (mapcar
                     '(lambda ( a b ) (inters p (mapcar '+ p '(1e8 0.0)) a b))
                     (cons (last l) l)
                     l
                  )
            )
         )
      )
)
)
(defun c:SelPolylinebyPoint ( / e p )
(if (setq p (getpoint "\nSpecify point: "))
      (if (setq e (polyfrominsidepoint p))
         (sssetfirst nil (ssadd e))
         (princ "\nNo polyline found.")
      )
)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;再送一个edata大大的程序
;;返回绘图区坐标点
;;from mjtd
(defun zj-get-scr-coods (/ half_h half_w pt_cen lst ptx pty)
(setq pt_cen (trans (GETVAR "VIEWCTR") 1 2)
ptx (car pt_cen)
pty (cadr pt_cen)
   half_h (* 0.5 (GETVAR "VIEWSIZE"))
half_w (* half_h (/ (car (GETVAR "SCREENSIZE")) (cadr (GETVAR "SCREENSIZE"))))
)
  (LIST (LIST (- ptx half_w) (- pty half_h)) (LIST (+ ptx half_w) (+ pty half_h)))
)
;;取组码值
(defun sk_dxf(ent code)(cdr(assoc code(entget ent))))
;;选择集或图元名转句柄列表
;;code by edata@mjtd
(defun sk_h5ss->lst(ss / en i lst)
  (cond
   ((= (type ss) 'ENAME)(list (sk_dxf ss 5)))
   ((= (type ss) 'PICKSET)
   (setq i -1 lst '())
   (while(setq en(ssname ss(setq i(1+ i))))
      (setq lst(cons (sk_dxf en 5) lst))
      )
   (if(/= lst '())(reverse lst))
   )
   )
  )
;;主程序
;;点选红色闭合多段线(图层过滤自己修改)
;;code by edata@mjtd
;;2014-7-4
(defun c:tt(/ a b bak_h5lst2 h5lst1 h5lst2 h5_eq loop p0 ss1 ss2)
  (if(and(setq p0(getpoint "请在红色闭合多段线内指定一点:"))
      (setq ss1(ssget "f"(list p0(car(zj-get-scr-coods)))'((0 . "lwpolyline")(62 . 1)(70 . 1))))
      (setq ss2(ssget "f"(list p0(cadr(zj-get-scr-coods)))'((0 . "lwpolyline")(62 . 1)(70 . 1))))
      )
(progn
   (setq h5lst1(sk_h5ss->lst ss1)
         h5lst2(sk_h5ss->lst ss2)
         loop t
         )
   (while(and loop (setq a(car h5lst1)))
      (setq bak_h5lst2 h5lst2)
      (while(and loop (setq b(car bak_h5lst2)))
      (if (= a b)(setq h5_eq a loop nil))
      (setq bak_h5lst2(cdr bak_h5lst2))
      )
      (setq h5lst1(cdr h5lst1))
      )
(if h5_eq
   (progn
      ;(redraw (ssname ss1 0) 3)
      (sssetfirst nil (ssadd(handent h5_eq)) )
      )
   (alert "未找到红色闭合多段线")
   )
)
(alert "未找到红色闭合多段线")
)
  (princ)
  )

yhly555 · 发表于 2016-1-21 21:20:00

这有个问题，为什么当有多个闭合多段线(包含关系)的时候，默认选择最大那个，而不是最小那个？

点与多个闭合多段线的关系

发表回复

精选推荐