Re: [八六] 借我放
(defun c:th (/ en ed et ip h nh str)
(graphscr)
(if (setq en (entsel "\nSelect a text <exit> :"))
(setq en (car en)
ed (entget en)
et (cdr (assoc 0 ed))
))
(if (or (= et "TEXT") (= et "MTEXT"))
(progn
(setq ip (cdr (assoc 10 ed))
h(cdr (assoc 40 ed))
str(strcat "\nInput new text height <" (rtos h) "> :")
)
(if (setq nh (getdist ip str))
(progn
(setq ed (subst (cons 40 nh) (assoc 40 ed) ed))
(entmod ed)
)
)
)
)
(princ)
)
;改字體大小用
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.46.19
討論串 (同標題文章)
完整討論串 (本文為第 4 之 8 篇):
八六