计算最短路径的源代码一直有问题

jhywy

代码如下： 运行后提示： 错误: no function definition: SEHBLPX
(defun c:drj()
　　(setvar "CMDECHO" 0)
　　(setq SEHfbl1 nil SEHfbl2 nil SEHfbl3 nil SEHfbl4 nil) ;;设置存储块点点表
　　(setq lstDZbl1 nil lstDZbl2 nil lstDZbl3 nil lstDZbl4 nil);;设置对照点表
　　(setq SEHfh (SEHBLPX));;初始化块点点表
　　(setq QiShiDian (car (entsel "\n选择起始点:")))
　　(setq SelQSDlst (entget QiShiDian))
　　(setq SelQSDxyh (cdr (assoc 10 SelQSDlst)))
　　(setq SelQSDh (fix (last SelQSDxyh)));;起始点点号
　　(princ "\n您选择的起始点为:")
　　(princ SelQSDh)
　　(setq ZhongDian (car (entsel "\n选择目的点:")))
　　(setq SelZDlst (entget ZhongDian))
　　(setq SelZDxyh (cdr (assoc 10 SelZDlst)))
　　(setq SelZDh (fix (last SelZDxyh)));;起始点点号
　　(princ "\n您选择的目的点为:")
　　(princ SelZDh)
　　(command ".zoom" "e")
　　(alert "程序即将运行,可能需要一点时间,请耐心等候!")
　　(setq lstDKbl nil);;预置待扩点表
　　(setq lstJieGuo nil)
　　(setq finddist 0)
　　(setq lstTmp nil)
　　(setq lstKYbltmp nil);;预置扩延临时表
　　(setq Firstflag 0)
　　(setq lstTmp (LJDBall SelQSDh));;对起始点扩展
　　(if (vl-consp lstTmp) (progn;;如果lstTmp不为空表
　　(setq maini 0)
　　(repeat (length lstTmp)
　　(setq mainys (nth maini lstTmp))
　　(setq mainysb (list SelQSDh mainys))
　　(if (<= mainys SEHfh) (setq lstDZbl1 (cons mainysb lstDZbl1)))
　　(if (and (> mainys SEHfh) (<= mainys (* 2 SEHfh))) (setq lstDZbl2 (cons mainysb lstDZbl2)))
　　(if (and (> mainys (* 2 SEHfh)) (<= mainys (* 3 SEHfh))) (setq lstDZbl3 (cons mainysb lstDZbl3)))
　　(if (> mainys (* 3 SEHfh)) (setq lstDZbl4 (cons mainysb lstDZbl4)))
　　(setq lstDKbl (cons mainysb lstDKbl))
　　(setq maini (+ maini 1))
　　)
　　(setq lstDKbl (reverse lstDKbl));;生成待扩点表
　　(if (vl-consp lstDZbl1) (progn;;如果lstDZbl1(对照点表1)不为空
　　(setq lstDZbl1 (vl-sort lstDZbl1 (function (lambda (e1 e2) (< (cadr e1) (cadr e2))))));;对表进行排序点号从小到大
　　))
　　(if (vl-consp lstDZbl2) (setq lstDZbl2 (vl-sort lstDZbl2 (function (lambda (e1 e2) (< (cadr e1) (cadr e2)))))))
　　(if (vl-consp lstDZbl3) (setq lstDZbl3 (vl-sort lstDZbl3 (function (lambda (e1 e2) (< (cadr e1) (cadr e2)))))))
　　(if (vl-consp lstDZbl4) (setq lstDZbl4 (vl-sort lstDZbl4 (function (lambda (e1 e2) (< (cadr e1) (cadr e2)))))))
　　(setq lstDKbl (QCDFUN lstDKbl));;获得纯正的扩展点表
　　(while (vl-consp lstDKbl);;循环到lstDKbl为空表为止
　　(KYFUN lstDKbl SelQSDh);;对lstDKbl进行一次扩延
　　(setq lstDKbl (QCDFUN lstKYbltmp))
　　(setq lstDKbl (JJPL SelQSDh SelZDh lstDKbl));;按方向夹角从小到大排序
　　(setq lstKYbltmp nil)
　　)
　　))
　　(if (vl-consp lstJieGuo) (progn;;如果结果表不为空
　　(princ "\n起点到目的点最短路径是:")
　　(princ "\n")
　　(princ lstJieGuo)
　　(princ "\n距离为:")
　　(princ finddist)
　　))
　　(if (not (vl-consp lstJieGuo)) (progn;;如果结果表为空
　　(princ "\n从起点没有路径能到达目的点!!!")
　　))
　　(princ)
　　)

Gu_xl

错误提示很直白啊！
没有函数定义：SEHBLPX