各位大虾!!批量替换DWG中的文字

yswoyh

各位大虾!!批量替换图形中的文字

hustrys

 下面程序可你帮你批量替换字体                                                                      (defun C:zas ()
   (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 "TxtT.shx") (assoc 3 a3) a3))    ;将字体字型改成新字型
      (entmod a3)
                                       ;更新字体
   ； (setq a3 (subst (cons 4 "hzfs.shx") (assoc 4 a3) a3))    ;将字体字型改成新字型
    ；  (entmod a3) 
    (setq a1 (tblnext "style"))                           ;找出下一个字体
   )
  (command"REGEN" "")
  (princ"字型变更成功！现在字体为TxtT.shx" )
   (princ)
)

qazllqaz

其实用CAD自带的filter命令也能很快完成

leeyuan

R14中有个chtext.lsp可以处理文字相关的问题

xyp1964

替换的原则都没有，无从着手！

明_明

比如把 romans.shx 字体改为大字体 romans.shx gbcbig.shx  把 ARIAL.TTF 字体改为大字体 txt.shx hztxt.shx  谢谢啊

  以前有个lisp，好像把“ ARIAL.TTF 字体改为大字体 txt.shx hztxt.shx  ”后保存，再打开又回去了，真奇怪