Приложение "АВТОГРАФ" для автоматизации процесса формирования графического раздела архитектурно-строительной части проекта, страница 14

[ARMEN(DJ623)]^C^C(load (findfile "diag.lsp"));ДЖ 6 300 2 \

[ARMEN(DJ604)]^C^C(load (findfile "diag.lsp"));ДЖ 6 400 0 \

[ARMEN(DJ614)]^C^C(load (findfile "diag.lsp"));ДЖ 6 400 1 \

[ARMEN(DJ624)]^C^C(load (findfile "diag.lsp"));ДЖ 6 400 2 \

[ 3-х метровые]$I=DIG1 $I=*

[ ВЫХОД]^C^C(setq C:ДЖ nil);

**DIG1

[диафрагмы жесткости 3м]

[ARMEN(DJ303)]^C^C(load (findfile "diag.lsp"));ДЖ 3 300 0 \

[ARMEN(DJ313)]^C^C(load (findfile "diag.lsp"));ДЖ 3 300 1 \

[ARMEN(DJ304)]^C^C(load (findfile "diag.lsp"));ДЖ 3 400 0 \

[ARMEN(DJ314)]^C^C(load (findfile "diag.lsp"));ДЖ 3 400 1 \

[ 6-и метровые]$I=DIG $I=*

[ ВЫХОД]^C^C(setq C:ДЖ nil);

**KOL

[КОЛОННЫ]

[ARMEN(KOL3N)]^C^C(load (findfile "kol.lsp")));СТ Н 300 \

[ARMEN(KOL4N)]^C^C(load (findfile "kol.lsp")));СТ Н 400 \

[ARMEN(KOL3S)]^C^C(load (findfile "kol.lsp")));СТ С 300 \

[ARMEN(KOL4S)]^C^C(load (findfile "kol.lsp")));СТ С 400 \

**LEST

[ЛЕСТНИЦЫ]

[ARMEN(LT33)]^C^C

[ARMEN(LT36)]^C^C

[ ВЫХОД]^C^C

**VINOS

[ЭЛЕМЕНТЫ ОФОРМЛЕНИЯ ЧЕРТЕЖА]

[ARMEN(SKOBA)]^C^CВСТАВЬ SKOBKA \;;;

[ARMEN(OTM)]^C^CВСТАВЬ otm \;;;

[ARMEN(FAS)]^C^CВСТАВЬ FASAD \;;;

[ARMEN(PLAN)]^C^CВСТАВЬ PLAN \;;;

[ARMEN(RZRZ)]^C^CВСТАВЬ RAZREZ \;;;

[ARMEN(FRAG)]^C^CВСТАВЬ FRAGMENT \;;;

[ARMEN(KROV)]^C^CВСТАВЬ KROVLYA \;;;

[ ВЫХОД]^C^C

**SANUZ

[САНУЗЛЫ]

[ARMEN(SANI1)]^C^CВСТАВЬ sanuz1 \;;;

[ARMEN(SANI2)]^C^CВСТАВЬ sanuz2 \;;;

[ ВЫХОД]^C^C

***SCREEN

**p

[АВТОГРФ]^C^C$S=X $S=P $P3=P3P $P4=P4P

[АвтоКАД]^C^C$S=X (command "меню" "acad")

[-------]

[СТАРТ:]^C^C(load (findfile "start.lsp")));СТАРТ

[ОсиЗдан]^C^C$S=X $S=OSI

[СТЕНА:]^C^C(load (findfile "stena.lsp")));СТЕНА

[ФАСАД:]^C^C(load (findfile "fasad.lsp")));ФАСАД

[ОФОРМЛЕНИЕ]^C^C(command "СЛОЙ" "С" "$DIZAIN" "") $I=VINOS $I=*

[Изм.Масш]^C^C$S=pvm $S=*

**OSI 3

[--------]

[]

[ОсиПлан:]^C^C(if (null C:ОСИЗ)(load (findfile "osi.lsp")));ОСИЗ

[]

[ОсиРазр:]^C^C(if (null C:РОСИ)(load (findfile "rosi.lsp")));РОСИ

