一个菜鸟问题
我刚学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
)
)
................
页:
[1]