ynhh 发表于 2014-10-11 10:07:50

黄总高产
建议来个动动态统一设置
标注文字高度或箭头大小的程序

yinchuan99001 发表于 2014-10-11 10:32:51

正在学习这方面的知识。谢谢提供。

wuhuyinwei 发表于 2014-10-11 15:45:19


赞一个，学习一下

不一样地设计 发表于 2014-10-11 21:28:06

看看是什么，学习一下!

daixq021 发表于 2014-10-11 21:58:01

看看，如果能够支持尺寸文字和块内的文字，以及同时提供选择要替换的文字样式就好了

香田里浪人 发表于 2014-10-12 08:20:39

本帖最后由 香田里浪人 于 2014-10-12 08:26 编辑

稍微添加一点，使之也能统一高宽比，
程序如下
;;;统一字体和字高及高宽比
(defun C:w1 (/ E EN N SS STY)
(cond
    ((and
       (setq e (ssget "_+.:E:S" '((0 . "*TEXT"))))
       (setq ss (ssget "X" '((0 . "*TEXT"))))
   )
   (setq e (entget (ssname ss 0)))
   (setq sty (assoc 7 e))
   (setq e1 (assoc 41 e))
   (setq e (assoc 40 e))
   (repeat (setq n (sslength ss))
       (setq en (entget (ssname ss (setq n (1- n)))))
       (setq en (subst sty (assoc 7 en) en))
       (setq en (subst e1 (assoc 41 en) en))
       (entmod (subst e (assoc 40 en) en))      
   )
    )
)
(princ)
)

bai2000 发表于 2014-10-12 10:47:01

能支持款选就好了，整个图不一定都是一个高度

emk 发表于 2014-10-12 12:10:03

这个贴真火，看看黄大侠的程序

hooboxu 发表于 2014-10-12 14:17:21

看看.和MA有什么区别~~

iszc 发表于 2014-10-12 14:22:06

赞一个，学习一下
页: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14 15
查看完整版本: 统一字高度和文字样式