用VB做AUTOCAD的工艺卡片的二次开发

2024年11月21日 20:55

有1个网友回答

网友（1）：

用"属性参照"对象的 GetBoundingBox 方法获取该属性文字的左下角点和右上角点,用二者的横坐标相减得到宽度,再与表格的宽度比较.如果属性文字的宽度大于表格宽度,就计算并设置属性文字的合理的宽度因子(ScaleFactor属性),
Dim MinPoint As Variant, MaxPoint As Variant
Array1(Count1).GetBoundingBox MinPoint, MaxPoint
If MaxPoint(0) - MinPoint(0) > 表格宽度 Then Array1(Count1).ScaleFactor = 表格宽度 / (MaxPoint(0) - MinPoint(0)) Else Array1(Count1).ScaleFactor = 1