自贡黄明儒 发表于 2014-10-10 10:05:07

统一字高度和文字样式

本帖最后由 自贡黄明儒 于 2014-11-13 15:11 编辑

;;***改一下，希望更实用*********统一字高 2014.11.11
**** Hidden Message *****

;;统一字高度和文字样式
;;统一字高
(defun C:w2 (/ E EN N NAME OBJ SCL SS STY TEXTH)
(cond   
    ((and (princ "\n 选择源：")
          (setq e (ssget "_+.:E:S" '((0 . "*TEXT,*DIMENSION"))))
   )
   (setq e (ssname e 0))
   (setq en (entget e))
   (setq Name (cdr (assoc 0 en)))
   (cond ((equal Name "DIMENSION")
            (setq obj (vlax-ename->vla-object e))
            (setq sty (vlax-get obj 'TextStyle))
            (setq scl (vlax-get obj 'ScaleFactor))
            (setq TextH (vlax-get obj 'TextHeight))
         )
         ((wcmatch Name "*TEXT")
            (setq TextH (cdr (assoc 40 en)))
            (setq sty (cdr (assoc 7 en)))
            (setq scl 1)
         )
   )   
   (while (and(princ "\n 选择目标：")(setq ss (ssget ":S" '((0 . "*TEXT,*DIMENSION")))))
       (repeat (setq n (sslength ss))
         (setq e (ssname ss (setq n (1- n))))
         (setq en(entget e))
         (setq Name (cdr (assoc 0 en)))
         (cond ((equal Name "DIMENSION")
                (setq obj (vlax-ename->vla-object e))
                (vlax-put obj 'TextStyle sty)
                (vlax-put obj 'TextHeight TextH)
                (vlax-put obj 'ScaleFactor scl)
               )
               ((wcmatch Name "*TEXT")
                (setq en(entget e))
                (setq en (subst (cons 7 sty) (assoc 7 en) en))
                (entmod (subst (cons 40 (* TextH scl)) (assoc 40 en) en))
               )
         )
       )
   )
    )
)
(princ)
)

508000096 发表于 2017-7-30 16:27:46

如果能指定或框选的话就效果会更好。

趣意人生 发表于 2022-3-26 21:42:09

赞一个，，以后学习学习

999999 发表于 2020-8-25 10:38:43

赞一个，，以后学习学习

伪书虫86 发表于 2014-10-10 10:23:23

速度坐个沙发慢慢看

海盗曹 发表于 2014-10-10 10:27:10

赞一个，学习一下

spp_wall 发表于 2014-10-10 10:29:04

前排！！！！！！！！！

xiaobaixiaobu 发表于 2014-10-10 10:44:56

回复看看！！

琴剑江山_10184 发表于 2014-10-10 10:52:14

好功能，能批量动态修改文字高度不

819534890 发表于 2014-10-10 10:57:03

呵呵，一直支持源码

yoyoho 发表于 2014-10-10 11:03:07

赞一个，学习一下!

yiming61 发表于 2014-10-10 11:32:00

必须看看,学习

wzg356 发表于 2014-10-10 11:33:23

kkkkkkkkkkkkkk
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 统一字高度和文字样式