社区 › Auto Lisp › 更改多行文字的大小

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

像这样的事情？
 

(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)

rodrigo_sjc_sp 发表于 2022-7-6 07:37:40

塔尔瓦特，
 
 
就是这样，我只是想知道如何修改到
不需要选择多行文字（即全部多行文字）？
 
Cad要求我选择一个对象。

Tharwat 发表于 2022-7-6 07:49:07

 
替换此。。。
 

"_:L"
 
用这个。。
 
"_x"
 
但要小心所有的层。

rodrigo_sjc_sp 发表于 2022-7-6 07:59:28

谢谢老师

Tharwat 发表于 2022-7-6 08:07:30

 
随时欢迎你。

查看完整版本: 更改多行文字的大小