更改多行文字的大小

rodrigo_sjc_sp · 发表于 2022-7-6 07:00:47

我需要一个代码或帮助您将所有多行文字的大小（文字高度）更改为0.01

在一个条件下，单词（COLUMNS-SALE）必须包含属性内容

需要帮忙吗？

Tharwat · 发表于 2022-7-6 07:13:29

你所说的包含属性内容是什么意思？

rodrigo_sjc_sp · 发表于 2022-7-6 07:18:34

文本，示例列-SALE=1000

我有相同的多行文字样本

多行文字栏-SALE=1000m2
多行文字列-SALE2=1000m2
多行文字栏-SALE=1000m2
多行文字列-SALE2=1000m2

如果多行文字的文字中包含文字列-SALE，请将大小更改为0.01

使用Lisp；

Tharwat · 发表于 2022-7-6 07:28:01

像这样的事情？

copy


(defun c:TesT (/ sel)
 (if (ssget "_:L" '((0 . "MTEXT") (1 . "*COLUMNS-SALE*")))
   (progn (vlax-for mt (setq sel (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
            (vla-put-height mt 0.01)
          )
          (vla-delete sel)
   )
 )
 (princ)
)
(vl-load-com)