match te需要LISP程序

pBe · 发表于 2022-7-6 07:31:16

哦，我明白你的意思了。Tharwat说得好。

我可以发誓还有另一个原因。随便。

干杯，伙计

pBe · 发表于 2022-7-6 07:34:55

当然，星期天我会顺便去你的办公室。到时候见。

Tharwat · 发表于 2022-7-6 07:40:04

没问题。

Balji · 发表于 2022-7-6 07:40:26

非常有趣。
我今天或明天需要。

在同一个表格中仍然有一些具有difrent风格的文本。简单的匹配属性不适用于这些。所以问题仍然存在，txt大小改变，但样式仍然相同。

请参阅附件

pBe · 发表于 2022-7-6 07:44:08

如果你看一看我的第一篇帖子。我还包括了更改textstyle的选项。

无论如何。HYG公司

copy

(defun c:BaljiEverybody  (/ ss i e)
     (if
           (setq ss (ssget "_x" '((0 . "TEXT,MTEXT"))))
                (repeat (setq i (sslength ss))
                      (setq e (vlax-ename->vla-object
                                    (ssname ss (setq i (1- i)))))
                      (mapcar '(lambda (k j)
                                     (vl-catch-all-error-p
                                           (vl-catch-all-apply
                                                 'vlax-put
                                                 (list e k j))))
                              '("Height" "ScaleFactor" "StyleName")
                              '(0.094 0.85 "Romans"))
                      )
)(princ)
 )

Tharwat · 发表于 2022-7-6 07:51:09

你没试过我的密码先生吗？

Balji · 发表于 2022-7-6 07:54:43

非常感谢你。

[编程交流] match te需要LISP程序

发表回复

精选推荐