社区 › AutoLISP/Visual LISP 编程技术 › 两点间的所有路径的算法

mynameissnow 发表于 2019-4-19 10:07:14

两点间的所有路径的算法

G版和HIGHFLYBIRD及高人请进!如何能求出所有的路径呢？
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92071&fromuid=7326095
(出处: 明经CAD社区)

上面这个帖子是之前G版做的一个关于求两点间所有路径的lisp代码，因为发帖较少，看不了核心代码，有没有朋友发一下，在此感谢，或者给出类似lisp程序也行，只要达到相同效果，在此感谢各位大神惠临

mynameissnow 发表于 2019-4-19 10:16:45

本帖最后由 mynameissnow 于 2019-4-22 11:17 编辑

谢谢，权限够了，在此贴出来，以飨读者，感谢G版，感谢明经论坛，一个有大神的地方，一个学习成长的地方！


[*];;;搜索所有路径演示图

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;;   /------------\

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;;/--|----------\ |

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;;|0 -------- 1 |

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;;|| \       /| |

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;;||\   / | |

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;;||   \ 2 /| |

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;;||   /\   | |

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;;||/    \| |

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;;|| /      \ | |

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;;\--3 ------- 4--/

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;(c:getpath)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(defun c:getpath (/ SS       FUZZ DATA   ENT-NODES NODE-COORDS

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      NODES   IARCS   ARC->NODES arcs

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      NODE->ARCSL   MAKEPATHENTSTART

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      ENTDATA   PT NODE1   P1   NODE2

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      P2       STARTNODE ENDNODE      K oldpath

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      P       PATH OLDENT NodePath arcpath EntArcs Sorti)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;| 上图的演示测试数据

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;结点表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq nodes '(0 1 2 3 4))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;无向弧段表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq arcs '(0 1 2 3 4 5 6 7 8 9))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;弧段-结点表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq arc->Nodes '((0 1) (0 2) (0 3) (0 4)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (1 2) (1 3) (1 4)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (2 3) (2 4)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (3 4)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;结点-弧段表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq Node->Arcs '((0 1 2 3)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (0 4 5 6)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (1 4 7 8)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (2 5 7 9)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (3 6 8 9)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq startNode 0 EndNode 3)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif|;

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;递归法计算路径 参数 ：起点编号 终点编号 储存的路径结点数据 储存的路径弧段数据表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(defun makepath (STARTNODE ENDNODE NODEDATA arcdata/ ARCS NODES NODE )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (setq arcs (nth startnode Node->Arcs)) ;_ 与起点相连的弧段表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (foreach a arcdata (setq arcs (vl-remove a arcs))) ;_ 移除已在路径中的弧段

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    ;;逐个弧段分别扩展路径

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (foreach arc arcs

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (setq nodes (nth arc arc->Nodes)) ;_ 弧段两端的节点编号

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (setq node (car (vl-remove startnode nodes))) ;_ 移除已在路径中的结点，得到下一结点编号

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (cond

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif ((= node EndNode) ;_ 若下一结点为终止点，则找到一条路径

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq NodePath (cons (reverse (cons node Nodedata)) NodePath)) ;_ 返回路径结点表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq ArcPath (cons (reverse (cons arc arcdata)) ArcPath)) ;_ 返回路径结点表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif ;;若下一结点不在路径中，以下一结点为起始点，继续搜索路径，否则是此路不通

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif ((not (member node Nodedata)) (makepath node endnode(cons node Nodedata) (cons arc arcdata)))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif ; (setierr)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq Fuzz (getreal "\n 容差精度<0.001>:"))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(if (null Fuzz) (setq Fuzz 0.001))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(princ "\n**曲线打断，请等待...") (princ)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;曲线选择集交点打断，返回打断后的选择集

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq ss (GXL-BREAK_SSFuzz ss Fuzz)) ;_

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(princ (strcat "打断后曲线总数为: " (itoa (sslength ss)) " 个.")) (princ)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(princ "\n**构建弧段--结点数据表，请等待...") (princ)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;构建弧段图元和结点编号数据表，返回值：图元名--节点编号表 '((图元名 首节点编号 末节点编号)...) 节点--坐标表 '((节点编号 坐标)...)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;; gxl-ent->Nodes 函数代码在 <a href="http://bbs.mjtd.com/thread-82692-1-1.html" target="_blank">http://bbs.mjtd.com/thread-82692-1-1.html</a> 帖子里有

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq data (gxl-ent->Nodes (GXL-SEL-SS->LIST ss) Fuzz))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq Ent-nodes (car data) ;_ 图元名--节点编号表 '((图元名 首节点编号 末节点编号)...)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif EntArcs (mapcar 'car Ent-nodes) ;_ 弧段图元名表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif node-coords (cadr data) ;_ 节点--坐标表 '((节点编号 坐标)...)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq nodes (mapcar 'car node-coords) ;_ 结点表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif i -1

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif arcs (mapcar '(lambda (x) (setq i (1+ i))) Ent-nodes) ;_ 无向弧段表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif arc->Nodes (mapcar 'cdr Ent-nodes) ;_ 弧段-结点表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;建立结点-弧段表 Node->Arcs

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq Node->Arcs (mapcar

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif       '(lambda (x / i l)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   (setq i -1)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   (mapcar '(lambda (a) (setq i (1+ i)) (if (member x a) (setq l (cons i l)))) arc->Nodes)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   l

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif       nodes

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif       )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setvar 'osmode 111)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (while

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (not

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (progn

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   (setq StartPoint (getpoint "\n选择起点:"))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif          (vl-some '(lambda (x) (if (equal (cadr x) StartPoint Fuzz) (setq startNode (car x)))) node-coords)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   startNode

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (princ "\n选择的起点不在节点上，请重新选择！")

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(while

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (not

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (progn

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   (setq EndPoint (getpoint "\n选择终点:"))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif          (vl-some '(lambda (x) (if (equal (cadr x) EndPoint Fuzz) (setq EndNode (car x)))) node-coords)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   EndNode

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (princ "\n选择的终点不在节点上，请重新选择！")

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (setvar 'osmode 0)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(princ "\n**计算所有路径，请等待...") (princ)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;计算路径，路径结点数据表存储在表 NodePath ，路径弧段数据表存储在表 ArcPath

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(makepath startNode EndNode (list startNode) nil)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;路径结点表 NodePath '((结点1 结点2 ...) (结点n 结点n+1 ...) ...)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;路径弧段数据表 ArcPath '((弧段1 弧段2 ...) (弧段n 弧段n+1 ...) ...)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(princ (strcat "\n**共有 " (itoa (length NodePath)) " 条路径**"))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(if ArcPath

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (progn

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;;对弧段表按路径长度从小到大排序，返回排序后的索引表

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq Sorti

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(vl-sort-i ArcPath

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      '(lambda (a b)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif         (<

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (apply '+

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (mapcar '(lambda (X / en)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (setq en (nth x EntArcs))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (vlax-curve-getDistAtParam

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif          en

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif          (vlax-curve-getEndParam en)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   a

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (apply '+

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (mapcar '(lambda (X / en)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (setq en (nth x EntArcs))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      (vlax-curve-getDistAtParam

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif          en

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif          (vlax-curve-getEndParam en)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   b

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif         )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif       )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(princ "\n显示为红色的是最短路径")

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(mapcar '(lambda (x) (GXL-CH_ENT (nth x EntArcs) 62 1)) (nth (car Sorti) ArcPath))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq i (length ArcPath) k -1)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(while (setq p (getpoint "\n**左键循环显示路径，右键退出**"))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (setq k (rem (1+ k) i) )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    ;(setq path (nth k NodePath))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (princ (strcat " 第 " (itoa (1+ k)) "条路径"))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (if oldpath (mapcar '(lambda (x) (redraw (nth x EntArcs) 4)) oldpath))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (setq path (nth (nth k Sorti) ArcPath))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (mapcar '(lambda (x) (redraw (nth x EntArcs) 3)) path)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    (setq oldpath path)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;(reerr)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(princ)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(defun gxl-Sel-SS->List (ss / i s )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif   (if ss

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(repeat (setq i (sslength ss))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq s (cons (ssname ss (setq i (1- i))) s))

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)

crtrccrt 发表于 2019-4-21 21:01:51

程序不分行，可读性差

mynameissnow 发表于 2019-4-22 11:18:11

crtrccrt 发表于 2019-4-21 21:01
程序不分行，可读性差

感谢指正，已经重新排版

查看完整版本: 两点间的所有路径的算法