[]

**PVM 4

[МАСШТАБ]

[M1:50]'УСТПЕРЕМ USERR5 50

[M1:100]'УСТПЕРЕМ USERR5 100

[M1:200]'УСТПЕРЕМ USERR5 200

[M1:400]'УСТПЕРЕМ USERR5 400

**X 3

[ПРЕДМЕНЮ]$S= $S=

[]^C^C$S=X

[]^C^C$S=X

**OSI 3

[]

[]

[Новая]'УСТПЕРЕМ USERI1 0

[Реконстр]'УСТПЕРЕМ USERI1 1

[-------]

[РазмВкл]'УСТПЕРЕМ USERI2 0

[РазмВыкл]'УСТПЕРЕМ USERI2 1

[]

[ПРЕДМЕНЮ]$S= $S=

7.1.2 POL

***BUTTONS

;

$P1=*

^c^c

^B

^O

^G

^D

^E

^T

***AUX1

;

$p1=*

^C^C

^B

^O

^G

^D

^E

^T

***POP1

[Средства]

[ПРИВЯЖИ]^C^C$p1= $p1=* ПРИВЯЖИ \

[КОНечная точка]КОН

[ПЕРесечение]ПЕР

***POP2

[Дисплей]

[Освежи]'освежи

[~--]

[ПОКАЖИ Рамка]'ПОКАЖИ Р

[ПОКАЖИ Предыдущий]'ПОКАЖИ П

[ПОКАЖИ Все]'ПОКАЖИ в

[ПОКАЖИ Динамика]'ПОКАЖИ Д

[~--]

[Пан]'ПАН

***POP3

[ПОЛЫ]

[НА ГРУНТЕ]

[---------]

[НА ПЕРЕКРЫТИИ]

***icon

**grcb

[на грунте с гидроизоляцией БЕТОН]

[POLZIL(Z176)]^C^CВСТАВЬ 176 \1 1 0

[POLOB(o747)]^C^CВСТАВЬ o747 \1 1 0

[POLOB(o749)]^C^CВСТАВЬ o749 \1 1 0

[ ВЫХОД]^C^C$s=grc

**grcp

[на грунте с гидроизоляцией ПЛИТНЫЕ]

[POLZIL(Z182)]^C^CВСТАВЬ 182 \1 1 0

[POLOB(o399)]^C^CВСТАВЬ o399 \1 1 0

[POLOB(o898)]^C^CВСТАВЬ o898 \1 1 0

[ ВЫХОД]^C^C$s=grc

**grcd

[на грунте с гидроизоляций ДЕРЕВ.ПАРКЕТ]

[POLOB(o112)]^C^CВСТАВЬ o112 \1 1 0

[POLOB(o121)]^C^CВСТАВЬ o121 \1 1 0

[ ВЫХОД]^C^C$s=grc

**grcl

[на грунте с гидроизоляцией ЛИНОЛИУМ]

[POLOB(o899)]^C^CВСТАВЬ O899 \1 1 0

[ ВЫХОД]^C^C$s=grc

**grbb

[на грунте без гидроизоляции БЕТОН]

[POLZIL(Z174)]^C^CВСТАВЬ 174 \1 1 0

[POLZIL(Z175)]^C^CВСТАВЬ 175 \1 1 0

[ ВЫХОД]^C^C$s=grb

**grbd

[на грунте без гидроизоляции ДЕРЕВЯННЫЕ]

[POLZIL(Z144)]^C^CВСТАВЬ 144 \1 1 0

[POLZIL(Z149)]^C^CВСТАВЬ 149 \1 1 0

[POLZIL(Z159)]^C^CВСТАВЬ 159 \1 1 0

[ ВЫХОД]^C^C$s=grb

**grbl

[на грунте без гидроизоляции ПХВ.ЛИНОЛ.]

[POLOB(o530)]^C^CВСТАВЬ o530 \1 1 0

[ ВЫХОД]^C^C$s=grb

**prcl

[на перекрытии с гидроизоляцией ЛИНОЛ.]