日志
文字改hzkf.shx字体
|
(defun c:uptext (/ sss i j ent ename ename_lst)
(if (and (not (tblsearch "style" "hzkf"))
(findfile "hzkf.shx")
)
(command "-style" "hzkf" "hzkf" "5" "0.75" "" "" "" "")
)
(if (and (setq sss (ssget '((0 . "text,insert"))))
(tblsearch "style" "hzkf")
)
(progn
(repeat (setq i (sslength sss))
(if (= "INSERT"
(cdr (assoc 0
(setq ent
(entget (setq ename (ssname sss (setq i (1- i)))))
)
)
)
)
(progn
(setq ename_lst nil)
(while
(/=
(cdr
(assoc 0
(setq ent (entget (setq ename (entnext ename))))
)
)
"SEQEND"
)
(if (= "ATTRIB" (cdr (assoc 0 ent)))
(setq ename_lst (cons ename ename_lst))
)
)
(setq ename (tblobjname
"block"
(cdr (assoc 2 (entget (ssname sss i))))
)
)
(while (setq ename (entnext ename))
(if (= "TEXT" (cdr (assoc 0 (entget ename))))
(setq ename_lst (cons ename ename_lst))
)
)
(setq ename_lst (cons 0 ename_lst))
(while (setq ename_lst (cdr ename_lst))
(setq ent (entget (setq ename (car ename_lst))))
(entmod
(subst
(cons 41 0.75)
(assoc 41 ent)
(entmod (subst (cons 7 "hzkf") (assoc 7 ent) ent))
)
)
(entupd ename)
)
)
(progn
(entmod
(subst
(cons 41 0.75)
(assoc 41 ent)
(entmod (subst (cons 7 "hzkf") (assoc 7 ent) ent))
)
)
(entupd ename)
)
)
)
)
)
(princ)
)
