[编程申请]：求一个数字递增程序

pisces_zy

求一数字递增lsp

画平面时经常会有层高规律递增的时候如下图所示.

如果能有一个程序,当你复制数字时询问增量为多少

然后自动改动数字.画图就方便很多了.

层高数字不凑整时也省去了繁琐的计算

有这样的程序吗??

最好能够支持2002的.

841594

我的程序：原理建筑2000就有这个功能，是免费的：
http://www.xdcad.net/forum/showt ... pagenumber=1&s=

自由的鱼

没写错误处理，可以连续标注！
Option Explicit

Sub tt()
On Error Resume Next
Dim txt As AcadText
Dim pnt As Variant
Dim ent As AcadText
Dim zl As Double
Dim str As String
Dim i As Integer
Dim inspnt As Variant
i = 1
ThisDrawing.Utility.GetEntity ent, pnt, "choose"
str = ent.TextString
zl = InputBox("输入增量")
Do
If Err <> 0 Then Exit Sub
inspnt = ThisDrawing.Utility.GetPoint(, "pnt")
Set txt = ThisDrawing.ModelSpace.AddText(CDbl(str) + i * zl, inspnt, 2)
i = i + 1
Loop
Exit Sub
End Sub

lsjjm

REFERENCE TO:
http://www.xdcad.net/forum/showthread.php?s=&threadid=207688