社区 › Auto Lisp › vba中的文本高度更改

anindya 发表于 2022-7-5 22:32:57

vba中的文本高度更改

通过vba可以只改变文本的高度。我附上了一张样品图供观察。
需要帮助224455。图纸

BIGAL 发表于 2022-7-5 22:57:34

您的dwg与文字高度无关，看起来您需要链测长度和标高例程，即按比例测量线的长度，并添加基准以获得标高并设置水平距离。一定是VBA吗？我在lisp中有一些相近的东西。做起来很简单。方法是使用围栏选项创建线的选择集，rest仅为线的长度和距起始点的X距离。

anindya 发表于 2022-7-5 23:15:57

我只需要通过lisp或vba选择文本部分或全图，可以根据我的要求得到结果吗？因为我必须绘制图纸的比例，我无法将文本显示为可读。

BIGAL 发表于 2022-7-5 23:36:52

文字高度是文字或多行文字的特性。您需要通过VBA、图层颜色、线宽、线型旋转样式等对对象特性进行一些家庭作业。这是很基本的东西。开始搜索“VBA Textstring”
 

ThisDrawing.Utility.GetEntity PitNameSlect, basepnt, "pick text : "
If PitNameSelect.ObjectName = "AcDbText" Then
dia1 = val(PitNameSelect.TextString)

查看完整版本: vba中的文本高度更改