Нумерация свай

Автор: Dmitry Rudenko

num.vbs

Dim ms
Set ms = ThisDrawing.ModelSpace
Dim ut
Set ut = ThisDrawing.Utility
 
ut.Prompt "Нумерация свай"
 
Dim layer
Set layer = ThisDrawing.Layers.Add("КЖ_номера свай")
 
Dim point, point_sa, pt(2)
Dim text1
 
dim txtsize
txtsize = ut.getinteger("Укажите высоту текста")
 
dim dx 
dx = ut.getinteger("Укажите смещение по Х")
 
dim dy 
dy = ut.getinteger("Укажите смещение по У")
 
dim first
first = ut.getinteger("Введите номер для первой сваи")
 
for i = first to 9999
	point = ut.GetPoint("0,0,0", "Укажите точку вставки (для завершения нажмите Esc)")
	point_sa = ut.CreateSafeArrayFromVector(point)
	pt(0) = dx + point_sa(0)
	pt(1) = dy + point_sa(1)
	pt(2) = 0
	mytext CStr(i),pt
next
 
Sub mytext(text1,pt)
 Dim txt1
 Set txt1 = ms.addtext(text1,pt,txtsize)
 txt1.Layer = "КЖ_номера свай"
End Sub