dim vekt[]
!Открываем файл f_name, подгруженный в библиотеку, и читаем из него список наименований
v1 = ""
szelv = open("text", f_name, "separator='\t', mode=ro, LIBRARY")
!Цикл начинается с 2, т.к. первая строка - имена столбцов
for i = 2 to sor - 1
mm = input(szelv, i, 2, v1)
vekt[i-1] = v1
next i
close szelv
!Собственно выбор наименования
values "Profile" vekt
!Определяем номер строки в массиве с этим наименованием
for i = 1 to VARDIM1(vekt)
if Profile = vekt[i] then
n_stroki = i + 1
endif
next i
PARAMETERS n_stroki = n_stroki
szelv=open("text", f_name, "separator='\t', mode=ro, LIBRARY")
!Считываем параметры
n=input(szelv, n_stroki, 3, ves_p, ds, ws, wt, ft, rr, tr, as, dbf)
close szelv
parameters ds = ds, ws = ws, wt = wt, ft = ft, rr = rr, tr = tr, dbf = dbf, ves_p = ves_pА чтобы не добавлять код в каждый объект - создайте тип (шаблон) и применяйте его ко всем нужным объектам. Для этого просто сделайте объект отдельный, с параметрами и скриптами, которые будут общими у всех объектов, и обращайтесь потом к немй с помощью call "ИМЯ" parameters all . У общего объекта (родительского) на вкладке Детали отметить пункт "использовать как подтип", а у дочерних - выбрать этот объект через выбор подтипа