怎么修改这段程序才能达到我的目的？

yxp

不过，在有的时候会出现问题1，有的时候不会出现。不知道是什么原因？

(defun ccx(pp k / la p1 p2 p3 p4)
  (setq la (/ (getvar "VIEWSIZE") 20)
        p1 (list (+ (car pp) la) (- (cadr pp) la) 0)
        p2 (list (+ (car pp) (* la 5)) (- (cadr pp) la) 0)
        p3 (list (+ (car pp) (* la 5)) (+ (cadr pp) la) 0)
        p4 (list (+ (car pp) la) (+ (cadr pp) la) 0)
  )
 (grdraw p1 p2 k) (grdraw p2 p3 k)
 (grdraw p3 p4 k) (grdraw p4 p1 k)
 (grdraw p3 p1 k) (grdraw p4 p2 k)
 (grdraw pt0 pp k)
 )
 
(defun c:bd(/ loop pt2 pt0 pt source inp)
   (setq loop t pt2 (getpoint "\n 输入点:") pt0 pt2)
   (while loop
      (setq inp (grread t))
      (setq source (car inp) pt (cadr inp))
      (if (= source 3) (setq loop nil)
        (if (not(eq pt pt2))
            (progn (ccx pt2 0)(ccx pt 1))
        )
      )
       (setq pt2 pt)
     )
     (ccx pt2 0)
     pt
)

10.2.12:20已经修改好了，再谢。

无痕

呵呵，兄弟说笑了，我不担心不能理解那函数，我是担心不能理解你想要的效果。