把此贴删除了

500w008 · 发表于 2009-10-5 17:31

提示: 作者被禁止或删除内容自动屏蔽

龙龙仔 · 发表于 2009-10-6 08:53

;;;下面程序可你幫你批量替換字體
(defun C:ZAS (/ A1 A2 A3)
;;(graphscr)
;;(initget 7)
;;(setq c1 (getstring "\\nInput new color for all layers: "))   ;輸入新顏色
(setq A1 (tblnext "style" t))  ;將指針移到第一個字體
;; (princ a1)
;;(setq a2 (cdr (assoc 2 a1)))                       ;取出圖層名稱
;; (setq a3 (entget (tblobjname "style" a2)))         ;取出圖層的數據串行
;; (princ " a3= ")(princ a3)
(while A1
    (setq A2 (cdr (assoc 2 A1))) ;取出字體名稱
    (setq A3 (entget (tblobjname "style" A2))) ;取出字體的數據串行
    ;;(princ a3)(princ "   ")
    (setq A3 (subst (cons 3 "txt.shx") (assoc 3 A3) A3))
     ;將字體字型改成新字型
    ;;(entmod A3)
     ;更新字體
    (setq A3 (subst (cons 4 "china.shx") (assoc 4 A3) A3))
     ;將字體字型改成新字型
    (entmod A3)
    (setq A1 (tblnext "style"))  ;找出下一個字體
)
(command "REGEN")
(princ "字型變更成功！現在字體為txt,china.shx")
(princ)
)
;;作者：qazllqaz 2006-2-21 1:57:45)

明经网友 *发表于 2009-10-6 10:42* · 发表于 2009-10-6 10:42

谢谢龙龙仔怎么修改达到字体宽度比例是0.7

明经网友 *发表于 2009-10-6 11:37* · 发表于 2009-10-6 11:37

怎么添加一句吧字体宽度改为0.7

明经网友 *发表于 2009-10-6 11:58* · 发表于 2009-10-6 11:58

怎么添加一句改变所有字体宽度比例谢谢

500w008 · 发表于 2009-10-6 12:39

提示: 作者被禁止或删除内容自动屏蔽

龙龙仔 · 发表于 2009-10-7 07:59

....

(setq A3 (subst (cons 4 "china.shx") (assoc 4 A3) A3));將字體字型改成新字型
(if (assoc 41 A3)
(setq A3 (subst (cons 41 0.7) (assoc 41 A3) A3))
(setq A3 (append A3 (cons 41 0.7)))
)

....

muwind · 发表于 2009-10-11 00:37

如果一个STYLE样式字体选择为 TXT.SHX；HZFS.SHX，把这两个替换为黑体，(entmod XXX)后总要提示一些出错信息，而且必须重新打开文件才能正确显示。由于长期没有用这段代码，都快忘记了，看到楼主的帖子我才想起，顺路请教下

YAOSHIWEI · 发表于 2012-6-5 11:56

好东西，顶一下

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

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	发表于 2009-10-5 17:31 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2009-10-6 12:39 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

[资源] 把此贴删除了