点与多个闭合多段线的关系
求教：已知一个点，和很多封闭的多段线，如果不用遍历的方法，怎么能快速确定出包含这个点的多段线呢？（PS：这些多段线彼此没有交集） 从点出发,Fence方式选择 sieben 发表于 2014-6-3 19:08 static/image/common/back.gif
从点出发,Fence方式选择
其他点怎么确定呢？ 随便取视口的一个角点呀,或者取个很远很远的点
第一点是已知点,这样选择出来的选择集的第一个封闭多段线应该就是想要的 不过我没这样试过,只是想应该可以 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)
)
树櫴希德 发表于 2015-6-12 11:05 static/image/common/back.gif
GreenWood
感觉edata大大的可能会好用些，选择的少，只选屏幕范围内~迈克大师的全部选，有点多了~
麦克 ...
这有个问题，为什么当有多个闭合多段线(包含关系)的时候，默认选择最大那个，而不是最小那个？
页:
[1]