一个菜鸟问题

jxncxu

我刚学ARX,想根据lsp程序原理试做一个ARX程序。我在看文字打断程序段时有如下不明白，请指教。
(defun c:wdbrk (/ e0 e1 e10 le le0 le1 p1 px a a1 d d1 dx

                dm i i1 txt txt1 cha tfhz tf)
  (if (and (setq e0 (entsel "\n请点取要打断的文字 <退出>: "))
           (setq e0  (car e0)

                 le0 (entget e0)

           )
           (= "TEXT" (cdr (assoc 0 le0)))
           (progn (redraw e0 3)
             (setq le_drw (cons e0 le_drw)
              px (getpoint "\n再点一下要打断的位置 <退出>: ")
             )
           )
           (> (setq e1 (assoc 1 le0)
                    txt (cdr e1)
                    e10 (assoc 10 le0)
                    p1 (cdr e10)
                    a (cdr (assoc 50 le0))
                    a1 (+ a _pi2)
                    dx (p_l px p1 (polar p1 a1 1e3)) \\此句中的1e3是代表哪个点的距离呢？

              ) 0
           )
      )

................