lanwei8300 发表于 2009-12-14 22:30:00

lsp中如何实现符合自己的字体更新

<div class="t_msgfont" id="postmessage_15983908"><font size="5">lsp中如何实现符合自己的字体更新，如何编写，谢谢！</font></div>

ZZXXQQ 发表于 2010-1-4 19:33:00


;换字体 明经 ZZXXQQ 2010.1.4
(defun c:tt ()
(if (and (princ "\n选择文字 :")
          (setq ss (ssget '((0 . "TEXT"))))
          (setq txttp (getstring "\n输入字体名 :"))
   ) (progn
(setq i 0)
(repeat (sslength ss)
   (setq ent (entget(ssname ss i))
         ent (subst (cons 7 txttp) (assoc 7 ent) ent)
         i (1+ i))
   (entmod ent)
)
))
(princ)
)
页: [1]
查看完整版本: lsp中如何实现符合自己的字体更新