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

[stenp(pspp6)]^C^C(load (findfile "stenapl.lsp"));СТЕНАПЛ П 70 \

[stenp(pt6fp3)]^C^C(load (findfile "stenapl.lsp"));СТЕНАПЛ П 200 \

[stenp(pt6bp3)]^C^C(load (findfile "stenapl.lsp"));СТЕНАПЛ П 240 \

[stenp(pt6bp3)]^C^C(load (findfile "stenapl.lsp"));СТЕНАПЛ П 300 \

[ ВЫХОД]^C^C(setq C:СТЕНАПЛ nil);

**stenf

[СТЕНОВЫЕ ПАНЕЛИ]

[stenp(pn6f7w11)]^C^C(load (findfile "fasad.lsp"));ФАСАД \С 1800  \

[stenp(pn6f7w12)]^C^C(load (findfile "fasad.lsp"));ФАСАД \С 1200 \

[stenp(pn6f11)]^C^C(load (findfile "fasad.lsp"));ФАСАД \С 900 \

[ Следующий]$I=stenf1 $I=*

[ ВЫХОД]^C^C(setq C:ФАСАД nil);

**stenf1

[ОКОННЫЕ БЛОКИ]

[stenp(pn12f1)]^C^C(load (findfile "fasad.lsp"));ФАСАД \О 1800 Д

[stenp(pn12f7)]^C^C(load (findfile "fasad.lsp"));ФАСАД \О 1200 Д

[stenp(pn12f7w1)]^C^C(load (findfile "fasad.lsp"));ФАСАД \О 1800 СТ 1.5

[stenp(pn12f7w2)]^C^C(load (findfile "fasad.lsp"));ФАСАД \О 1200 СТ 1.5

[stenp(pn12f7w1)]^C^C(load (findfile "fasad.lsp"));ФАСАД \О 1800 СТ 2.3

[stenp(pn12f7w2)]^C^C(load (findfile "fasad.lsp"));ФАСАД \О 1200 СТ 2.3

[ Предыдующий]^C^С$I=stenf $I=*

[ ВЫХОД]^C^C(setq C:ФАСАД nil);

**fer

[Ж/Б СТРОПИЛЬНЫЕ ФЕРМЫ]

[balfer(fbs-18)]^C^C(load (findfile "ferma.lsp"));ФЕРМА ПО Б С 18 \

[balfer(fbs-24)]^C^C(load (findfile "ferma.lsp"));ФЕРМА ПО Б С 24 \

[balfer(fbu-18)]^C^C(load (findfile "ferma.lsp"));ФЕРМА ПО Б М 18 \

[balfer(fbu-24)]^C^C(load (findfile "ferma.lsp"));ФЕРМА ПО Б М 18 \

[balfer(fr-18)]^C^C(load (findfile "ferma.lsp"));ФЕРМА ПО Р 18 \

[balfer(fr-24)]^C^C(load (findfile "ferma.lsp"));ФЕРМА ПО Р 18 \

[balfer(fbr-18)]^C^C(load (findfile "ferma.lsp"));ФЕРМА ПР Р 18 \

[balfer(fbr-24)]^C^C(load (findfile "ferma.lsp"));ФЕРМА ПР Р 24 \

[ Выход]^C^С(setq C:ФЕРМА nil);

**pfer

[Ж/Б ПОДСТРОПИЛЬНЫЕ ФЕРМЫ]

[balfer(pf-12k)]^C^C(load (findfile "pferma.lsp"));ПФЕРМА ПО 12 К \

[balfer(pf-12c)]^C^C(load (findfile "pferma.lsp"));ПФЕРМА ПО 12 С \

[balfer(pf-18u)]^C^C(load (findfile "pferma.lsp"));ПФЕРМА ПО 18 \

[balfer(pfr-12)]^C^C(load (findfile "pferma.lsp"));ПФЕРМА ПР 12 К \

[balfer(pfr-18)]^C^C(load (findfile "pferma.lsp"));ПФЕРМА ПР 18 \

[ Следующий]^C^С$I=bal $I=*

[ ВЫХОД]^C^C(setq C:ПФЕРМА nil);

**bal

[Ж/Б БАЛКА ПОКРЫТИЯ]

[balfer(rbsr12)]^C^C(load (findfile "balka.lsp"));БАЛКА ПР 12 \

[balfer(rbsr18)]^C^C(load (findfile "balka.lsp"));БАЛКА ПР 18 \

[balfer(rbs12)]^C^C(load (findfile "balka.lsp"));БАЛКА ПО 12 \

[balfer(rbs18)]^C^C(load (findfile "balka.lsp"));БАЛКА ПО 18 \

[ Предыдующий]^C^С$I=pfer $I=*

[ ВЫХОД]^C^C(setq C:БАЛКА nil);

**plitp

[ПЛИТА ПОКРЫТИЯ]

[plitp(ppr615)]^C^C(load (findfile "plita.lsp"));ПЛИТА ПО 1.5 6 \

[plitp(ppr63)]^C^C(load (findfile "plita.lsp"));ПЛИТА ПО 3 6 \

[plitp(ppr1215)]^C^C(load (findfile "plita.lsp"));ПЛИТА ПО 1.5 12 \

[plitp(ppr123)]^C^C(load (findfile "plita.lsp"));ПЛИТА ПО 3 12 \

[plitp(pp615)]^C^C(load (findfile "plita.lsp"));ПЛИТА ПР 1.5 6 \

[plitp(pp63)]^C^C(load (findfile "plita.lsp"));ПЛИТА ПР 3 6 \

[plitp(pp1215)]^C^C(load (findfile "plita.lsp"));ПЛИТА ПР 1.5 12 \

[plitp(pp123)]^C^C(load (findfile "plita.lsp"));ПЛИТА ПР 3 12 \

[ ВЫХОД]^C^C(setq C:ПЛИТА nil);

**fonar

[ФОНАРЬ СВЕТОАЭРАЦИОННЫЙ]

[balfer(far627)]^C^C(load (findfile "fonar.lsp"));ФОНАРЬ ПО 6 \

[ ВЫХОД]^C^C(setq C:ФОНАРЬ nil);

**pkb

[Ж/Б ПОДКРАНОВАЯ БАЛКА]

[pkolkr(pkbr8_5)]^C^C(load (findfile "pbalka.lsp"));ПБАЛКА ПР 0.8 \

[pkolkr(pkbr10_7)]^C^C(load (findfile "pbalka.lsp"));ПБАЛКА ПР 1.0 \

[pkolkr(pkbr14_7)]^C^C(load (findfile "pbalka.lsp"));ПБАЛКА ПР 1.4 \

[pkolkr(pkb8_5)]^C^C(load (findfile "pbalka.lsp"));ПБАЛКА ПО 0.8 \

[pkolkr(pkb10_7)]^C^C(load (findfile "pbalka.lsp"));ПБАЛКА ПО 1.0 \