统一字高度和文字样式

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

赞一个，学习一下

账号		自动登录	找回密码
密码			注册

[源码] 统一字高度和文字样式