全局文字高度随

caxtin · 发表于 2022-7-6 06:36:34

再次回到这个问题。我以前问过这个问题：
http://forums.augi.com/showthread.php?133555-使用多行文字amp DText更改全局文字高度

我以为我已经成功了，但没有。现在，我有一个大约96个字的平面图。它们包括多行文字和数字文字。我需要能够在全球范围内更改文本高度，使所有人的文本高度相同。首先，我过滤了所有文本，并将其从工作区域中移出，然后我使用QSelect以及对象属性分别选择多行文字和数字文字来更改文本高度。这样做不会给我文本高度选项。我原以为在我的选择中可能有一条线或一个点，但没有找到。在三个或四个组中选择它们，我可以使用“对象属性”框，但不能全局使用。QSelect也不会给我文本高度选项。由于我经常遇到这种情况，必须逐个选择它们，所以最好有一个可以更改文本高度的代码，不管它是多行文字还是双行文字，并且不必先对其进行过滤，然后全部移开。
任何人都知道将所有文本高度更改为
我通过选择窗口中的所有内容来选择高度，忽略除文本之外的所有内容，以便能够更改其高度？上周，我完成了两个项目，我必须手动和几乎单独地更改所有文本，无论文本样式如何。

我在谷歌上搜索了一下，仍然找不到我要找的确切代码。我会一直在家里搜索，有人可能有一个或知道一个。

谢谢

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

copy

(defun c:gtht (/ AllText i)
 (vl-load-com)
 (setq TxtHt (cond
               ((getdist (strcat "\nEnter text height"
                                 (if TxtHt
                                   (strcat " <" (rtos TxtHt) ">: ")
                                   ": "
                                 )
                         )
                )
               )
               (TxtHt)
             )
 )
 (if (Setq AllText (ssget "_X" '((0 . "*TEXT"))))
   (repeat (setq i (sslength AllText))
     (vlax-put (vlax-ename->vla-object (ssname AllText (setq i (1- i))))
               'Height
               TxtHt
     )
   )
 )(princ)
)

[编程交流] 全局文字高度随

发表回复

精选推荐