去除所有文字样式的大字体定义

marting · 发表于 2017-11-28 14:35:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[C++] 纯文本查看 复制代码

(vl-load-com)
(defun C:REMOVEBIGFONT (/ DOC NBF NM OBF TBL)
 (setvar "CMDECHO" 0)
 (setq DOC (vla-get-activedocument (vlax-get-acad-object)))
 (vlax-for TXTST (vla-get-textstyles DOC)
  (setq NM (vla-get-name TXTST))
  (setq TBL (entget (tblobjname "STYLE" NM)))
  (setq OBF (assoc 4 TBL))
  (setq NBF (cons '4 ""))
  (setq TBL (subst NBF OBF TBL))
  (entmod TBL)
 ) 
 (vl-cmdf "REGENALL")
)

sh_h · 发表于 2017-11-28 14:52:18

大师，好久不见！谢了！

liunian0524 · 发表于 2017-11-29 08:28:02

感谢大师分享

sicky111 · 发表于 2017-11-29 10:54:04

支持楼主分享源码。

szhorse · 发表于 2018-1-2 13:13:22

有了这个插件以后就不怕“***大字体”缺失了

账号		自动登录	找回密码
密码			立即注册

[每日一码] 去除所有文字样式的大字体定义

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

浏览过的版块