Wiki ЖБК

Материалы для проектирования железобетонных конструкций

Инструменты пользователя

Инструменты сайта


нумерация_свай

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

Автор: 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

Обсуждение

Косов Игорь, 2015-01-14 10:26
Добрый день. Пробовал данный скрипт в NanoCad_5.1 - работает замечательно.
Было бы не плохо добавить в него возможность простановки префиксов и суффиксов, чтобы номер мог иметь вид "N 1/A" , где "N" - префикс, "1" - номер позиции, а "/А" - суффикс.
Dmitry Rudenko, 2015-01-14 11:01
Игорь, поменяйте одну строку:
вместо: mytext CStr(i),pt
поставьте: mytext "N " + CStr(i) + "/A",pt
Косов Игорь, 2015-01-14 12:10
Спасибо преогромнейшее!!! )))
Dmitry Rudenko, 2015-01-14 12:12
Рад помочь =)
Косов Игорь, 2015-01-14 13:07
Есть LISP для AutoCad, называется myOrder2.2 - у него аналогичная направленность, только функционал гораздо мощнее. Жаль только в NanoCad он не работает. Если интересно, могу ссылочку кинуть.
Dmitry Rudenko, 2015-01-14 13:15
Спасибо, но я уже много лет не пользуюсь автокадом.
Косов Игорь, 2015-01-14 13:49
Я не к тому, там есть подробное описание функций выполняемых приложением... Может быть у вас получится реализовать для NanoCad в виде скрипта. Было бы очень здорово. Если бы я умел, то точно занялся бы этим вопросом. =)
Nikita, 2023-01-31 10:58
В СПДС 22 не работает.
Надпись ошибки: err: "(null)" raised an exception "Utility.Input canceled" at line 18 pos 0
dx = ut.getinteger("Укажите смещение по Х") ^
Nikita, 2023-01-31 11:00
Прошу прощения, всё работает. Я некорректно вставлял.
Ваш комментарий:
   ___    ____  ____
  / _ )  / __/ /_  /
 / _  | _\ \    / /_
/____/ /___/   /___/
 
PDF Export Download this page as a pdf Text Export Download this page as a plain text
нумерация_свай.txt · Последнее изменение: 2013-06-07 14:38 (внешнее изменение)

Инструменты страницы