改所有字高，什么块啊都改

357785513

各位，有没有办法把图中所有字高全改掉，包括块呀，标注呀，多行文字呀，我找了个只能改TEXT
(defun ch_dxf(en num ch / old_num new_num ent)
  (if (setq ent (entget en)
    new_num (cons num ch)
    old_num (assoc num ent)
    )
    (entmod(subst new_num old_num ent))
    (entmod(reverse(cons new_num (reverse  ent))))
    ))
(defun c:test1( / ss n x ww)
  (setq ss (ssget '((0 . "text"))))
  (setq ww (getreal "请输入字高："))
  (repeat (setq N (sslength SS))
    (apply '(lambda (x) (ch_dxf x 40 ww))
   (list (ssname SS (setq N (1- N))))
    )
  )
  (princ)
)
  (defun c:test2( / ss n x ww)
  (setq ss (ssget '((0 . "text"))))
  (setq ww (getreal "请输入长高比："))
  (repeat (setq N (sslength SS))
    (apply '(lambda (x) (ch_dxf x 41 ww))
   (list (ssname SS (setq N (1- N))))
    )
  )
  (princ)
)

baoxiaozhong

用過最好用的還是 DDCHTEXT，什麼字的狀態都可以改，隻不過你要會E文。

357785513

这个压缩包也太多了吧，

357785513

格下的程序TMD太高深了

waterchen

确实高深，谢谢分享！

baoxiaozhong

357785513 发表于 2016-7-21 07:07
这个压缩包也太多了吧，

因为功能多，所以裹面的檔案当然多，算是包山包海改文字必备。