修改文本
我有一些文本输出为数字，例如96，代表英寸。 这很好，很花哨，但我想做的是将其从“96”更改为8' - 0”。希望这是有道理的。 我拥有的程序通过使用边界框将矩形的尺寸放在中心。 如果有人有想法，请把它从我身边拍下来。 再次提前致谢！**** Hidden Message ***** 用VBA写的程序是什么我假设...如果是这样的话...那么
Var = ThisDrawing.Utility.RealToString(Var, acArchitectural, Precision)
Var是您的变量变体96
精度是一个整数0-14
返回值是表示您的Var的字符串值 我会试试的谢谢伙计 Keith，
如果我发布我的代码，我仍然有麻烦，你能给它一个tweek吗？？我不确定你上一次发布的声明应该放在哪里...
Sub TextDemo()
Dim objsset As AcadSelectionSet
Dim ObjEnt As AcadEntity
Dim minExt As Variant
Dim maxExt As Variant
Dim text1 As Double
Dim text2 As AcadText
Dim text3 As Double
Dim text As String
Dim text4 As AcadText
Dim height As Double
height = 4
Dim inst(0 To 2) As Double
Dim var As Variant
inst(2) = 0
Set objsset = ThisDrawing.PickfirstSelectionSet
objsset.Select acSelectionSetAll
For Each ObjEnt In objsset
If ObjEnt.Layer = "0" Then
ObjEnt.GetBoundingBox minExt, maxExt
text1 = maxExt(1) - minExt(1)
text3 = maxExt(0) - minExt(0)
inst(0) = (maxExt(0) - (text3 / 2)) - 6
inst(1) = maxExt(1) - (text1 / 2)
text = "x"
Set text4 = ThisDrawing.ModelSpace.AddText(text, inst, height)
inst(1) = inst(1) + 5
text = text1
Set text4 = ThisDrawing.ModelSpace.AddText(text, inst, height)
inst(1) = inst(1) - 10
text = text3
Set text4 = ThisDrawing.ModelSpace.AddText(text, inst, height)
End If
Next
objsset.Delete
End Sub
非常感谢，伙计！！这是最棒的部分，我明白了！！非常感谢 没问题..很高兴这对你有用...
页:
[1]