【已解决】曲线粘连选择

liuyj · 发表于 2013-7-23 13:13:34

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

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

×

用于管网的快速选择，应该可以按图层选择，要有精度控制。这个以前写过的人也不少，江南的那个比较好，但在管网比较大的情况下，选择起来很慢，且有遗漏。直线管网比较容易，顾版曾写过一个程序，很好用，但无法选择曲线管网，是个遗憾。

newer · 发表于 2013-7-23 14:52:48

楼主最好详细说下，贴个图上来，并附上测试的DWG图纸,我是没看清楚你的要求。

老大曾经发过新版工具箱的快速选择工具，不知道是否适合。

XDSoft · 发表于 2013-7-23 17:04:26

贴个图上来吧，什么样的曲线粘连选择。

st788796 · 发表于 2013-7-23 17:38:11

LZ 要求类似拓扑, 选一根线, 和其相连(或在一定间隙内的)构造一个选择集

newer · 发表于 2013-7-23 18:02:21

st788796 发表于 2013-7-23 17:38
LZ 要求类似拓扑, 选一根线, 和其相连(或在一定间隙内的)构造一个选择集

如这么说，应该不难写，曲线用点表模拟出来就行了，等楼主上图吧。

liuyj · 发表于 2013-7-23 21:02:35

st兄说的差不多，拿个很简单的例子演示一下，限于自己的水平，我只能做到这样了，不知各位大师有什么好方法.

liuyj · 发表于 2013-7-23 21:05:11

对每个图元缩放以取得端点是个很笨的方法，尤其在图纸很大的时候，慢得受不了

XDSoft · 发表于 2013-7-23 21:08:34

liuyj 发表于 2013-7-23 21:05
对每个图元缩放以取得端点是个很笨的方法，尤其在图纸很大的时候，慢得受不了

把你现在这个实现的代码贴论坛来吧。

另外，在附个DWG图，你的图片里面的，实体都是LINE吗？每个地方都是断开不连续的吗？都是一个图层？

eachy · 发表于 2013-7-23 21:44:01

用端点判断，可以参考Checkopen算法

newer · 发表于 2013-7-23 21:54:11

从楼主的图看，是个树，应该可以用树的算法，

问个问题，楼主，你的这些官网有形成闭合回路的情况没？看图好像都是开放的。

liuyj · 发表于 2013-7-23 22:14:54

本人水平有限，程序是在江南兄的代码上修改而来，借用了多位大师的代码，也记不住是谁了。弄得很啰嗦，现在自己看起来也很吃力。

