求助，我的程序问题在哪？

morecs

我想循环子程序的步骤，但不行，请各位大虾指教！！！谢谢！！！


(defun c:zzxyh()
             (setq ocmde (getvar "cmdecho"))
         (setvar "cmdecho" 0)
             (setq num (getint "\n请输入优化直线的数量:"))
             (setq n 1)
             (repeat num
                 (zxyh)
                  (setq n (+ n 1))
              )
             (setvar "cmdecho" ocmde)
             (princ)
)
(defun zxyh()
               (vl-load-com)
               (setq en1 (entsel "\n请选择直线:"))
               (setq n1 (car en1))
               (setq m1 (vlax-ename->vla-object n1))
               (setq start1_point (vlax-curve-getstartpoint m1))
               (setq end1_point (vlax-curve-getendpoint m1))
               (setq refer_point (getpoint "\n请输入靠近直线的起始点的一点:"))
               (setq l1 (distance refer_point start1_point))
               (setq l2 (distance refer_point end1_point))
                (if (<= l1 l2)
                    (progn
                          (setq refer_point (polar end1_point 0 0))
                         (command "line" start1_point end1_point "")
                     )
                     (progn
                          (setq refer_point (polar start1_point 0 0))
                          (command "line" end1_point start1_point "")
                     )
                  )
                  (command "erase" en1)
                  (princ)
)

BDYCAD

換這樣看看
剛改寫好的應該沒有問題,
(defun c:zzxyh (/ asdfl)
  (vl-load-com)
  (setvar "cmdecho" 0)
;;;  (setq num (getint "\n請輸入优化直線的數量:"))
  (setq n 0)
  (while (= asdfl nil)
    (setq en1 (entsel "\n請選擇直線:"))
    (if (= en1 nil) (setq asdfl t))
    (zxyh)
    (setq n (1+ n)))
  (setvar "cmdecho" 1)
  (princ))
(defun zxyh ()
  (setq n1 (car en1))
  (setq m1 (vlax-ename->vla-object n1))
  (setq start1_point (vlax-curve-getstartpoint m1))
  (setq end1_point (vlax-curve-getendpoint m1))
;;;  (setq refer_point (getpoint "\n請輸入靠近直線的起始點的一點:"))
  ;------------------------
  (setq  pt (cadr en1)  ent (vlax-ename->vla-object (car en1))
         pt (vlax-curve-getClosestPointTo ent pt) dis (vlax-curve-getDistAtPoint ent pt)
         len (vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent))
         pt1 (if (< dis (- len dis)) (vlax-curve-getStartPoint ent) (vlax-curve-getEndPoint ent)))
  ;----------------------------
  (if (= (car pt1) (car start1_point))
    (command "line"  end1_point start1_point"")
    (command "line"  start1_point end1_point"")
  )
  (command "circle" start1_point 1)(command "circle" end1_point 2)
  (command "erase" en1 "")
  (princ)
)

morecs

BDYCAD大侠：还是不行，我的目的是改变直线的方向（就是需要时对换起点与终点），
我的子程序没问题，但循环不行，还要麻烦你，谢谢！！！

BDYCAD

TO morecs:
      你好. 你的程序是循環一次一次去選每條直線再確定哪個端點是所選的線的終點再用命令重新改畫的. 我給你的你執行時只是選那條線就行了. 但選的時候得選你需要的終點靠近那個端點的方向就行了呀. 再看看.

morecs

vlax-curve-getClosestPointTo 是不是与vlax-curve-ISClosestPointTo 是同样功能？
谢谢BDYCAD！！！问题解决了！！！