[VBA程序]：在电力线路单线图中连续添加杆号（VBA代码）

chengyong888888

Public Sub insertgh()
Dim sp(0 To 2) As Double
Dim textHeight As Double
Dim textStr As String
Dim textObj As AcadText
Dim gh As Integer
Dim varRet As Variant
On Error GoTo Err_Control
gh = ThisDrawing.Utility.GetInteger(vbCrLf & "命令:请输入起始杆号:")
textHeight = ThisDrawing.Utility.GetInteger("请输入文字高度:")
Do While gh
    varRet = ThisDrawing.Utility.GetPoint(, "请选择插入点:")
    sp(0) = varRet(0)
    sp(1) = varRet(1)
    sp(2) = varRet(2)
    textStr = CStr(gh) & "#"
    Set textObj = ThisDrawing.ModelSpace.AddText(textStr, sp, textHeight)
　'textObj.StyleName = "宋体"
    textObj.Update
    gh = gh + 1
  Loop
Err_Control:
  Err.Clear
  Exit Sub
End Sub

txzjtxzj

呵呵，偶是把电杆做成属性块，这样利用TAUTONUM这个小程序可以对一排属性块按照自己需要的顺序批量编号，而不必一个一个去编号，做成块还有一个好处就是方便统计