全局文字高度随
再次回到这个问题。我以前问过这个问题：http://forums.augi.com/showthread.php?133555-使用多行文字amp DText更改全局文字高度
我以为我已经成功了，但没有。现在，我有一个大约96个字的平面图。它们包括多行文字和数字文字。我需要能够在全球范围内更改文本高度，使所有人的文本高度相同。首先，我过滤了所有文本，并将其从工作区域中移出，然后我使用QSelect以及对象属性分别选择多行文字和数字文字来更改文本高度。这样做不会给我文本高度选项。我原以为在我的选择中可能有一条线或一个点，但没有找到。在三个或四个组中选择它们，我可以使用“对象属性”框，但不能全局使用。QSelect也不会给我文本高度选项。由于我经常遇到这种情况，必须逐个选择它们，所以最好有一个可以更改文本高度的代码，不管它是多行文字还是双行文字，并且不必先对其进行过滤，然后全部移开。
任何人都知道将所有文本高度更改为
我通过选择窗口中的所有内容来选择高度，忽略除文本之外的所有内容，以便能够更改其高度？上周，我完成了两个项目，我必须手动和几乎单独地更改所有文本，无论文本样式如何。
我在谷歌上搜索了一下，仍然找不到我要找的确切代码。我会一直在家里搜索，有人可能有一个或知道一个。
谢谢 (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)
)
页:
[1]