日期:2012-06-29 16:45
ms=1。
TextHeight=ThisDrawing.Utility.GetString(0,vbCrLf 请输入编号文字高度［2500］:)
If TextHeight＝Then TextHeight =2500
Dim HeadText As String
HeadText=ThisDrawing.Utility.GetString(0, vbCrLf 请输入编号起始符号［T］:)
If HeadText=Then HeadText=T
RETRY:
Dim PPck As Variant
Dim textobject(0) As AcadObject
Dim ppt(0 To 2) As Double: Dim Numbersl As String
On Error Resume Next
Numbersl=ThisDrawing.Utility.GetString(0,vbCrLf 请输入编号数字(上一编号为 Nums - 1)[ Nums ]:)截取输入编号
P