日志
练习排列文字 2013611 今天简化一下2013 622
热度 2 ||
; 20130611
(defun c:ttt()
(setq
p1 (getpoint"指定间距角度的第一拾取点")
p2 (getpoint p1"指定间距的第2拾取点<)
ds (distance p1 p2)
ang (angle p1 p2)
e (car(entsel"选取第一行文字"))
h (cdr(assoc 40 (entget e)))
ds2 (+ ds h)
p1 (cdr(assoc 10 (entget e)))
en (cdr(assoc 0 (entget e)))
i 1
)
(while (and
(setq e (car(entsel"按顺序选取第N行文字")))
(setq ent (entget e))
)
(setq
pt1 (cdr(assoc 10 ent))
pt2 (polar p1 ang (* ds2 i) )
i(1+ i)
)
(command "move" e "" "non"pt1 "non"pt2)
)
)
;20130622
(defun c:test()
(setq lst '()
d (getdist "输入行距: ")
)
(while (ssget ":E:S" '( (0 . "*text") ) )
(if(setq s(ssget "P"))
(progn
(setq e(ssname s 0))
(setq lst(append lst (list e)))
(if (=(length lst)2)
(progn
(setq e1 (car lst)
e2 (cadr lst)
p1 (CDR(ASSOC 10 (ENTGET e1)))
h (cdr(ASSOC 40 (ENTGET e2)))
p2 (polar p1 (* 1.5 pi) (+ d h))
)
(ENTMOD
(SUBST (CONS 10 P2)
(ASSOC 10 (ENTGET e2))
(ENTGET E2)
)
)
(setq lst(cdr lst))
)
)
)
)
)
)
