一个菜鸟问题

[复制链接]

jxncxu

17 主题	49 帖子	1 银币

初露锋芒

Rank: 3 Rank: 3 Rank: 3

铜币: 117

发消息

发表于 2006-5-9 00:08:00 | 显示全部楼层 |阅读模式

我刚学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)
                  [U]dx (p_l px p1 (polar p1 a1 1e3))[/U] \\此句中的1e3是代表哪个点的距离呢？
            ) 0
         )
   )

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

使用道具举报