Скрипт "Column Maker"

Вот, писанул, может кому понадобится.
___________________________________________________________________

utility col "Doryc column"
(

group "Название и цвет"
(
edittext prefix_txt " Name " fieldWidth:70 text:"column"
colorpicker a5 " Цвет " fieldWidth:70 height:16 color:[205,164,0]
)

group"Параметры"
(
spinner hght "Высота " type:#worldUnits range:[0, 100000, 100]
spinner can "Каннелюры " type:#integer range:[10, 44, 12]
)

group"Пропорции"
(
label lab1 "архаика ------- классика"
slider prop "" ticks:10 range:[3,5,4]
)

group"About "
(
button ab " About "
)
on ab pressed do
(
messagebox "Created by G.V.Coldashev 11/28/98"
messagebox "Modifed 11/9/99"
messagebox "Modifed 11/28/00"
messagebox "Very special thanks to Frank DeLise"
messagebox "Special thanks to A.B.Smirnov"
messagebox "Thanks to V.A. Poshetniov"
messagebox "Game over"
)

group"Сreate"
(button make "Create " )

on make pressed do
(

ProgressStart "Строительство колонны"

H=hght.value
P=prop.value
D=H/P

ProgressUpdate 5

D_COLUMN=D*0.84
R_COLUMN=D_COLUMN/2
COLUMN=star radius1:R_COLUMN radius2🙁R_COLUMN*0.9)points:can.value
H_COLUMN=H*0.91

ProgressUpdate 25

ll=H_COLUMN/6
addModifier COLUMN (extrude amount:H_COLUMN segs:6 )
POAS=cylinder radius🙁R_COLUMN) height🙁H*0.01)
POAS.pos=[0,0,H_COLUMN-H*0.03]
COLUMN+POAS
delete POAS

ProgressUpdate 50

addModifier COLUMN (taper amount:-0.19 limit:true upperlimit:H_COLUMN lowerlimit:ll)
AEHIN= cylinder radius🙁(D*0.66)/2) height🙁H*0.05) heightsegs:5
addModifier AEHIN (taper amount:0.5 curve:0.5 )
AEHIN.pos=[0,0,H_COLUMN]
ABAK=box length🙁D) width🙁D) height🙁H*0.04)
ABAK.pos=[0,0,H_COLUMN+H*0.05]
COLUMN+AEHIN+ABAK
delete AEHIN

ProgressUpdate 75

delete ABAK
addModifier COLUMN (Uvwmap maptype:1)
ConvertToMesh COLUMN
column.wirecolor = a5.color
column.name=prefix_txt.text

ProgressUpdate 100
ProgressEnd()

)
)


___________________________________________________________________

Чего-то у меня не пашет... Не могу понять.... Может скажешь как и откуда он по твоей версии должен работать....

1.Копируем всё кроме двух линий (верхней и нижней).
2.Открываем Блокнот, вставляем и сохраняем как " Doryc Column #9.ms ".
3. В МАКСЕ выбираем "run script " и запускаем его.

Работает во всех версиях, начиная с 3-ьей. (Про 5-ую версию ничего сказать не могу)

З.Ы. А чегой-то у тебя не пашет, описал бы ...

Сейчас проверил - всё работает. Скопировал отсюда, вставил, сохранил, запустил - ВСЁ работает. А Максим у меня 42-ой.

Печально. А я дурак. Думал, что это кому-нибудь понравится...

не вешай нос

просто, редкий человек, особенно дизайнер, не поленится написать пару слов благодарности за полезный скрипт, плаг и т.д., к тому же, если он достался на халяву...

удачи 😉

Пашет что-ли?

замечательно пашет, а чего ему не пахать 🙂