(defun $xdlsp_txtbrk (e pt / e0 e1 p10 le le0 le1 p1 px a a1 d d1 dx dm i i1 txt txt1 cha tfhz tf pos ) (xdrx_setenttodb e) (if (= "TEXT" (xdrx_getentdxf 0)) (progn (setq _pi2 (/ pi 2) le0 (entget e) e1 (assoc 1 le0) txt (cdr e1) p10 (assoc 10 le0) p1 (cdr p10) a (cdr (assoc 50 le0)) a1 (+ a _pi2) px (trans pt 1 0) dx (xdrx_p2ldist px p1 (polar p1 a1 [I]1e3[/I])) ;;此处的1e3代表什么? ) (setq dm (caadr ($xdlsp_textbox le0))
......................
|