(defun xss2olst (ss / i e lst)
(setq i -1)
(while (setq e (ssname ss (setq i (1+ i))))
(setq lst (cons (vlax-ename->vla-object e) lst))
)
)
(defun xssobox (sso / ps xs ys lst)
(setq ps (apply 'append
(mapcar '(lambda (x)
(vla-getboundingbox x 'll 'rr)
(mapcar 'vlax-safearray->list (list ll rr))
)
sso
)
)
xs (vl-sort (mapcar 'car ps) '<)
ys (vl-sort (mapcar 'cadr ps) '<)
lst (list (list (car xs) (car ys)) (list (last xs) (last ys)))
)
)
(defun ZoomObject (objlst / dir ang 3x3 4x4 ptlst)
(setq dir (trans '(0 0 1) 2 0 T)
ang (- (getvar "viewtwist"))
3x3 (mxm (mapcar '(lambda (x) (trans x 0 dir))
'((1 0 0) (0 1 0) (0 0 1))
)
(list (list (cos ang) (- (sin ang)) 0)
(list (sin ang) (cos ang) 0)
'(0 0 1)
)
)
4x4 (append (mapcar '(lambda (v o) (append v (list o))) 3x3 '(0 0 0))
(list '(0 0 0 1))
)
)
(foreach obj objlst
(setq obj (vlax-ename->vla-object obj))
(vla-TransformBy obj (vlax-tmatrix (trp 4x4)))
(vla-getBoundingBox obj 'minpt 'maxpt)
(vla-TransformBy obj (vlax-tmatrix 4x4))
(setq ptlst (cons (vlax-safearray->list minpt)
(cons (vlax-safearray->list maxpt) ptlst)
)
)
)
(vla-ZoomWindow
(vlax-get-acad-object)
(vlax-3d-point (mxv 3x3 (apply 'mapcar (cons 'min ptlst))))
(vlax-3d-point (mxv 3x3 (apply 'mapcar (cons 'max ptlst))))
)
(vlax-invoke (vlax-get-acad-object) 'ZoomScaled 0.95 1)
)
(defun yad_ssadd (oldss ss / n)
(setq n -1)
(repeat (sslength ss)
(ssadd (ssname ss (setq n (1+ n))) oldss)
)
oldss
)
(defun SSBoundingBox (ss / _GetBoundingBox _SStoObjects _Main)
(defun _GetBoundingBox (object / p1 p2)
(vl-catch-all-apply
'(lambda ()
(vlax-invoke-method object 'GetBoundingBox 'p1 'p2)
)
)
(if p1
((lambda (data)
(mapcar
'(lambda (funcs)
(mapcar '(lambda (func) (apply func data)) funcs)
)
'((caar cadar) (caadr cadar) (caadr cadadr) (caar cadadr))
)
)
(list (mapcar 'vlax-safearray->list (list p1 p2)))
)
)
)
(defun _SStoObjects (ss / i objects)
(if (eq 'pickset (type ss))
(repeat (setq i (sslength ss))
(setq objects
(cons
(vlax-ename->vla-object (ssname ss (setq i (1- i))))
objects
)
)
)
)
objects
)
(defun _Main (ss / boundingboxes)
(cond
((setq boundingboxes
(vl-remove-if
'null
(mapcar '_GetBoundingBox (_SStoObjects ss))
)
)
(mapcar
'(lambda (func pair / lst)
(list
(apply (car pair)
(mapcar 'car (setq lst (mapcar func boundingboxes)))
)
(apply (cadr pair) (mapcar 'cadr lst))
)
)
'(car cadr caddr cadddr)
'((min min) (max min) (max max) (min max))
)
)
)
)
(_Main ss)
)
(defun get_touching (sscros lay / ss lst lstb lstc objl)
(and
(setq lstb (vl-remove-if 'listp (mapcar 'cadr (ssnamex sscros)))
objl (mapcar 'vlax-ename->vla-object lstb)
)
(setq ss
(ssget
"_CP"
(SSBoundingBox sscros)
(list
(cons 0
"LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE"
)
(cons 8 lay)
(cons 410 (getvar "ctab"))
)
)
)
(setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
(setq lst (mapcar 'vlax-ename->vla-object lst))
(mapcar
'(lambda (x)
(mapcar
'(lambda (y)
(if (not (vl-catch-all-error-p
(vl-catch-all-apply
'(lambda ()
(vlax-safearray->list
(vlax-variant-value
(vla-intersectwith y x acextendnone)
)
)
)
)
)
)
(setq lstc (cons (vlax-vla-object->ename x) lstc))
)
)
objl
)
)
lst
)
)
lstc
)
(defun mx_getPtss (p0 hdist filter_list / e0)
(if filter_list
(if (and hdist (/= hdist 0))
(progn (setq hdist (abs (/ hdist (sin (* 0.25 pi)))))
(setq e0 (ssget "_C"
(polar p0 (* 1.25 pi) hdist)
(polar p0 (* 0.25 pi) hdist)
(if (= (type filter_list) 'LIST)
filter_list
(list (cons 8 filter_list))
)
)
)
)
(setq e0 (ssget p0
(if (= (type filter_list) 'LIST)
filter_list
(list (cons 8 filter_list))
)
)
)
)
(if (and hdist (/= hdist 0))
(progn (setq hdist (abs (/ hdist (sin (* 0.25 pi)))))
(setq e0 (ssget "_C"
(polar p0 (* 1.25 pi) hdist)
(polar p0 (* 0.25 pi) hdist)
)
)
)
(setq e0 (ssget p0))
)
)
(if e0
e0
)
)
(defun sslist (f_sel)
(if f_sel
(progn
(if (/= (type f_sel) 'PICKSET)
(exit)
)
(setq f_ss_list nil
f_loop -1
)
(repeat (sslength f_sel)
(progn (setq f_loop (1+ f_loop))
(setq
f_ss_list (append f_ss_list (list (ssname f_sel f_loop)))
)
)
)
)
nil
)
)
;; Returns a list with duplicate elements removed.
(defun LM:Unique (l)
(if l
(cons (car l) (LM:Unique (vl-remove (car l) (cdr l))))
)
)
(defun c:fss (/ fil sso p1 p2 ssx ss ss1 ssn a1 a2 b1 b2 fz lay box box1
en etype lst)
(defun addnext (en pt / next)
(if (setq next (gotonexten en pt fz))
(foreach a next
(if (not (ssmemb (car a) ss))
(progn (ssadd (car a) ss)
(ZoomObject (sslist ss))
(apply 'addnext a)
)
)
)
)
)
(setq
fil '((0 . "LINE,POLYLINE,LWPOLYLINE,SPLINE,CIRCLE,ARC,ELLIPSE"))
)
(princ "\n粘连选集源:")
(if (setq etype (ssget ":s" fil))
(progn (setq sso (xss2olst etype))
(setq en (vlax-vla-object->ename (car sso)))
(ZoomObject (list en))
(setq lay (dxf1 8 en))
(or (setq fz (getdist "\n 阈值(负值不支持相交)/<10.0>:"))
(setq fz 10.)
)
)
)
(if lay
(setq fil (reverse (cons (cons 8 lay) fil)))
)
(setq box (* (/ (getvar "pickbox") (cadr (getvar "screensize")))
;;; (getvar "viewsize")
5000.
)
)
(if en
(progn
(setq ss (ssadd))
(ssadd en ss)
(if (and (null (addnext en (vlax-curve-getstartpoint en)))
(null (addnext en (vlax-curve-getendpoint en)))
)
(progn (setq ss_1 (mx_getPtss (vlax-curve-getstartpoint en) box lay)
ss_2 (mx_getPtss (vlax-curve-getendpoint en) box lay)
)
(if ss_1
(setq ss (yad_ssadd ss ss_1))
)
(if ss_2
(setq ss (yad_ssadd ss ss_2))
)
(if (setq ss1 (LM:Unique (get_touching ss lay)))
(foreach x ss1 (ssadd x ss))
)
(ZoomObject ss1)
)
)
(setq ssn (ssadd))
(foreach a (sslist ss)
(setq sso (list (vlax-ename->vla-object a)))
(while
(apply
'or
(mapcar
'(lambda (x)
(setq i -1
kk nil
k T
)
(while (and k (setq y (nth (setq i (1+ i)) sso)))
(cond
((member x sso) (setq k nil))
((eq x y) nil)
((or (if (<= 0. fz)
(vlax-invoke x 'intersectwith y acExtendNone)
nil
)
(progn ;; v1.1 for 相切.端点相邻(支持阈值 fz)
(setq a1 (vlax-curve-getstartpoint x)
a2 (vlax-curve-getendpoint x)
b1 (vlax-curve-getstartpoint y)
b2 (vlax-curve-getendpoint y)
)
(or (equal a1 b1 fz)
(equal a1 b2 fz)
(equal a2 b1 fz)
(equal a2 b2 fz)
)
)
)
(setq sso (cons x sso)
kk T
k nil
)
)
(T nil)
)
)
kk
)
(setq
lst (xss2olst
(ssget "c"
(mapcar '-
(car (setq box1 (xssobox sso)))
(list box box)
)
(mapcar '+ (cadr box1) (list box box))
fil
)
)
)
)
)
;;; 对于大量实体,用zoom命令比用zoomobject要快,但会有遗漏的情况
;;; (command "._Zoom" "W" (car box1) (cadr box1) "._Zoom" "0.95x")
(ZoomObject (mapcar 'vlax-vla-object->ename sso))
)
(foreach x (LM:Unique (mapcar 'vlax-vla-object->ename sso))
(ssadd x ssn)
)
)
(yad_ssadd ssn ss)
(ZoomObject (sslist ssn))
(sssetfirst nil ssn)
)
)
(princ)
)

(defun xss2olst (ss / i e lst) 
  (setq i -1) 
  (while (setq e (ssname ss (setq i (1+ i)))) 
    (setq lst (cons (vlax-ename->vla-object e) lst)) 
  ) 
) 
(defun xssobox (sso / ps xs ys lst) 
  (setq ps  (apply 'append 
     (mapcar '(lambda (x) 
         (vla-getboundingbox x 'll 'rr) 
         (mapcar 'vlax-safearray->list (list ll rr)) 
       ) 
      sso 
     ) 
     ) 
 xs  (vl-sort (mapcar 'car ps) '<) 
 ys  (vl-sort (mapcar 'cadr ps) '<) 
 lst (list (list (car xs) (car ys)) (list (last xs) (last ys))) 
  ) 
) 
(defun ZoomObject (objlst / dir ang 3x3 4x4 ptlst) 
  (setq dir (trans '(0 0 1) 2 0 T) 
 ang (- (getvar "viewtwist")) 
 3x3 (mxm (mapcar '(lambda (x) (trans x 0 dir)) 
    '((1 0 0) (0 1 0) (0 0 1)) 
   ) 
   (list (list (cos ang) (- (sin ang)) 0) 
         (list (sin ang) (cos ang) 0) 
         '(0 0 1) 
   ) 
     ) 
 4x4 (append (mapcar '(lambda (v o) (append v (list o))) 3x3 '(0 0 0)) 
      (list '(0 0 0 1)) 
     ) 
  ) 
  (foreach obj objlst 
    (setq obj (vlax-ename->vla-object obj)) 
    (vla-TransformBy obj (vlax-tmatrix (trp 4x4))) 
    (vla-getBoundingBox obj 'minpt 'maxpt) 
    (vla-TransformBy obj (vlax-tmatrix 4x4)) 
    (setq ptlst (cons (vlax-safearray->list minpt) 
        (cons (vlax-safearray->list maxpt) ptlst) 
  ) 
    ) 
  ) 
  (vla-ZoomWindow 
    (vlax-get-acad-object) 
    (vlax-3d-point (mxv 3x3 (apply 'mapcar (cons 'min ptlst)))) 
    (vlax-3d-point (mxv 3x3 (apply 'mapcar (cons 'max ptlst)))) 
  ) 
  (vlax-invoke (vlax-get-acad-object) 'ZoomScaled 0.95 1) 
) 
(defun yad_ssadd (oldss ss / n) 
  (setq n -1) 
  (repeat (sslength ss) 
    (ssadd (ssname ss (setq n (1+ n))) oldss) 
  ) 
  oldss 
) 
(defun SSBoundingBox (ss / _GetBoundingBox _SStoObjects _Main) 
  (defun _GetBoundingBox (object / p1 p2) 
    (vl-catch-all-apply 
      '(lambda () 
  (vlax-invoke-method object 'GetBoundingBox 'p1 'p2) 
       ) 
    ) 
    (if p1 
      ((lambda (data) 
  (mapcar 
    '(lambda (funcs) 
       (mapcar '(lambda (func) (apply func data)) funcs) 
     ) 
    '((caar cadar) (caadr cadar) (caadr cadadr) (caar cadadr)) 
  ) 
       ) 
 (list (mapcar 'vlax-safearray->list (list p1 p2))) 
      ) 
    ) 
  ) 
  (defun _SStoObjects (ss / i objects) 
    (if (eq 'pickset (type ss)) 
      (repeat (setq i (sslength ss)) 
 (setq objects 
        (cons 
   (vlax-ename->vla-object (ssname ss (setq i (1- i)))) 
   objects 
        ) 
 ) 
      ) 
    ) 
    objects 
  ) 
  (defun _Main (ss / boundingboxes) 
    (cond 
      ((setq boundingboxes 
       (vl-remove-if 
  'null 
  (mapcar '_GetBoundingBox (_SStoObjects ss)) 
       ) 
       ) 
       (mapcar 
  '(lambda (func pair / lst) 
     (list 
       (apply (car pair) 
       (mapcar 'car (setq lst (mapcar func boundingboxes))) 
       ) 
       (apply (cadr pair) (mapcar 'cadr lst)) 
     ) 
   ) 
  '(car cadr caddr cadddr) 
  '((min min) (max min) (max max) (min max)) 
       ) 
      ) 
    ) 
  ) 
  (_Main ss) 
) 
(defun get_touching (sscros lay / ss lst lstb lstc objl) 
  (and 
    (setq lstb (vl-remove-if 'listp (mapcar 'cadr (ssnamex sscros))) 
   objl (mapcar 'vlax-ename->vla-object lstb) 
    ) 
    (setq ss 
    (ssget 
      "_CP" 
      (SSBoundingBox sscros) 
      (list 
        (cons 0 
       "LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE" 
        ) 
        (cons 8 lay) 
        (cons 410 (getvar "ctab")) 
      ) 
    ) 
    ) 
    (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))) 
    (setq lst (mapcar 'vlax-ename->vla-object lst)) 
    (mapcar 
      '(lambda (x) 
  (mapcar 
    '(lambda (y) 
       (if (not (vl-catch-all-error-p 
    (vl-catch-all-apply 
      '(lambda () 
         (vlax-safearray->list 
    (vlax-variant-value 
      (vla-intersectwith y x acextendnone) 
    ) 
         ) 
       ) 
    ) 
         ) 
    ) 
  (setq lstc (cons (vlax-vla-object->ename x) lstc)) 
       ) 
     ) 
    objl 
  ) 
       ) 
      lst 
    ) 
  ) 
  lstc 
) 
(defun mx_getPtss (p0 hdist filter_list / e0) 
  (if filter_list 
    (if (and hdist (/= hdist 0)) 
      (progn (setq hdist (abs (/ hdist (sin (* 0.25 pi))))) 
      (setq e0 (ssget "_C" 
        (polar p0 (* 1.25 pi) hdist) 
        (polar p0 (* 0.25 pi) hdist) 
        (if (= (type filter_list) 'LIST) 
          filter_list 
          (list (cons 8 filter_list)) 
        ) 
        ) 
      ) 
      ) 
      (setq e0 (ssget p0 
        (if (= (type filter_list) 'LIST) 
   filter_list 
   (list (cons 8 filter_list)) 
        ) 
        ) 
      ) 
    ) 
    (if (and hdist (/= hdist 0)) 
      (progn (setq hdist (abs (/ hdist (sin (* 0.25 pi))))) 
      (setq e0 (ssget "_C" 
        (polar p0 (* 1.25 pi) hdist) 
        (polar p0 (* 0.25 pi) hdist) 
        ) 
      ) 
      ) 
      (setq e0 (ssget p0)) 
    ) 
  ) 
  (if e0 
    e0 
  ) 
) 
(defun sslist (f_sel) 
  (if f_sel 
    (progn 
      (if (/= (type f_sel) 'PICKSET) 
 (exit) 
      ) 
      (setq f_ss_list nil 
     f_loop -1 
      ) 
      (repeat (sslength f_sel) 
 (progn (setq f_loop (1+ f_loop)) 
        (setq 
   f_ss_list (append f_ss_list (list (ssname f_sel f_loop))) 
        ) 
 ) 
      ) 
    ) 
    nil 
  ) 
) 
;; Returns a list with duplicate elements removed. 
(defun LM:Unique (l) 
  (if l 
    (cons (car l) (LM:Unique (vl-remove (car l) (cdr l)))) 
  ) 
) 
(defun c:fss (/ fil sso p1 p2 ssx ss ss1 ssn a1 a2 b1 b2 fz lay box box1 
       en etype lst) 
  (defun addnext (en pt / next) 
    (if (setq next (gotonexten en pt fz)) 
      (foreach a next 
 (if (not (ssmemb (car a) ss)) 
   (progn (ssadd (car a) ss) 
   (ZoomObject (sslist ss)) 
   (apply 'addnext a) 
   ) 
 ) 
      ) 
    ) 
  ) 
  (setq 
    fil '((0 . "LINE,POLYLINE,LWPOLYLINE,SPLINE,CIRCLE,ARC,ELLIPSE")) 
  ) 
  (princ "\n粘连选集源:") 
  (if (setq etype (ssget ":s" fil)) 
    (progn (setq sso (xss2olst etype)) 
    (setq en (vlax-vla-object->ename (car sso))) 
    (ZoomObject (list en)) 
    (setq lay (dxf1 8 en)) 
    (or (setq fz (getdist "\n 阈值(负值不支持相交)/<10.0>:")) 
        (setq fz 10.) 
    ) 
    ) 
  ) 
  (if lay 
    (setq fil (reverse (cons (cons 8 lay) fil))) 
  ) 
  (setq box (* (/ (getvar "pickbox") (cadr (getvar "screensize"))) 
;;;        (getvar "viewsize") 
        5000. 
     ) 
  ) 
  (if en 
    (progn 
      (setq ss (ssadd)) 
      (ssadd en ss) 
      (if (and (null (addnext en (vlax-curve-getstartpoint en))) 
        (null (addnext en (vlax-curve-getendpoint en))) 
   ) 
 (progn (setq ss_1 (mx_getPtss (vlax-curve-getstartpoint en) box lay) 
       ss_2 (mx_getPtss (vlax-curve-getendpoint en) box lay) 
        ) 
        (if ss_1 
   (setq ss (yad_ssadd ss ss_1)) 
        ) 
        (if ss_2 
   (setq ss (yad_ssadd ss ss_2)) 
        ) 
        (if (setq ss1 (LM:Unique (get_touching ss lay))) 
   (foreach x ss1 (ssadd x ss)) 
        ) 
        (ZoomObject ss1) 
 ) 
      ) 
      (setq ssn (ssadd)) 
      (foreach a (sslist ss) 
 (setq sso (list (vlax-ename->vla-object a))) 
 (while 
   (apply 
     'or 
     (mapcar 
       '(lambda (x) 
   (setq i  -1 
         kk nil 
         k  T 
   ) 
   (while (and k (setq y (nth (setq i (1+ i)) sso))) 
     (cond 
       ((member x sso) (setq k nil)) 
       ((eq x y) nil) 
       ((or (if (<= 0. fz) 
       (vlax-invoke x 'intersectwith y acExtendNone) 
       nil 
     ) 
     (progn ;; v1.1 for 相切.端点相邻(支持阈值 fz) 
     (setq a1 (vlax-curve-getstartpoint x) 
           a2 (vlax-curve-getendpoint x) 
           b1 (vlax-curve-getstartpoint y) 
           b2 (vlax-curve-getendpoint y) 
     ) 
     (or (equal a1 b1 fz) 
         (equal a1 b2 fz) 
         (equal a2 b1 fz) 
         (equal a2 b2 fz) 
     ) 
     ) 
        ) 
        (setq sso (cons x sso) 
       kk T 
       k nil 
        ) 
       ) 
       (T nil) 
     ) 
   ) 
   kk 
        ) 
       (setq 
  lst (xss2olst 
        (ssget "c" 
        (mapcar '- 
         (car (setq box1 (xssobox sso))) 
         (list box box) 
        ) 
        (mapcar '+ (cadr box1) (list box box)) 
        fil 
        ) 
      ) 
       ) 
     ) 
   ) 
;;;   对于大量实体,用zoom命令比用zoomobject要快,但会有遗漏的情况 
;;;   (command "._Zoom" "W" (car box1) (cadr box1) "._Zoom" "0.95x") 
    (ZoomObject (mapcar 'vlax-vla-object->ename sso)) 
 ) 
 (foreach x (LM:Unique (mapcar 'vlax-vla-object->ename sso)) 
   (ssadd x ssn) 
 ) 
      ) 
      (yad_ssadd ssn ss) 
      (ZoomObject (sslist ssn)) 
      (sssetfirst nil ssn) 
    ) 
  ) 
  (princ) 
)

liuyj · 发表于 2013-7-23 22:17:05

newer 发表于 2013-7-23 21:54
从楼主的图看，是个树，应该可以用树的算法，

问个问题，楼主，你的这些官网有形成闭合回路的情况没？ ...

我主要是计算树状管网用，所以一般没有闭合回路的情况，不过老兄的话也提醒了我，应该考虑环状管网的情况

liuyj · 发表于 2013-7-23 22:19:26

本帖最后由 liuyj 于 2013-7-23 22:22 编辑

XDSoft 发表于 2013-7-23 21:08
把你现在这个实现的代码贴论坛来吧。

另外，在附个DWG图，你的图片里面的，实体都是LINE吗？每个地方 ...

老大，不都是line，所以比较麻烦，一般我不用spline线，其他的是有可能用的，当然最多的还是直线和圆弧。图层应该以选择的实体为基准。实体端点处一般应该是相接的，但有可能会有小间隙，所以希望能有精度控制。

liuyj · 发表于 2013-7-23 22:23:29

eachy 发表于 2013-7-23 21:44
用端点判断，可以参考Checkopen算法

eachy兄，checkopen的算法在哪里可供学习？有没有代码？

Lisphk · 发表于 2013-7-23 22:43:37

liuyj 发表于 2013-7-23 22:17
我主要是计算树状管网用，所以一般没有闭合回路的情况，不过老兄的话也提醒了我，应该考虑环状管网的情况

如果要是环状闭合的话，那程序就麻烦了吧，容易死循环，得小心判断。

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

[已解决] 【已解决】曲线粘连选择

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

点评

点评

点评

点评

点评

点评

点评