357785513 发表于 2016-7-19 23:45:20

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

各位，有没有办法把图中所有字高全改掉，包括块呀，标注呀，多行文字呀，我找了个只能改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 (reverseent))))
    ))
(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 发表于 2016-7-20 11:48:05

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



357785513 发表于 2016-7-21 07:07:40

这个压缩包也太多了吧，

357785513 发表于 2016-7-21 07:10:20

格下的程序TMD太高深了

waterchen 发表于 2016-7-21 11:48:47

确实高深，谢谢分享！

baoxiaozhong 发表于 2016-7-21 20:28:42

357785513 发表于 2016-7-21 07:07 static/image/common/back.gif
这个压缩包也太多了吧，

因为功能多，所以裹面的檔案当然多，算是包山包海改文字必备。
页: [1]
查看完整版本: 改所有字高，什么块啊都改