日期:2012-06-29 16:45
Pck=ThisDrawing.Utility.GetPoint(，请指定路灯编号位置：)
If Err 0 Then
Err.Clear
ThisDrawing.Utility.Prompt没有指定编号位置，退出
Exit Sub
End If
ppt(0)=PPck(0):ppt(1)=ppck(1):ppt(2)=ppck(2)指定插入点的Ｘ、Ｙ、Ｚ轴坐标
If Numbersl=Then Numbers1=Nums
Set textobject(0)=ThisDrawing.Mode1Space.AddText(HeadTextNumbersl,ppt,TextHeight)指定文字内容、插入点、高度
Nums=Numbersl'使提示与上一编号关联
Nums=Nums+1
GoTo RETRY
End Sub
选择［文件／保存］，然后退出。
三、应用实例
1.运行一个道路照明