Нумерация свай
Автор: Dmitry Rudenko

Эта статья ещё не завершена. Вы можете помочь проекту, исправив или дополнив её.

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

swell , vba , nanocad , сваи