帮你顶一下，问题太沉了！
请教风之影吧，他肯定会！
gbhsu 发表于 2012-2-18 20:35 static/image/common/back.gif
帮你顶一下，问题太沉了！
请教风之影吧，他肯定会！
可能是你现在也是黑老大了，没人敢教你哦
大师们是不是都忙啊………顶起来………
以前看到过一个求枝状路径相关的程序，发给你看看
(defun search:pathSearch
(startPoint path tobesearch / line entity otherPoint found)
(setq found nil)
(foreach line tobesearch
(if line
(progn
(setq entity (entget line))
(if
(search:point-eq startPoint (assoc 10 entity))
(progn
(setq otherPoint (assoc 11 entity))
(setq path (append path (list otherPoint)))
(search:pathSearch
otherPoint
path
(subst nil line tobesearch)
)
(setq found t)
)
)
(if
(search:point-eq startPoint (assoc 11 entity))
(progn
(setq otherPoint (assoc 10 entity))
(setq path (append path (list otherPoint)))
(search:pathSearch
otherPoint
path
(subst nil line tobesearch)
)
(setq found t)
)
)
)
)
)
(if (not found)
(search:printPath path)
)
)
(defun search:point-eq (apoint bpoint / val)
(if (and
(= (cadr apoint) (cadr bpoint))
(= (caddr apoint) (caddr bpoint))
(= (cadddr apoint) (cadddr bpoint))
)
(setq val T)
(setq val NIL)
)
)
(defun search:printPath (path / prev point leng)
(setq prev nil leng 0.0)
(princ "\n 路径是")
(foreach point path
(princ "\t")
(princ (cdr point))
(if prev
(setq leng (+ leng (distance (cdr prev) (cdr point))))
)
(setq prev point))
(princ "\n 总长度是")
(princ leng)
)
(defun c:pathSearch (/ point lines all)
(setq point (cons 10 (getpoint "\n选择起点")))
(princ "\n 选择所有路径直线")
(setq all (ssget))
(setq len (sslength all))
(setq cur 0)
(while (> (- len cur) 0)
(setq name (ssname all cur))
(setq cur (+ 1 cur))
(if (= (cdr (assoc 0 (entget name))) "LINE")
(setq lines (append (list name) lines))
)
)
(search:pathSearch point '() lines )
(princ)
)
自己再顶一下
顶到G版和highflybird出手！
明总请给长期对明经做出贡献的热心朋友解决问题…严哥在这论坛算是很热心的呢…经常帮人解决问题…奉献源码……请明总给解决下
声援下严哥。严哥好人啊。。请版主费心了。。请明总支持下。
先发个演示图和编译的程序，程序仅对Line有效！
调用命令：GetPath