[求助]：求大侠帮忙改一下

zxcvbnm-cad

帮忙把下面的程序改一下
1、把圆改成直线
2、继续改成左键，右键为结束


谢谢

[php](defun c:text()
  (vl-load-com)
  (setq h (* (getvar "dimscale")(getvar "dimtxt"))
        r h
       sn 1)
  (while sn
    (setq p0 (getpoint "\n指定插入点:"))
    (setq loop t)
    (command "CIRCLE" p0 r)
    (setq ceo (vlax-ename->vla-object (entlast)))
    (vl-cmdf "text" "j" "m" p0 h 0 (itoa sn) "")
    (setq teo (vlax-ename->vla-object (entlast)))
    (command "leader" p0 (polar p0 (/ pi 4) 0.1)  "" "" "n")
    (setq le (entlast))
    (setq leo (vlax-ename->vla-object le))
    (setq p1 (vlax-curve-getstartpoint le))
    (while loop
      (setq p (grread T))
      (setq k (car p)
            p (cadr p))
      (if (= k 3)(setq loop nil))
      (vla-put-center ceo (vlax-3d-point p))
      (vla-put-textalignmentpoint teo (vlax-3d-point p))
      (vla-update ceo)
    (setq sl (vlax-make-safearray vlax-vbdouble '(0 . 5)))
       (setq sa (vlax-safearray-fill sl (append p1 (polar p (angle p p1) r))))
       (vla-put-coordinates leo sa)
    )
    (setq sn (1+ sn))
    (setq ct (getstring "\n继续<N>?"))
    (if (= (strcase ct) "N")(setq sn nil))
  )
)[/php]