[求助]：文字可选择属性匹配刷！

wzxwzx74

常常遇到：只匹配文字字型，大小，不需要匹配角度;
                    只匹配角度，其他都不改变；
          只匹配文字内容，其他属性不变；
能不能将这些情况放到一个刷子里解决。这样遇到几个带角度的？？或者是想局部改一些带角度的字体也可轻松解决，而不需st了。cad里的MATCHPROP没法做到。在论坛上搜到了文字内容匹配刷，很实用，如果在拓展一下，可以解决作图中文字带给的琐碎的烦恼了！

zhuquanmao

见6楼

jhw

好用不好用，先下了，待测试过了再告知！多谢

lhg

不过,每个功能分开，用起来较费时。

自由的鱼

最好可以对图层也进行区分！

zhuquanmao

最初由 lhg 发布
[B]不过,每个功能分开，用起来较费时。 [/B]

当然可以把所有的命令合在一起 进行输入选择 呵呵
[PHP] ;;; ;; 文字刷
(defun c:WZS (/ key ent1 el en n ss th val)
  (initget "N G Q T Y X C")
  (setq key (getkword "\n/ 内容-N / 高度-G / 图层-C / 样式-Y / 倾斜角-Q / 旋转角-X : "))
  (cond
    ((= key "N")
      (setq val 1)
    )
    ((= key "G")
      (setq val 40)
    )
    ((= key "C")
      (setq val 8)
    )
    ((= key "Y")
      (setq val 7)
    )
    ((= key "Q")
      (setq val 51)
    )
    ((= key "X")
      (setq val 50)
    )
    (t
      nil
    )
  )
  (if (and
        (setq ent1 (car (entsel "\n点选源文本:")))
        (setq en (entget ent1))
        (= "TEXT" (cdr (assoc 0 en)))
        (setq th (cdr (assoc val en)))
        (setq ss (ssget '((0 . "TEXT"))))
      )
    (progn
      (setq n 0)
      (command "undo" "group")
      (while (< n (sslength ss))
        (setq el (entget (ssname ss n)))
        (entmod (subst
                  (cons (car (assoc val el)) th)
                  (assoc val el)
                  el
                )
        )
        (setq n (1+ n))
      )
      (command "undo" "end")
    )
  )
  (princ)
)
[/PHP]

halibt

最初由 madman 发布
[B]当然可以把所有的命令合在一起 进行输入选择 呵呵 [/B]

这个办法好，你就弄一个吧
*-*6

zhuquanmao

最初由 halibt 发布
[B]这个办法好，你就弄一个吧
*-*6 [/B]

已弄好 见你楼上 呵呵

halibt

呵呵，这么快。这应该算是单行文本的实用编辑工具之一了。如果能加上默认命令应该是字高
吧。点选源文件时也象特性匹配那样显示就更好了

lzxzaxq

很好
谢谢
我是新人
我来学习

talkershadows

哈哈，合并后的工具很方便，最好能够按弧线排列文字～～

wzxwzx74

好长时间没有等到回应，以为是不可完成的任务。
试了试，非常的好用！非常的感谢！

zhuquanmao

最初由 talkershadows 发布
[B]哈哈，合并后的工具很方便，最好能够按弧线排列文字～～ [/B]

ET里就有按弧线排列文字这个功能啊 无需再编吧 呵呵

cq_qg

比cad自带的格式刷一咕脑匹配要好，可是我用的时候怎么第一次总是选取不到目标，总要第二次选取才行，不知识什么原因，我用的是2005

bluesky1000

我也是的，需要点选二次才行。