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

Для надежной работы АВТОГРАФа вышеуказанные записи  следует размещать  в  начале  файла  AVTOGRAF.BAT,   перед   остальными, имеющимися      в      файле      AUTOGRAF.BAT      установками.

6. Литература

1.Кнеллер М.И."AutoCAD.Полезные  рецепты".Москва.Радио  и связь.1994

2.Кречко Ю.А."АВТОКАД:программирование и адаптация".Москва.

ДиалогМИФИ.1995

3.Чигаров  Ю.Н."АВТОКАД.Справочник  команд.R10-11-12". Москва.

ДиалогМИФИ.1995

5.Шерешевский

6.Трепененков  "Альбом чертежей промышленных и административнобытовых зданий".Москва.С/И//

7. Приложение

7.1 МЕНЮ-утилиты

7.1.1 MAN

***BUTTONS

;

^c^c

$P1=*

^B

^O

^G

^D

^E

***AUX1

;

^C^C

$p1=*

^B

^O

^G

^D

^E

***POP1

[УТИЛИТЫ]

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

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

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

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

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

[Пан]'ПАН

[~--]

[КОНЕЦ]^C^CКОНЕЦ

[ПОКИНЬ]^C^CПОКИНЬ Д

[~--]

[КОПИРУЙ]^C^CКОПИРУЙ С

[ПЕРЕНЕСИ]^C^CПЕРЕНЕСИ С

[СОТРИ]^C^CСОТРИ С

[~--]

[Рисования]'ДИАЛСРЕД

[Создания Примитивов]'ДИАЛПРИМ

[Установки Слоев]'ДИАЛСЛОЙ

***POP2

[СРЕДСТВА]

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

[БЛИжайшая]БЛИ

[БЫСтрая,]БЫС,^Z$p2=*

[КАСательная]КАС

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

[КВАдрант]КВА

[НОРмаль]НОР

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

[СЕРедина]СЕР

[ТВСтавки]ТВС

[УЗЕл]УЗЕ

[ЦЕНтр]ЦЕН

НИЧего

***POP3

**P3

[AБК]

[ПЛAН]^С^C$P3=APLAN $P3=*

[ФAСAД]^C^C$P3=AFAS $P3=*

**APLAN

[ПЛAН_AБК]

[КОЛОННЫ]^C^C$I=KOL $I=*

[СТЕНЫ]^C^C$I=PROST $I=*

[ПРОСТЕНКИ]^C^C$I=DIAG $I=*

[САНУЗЛЫ]^C^C$I=SANUZ $I=*

[ЛЕСТНИЦЫ]^C^C$I=LEST $I=*

[ВЫХОД]^C^C$P3=P3 $P3=*

**AFAS

[ФAС_AБК]

[Фас_Панель]^C^C(if (null C:ФАСАД)(load (findfile"fasad.lsp")));ФАСАД

[ВЫХОД]^C^C$P3=P3 $P3=*

***POP4

**P4

[ПРОМ]

[ПЛAН]^C^C$P4=PPLAN $P4=*

[РAЗРЕЗ]^C^C$P4=PRAZ $P4=*

[ФAСAД]^C^С$P4=PFAS $P4=*

**PPLAN

[ПРОМ ПЛAН]

[КОЛОННЫ]^C^C$I=PKOLP $I=*

[СТЕНЫ]^C^C$I=STENP $I=*

[КРАНЫ]^C^C(load (findfile "kran.lsp"));КРАН П

[ВЫХОД]^C^C$P4=P4 $P4=* (setq C:КРАН nil);

**PRAZ

[ПРОМ РAЗРЕЗ]

[КОЛОННЫ]^C^C$I=PKOLR $I=*

[ФЕРМЫ_СТРОП.]^C^C$I=FER $I=*

[ФЕРМЫ_ПОДСТР.]^C^C$I=PFER $I=*

[БАЛКИ_ПОКРЫТИЯ]^C^C$I=BAL $I=*

[ПЛИТЫ_ПОКРЫТИЯ]^C^C$I=PLITP $I=*

[ПОДКРАН_БАЛКИ]^C^C$I=PKB $I=*

[ФОНАРИ]^C^C$I=FONAR $I=*

[СТЕНЫ]^C^C$I=STENR $I=*

[КРАНЫ]^C^C(load (findfile "kran.lsp"));КРАН Р

[ВЫХОД]^C^C$P4=P4 $P4=* (setq C:КРАН nil);

**PFAS

[ПРОМ ФAСАД]

[ФАС_ПАНЕЛЬ]^C^C$I=STENF $I=*

[ВЫХОД]^C^C$P4=P4 $P4=*

***POP5

[ПОЛЫ]

[ВХОД]^C^CМЕНЮ POL

[ВЫХОД]^C^C

***POP6

[ОТДЕЛКА]

[ВХОД]^C^CМЕНЮ OTDELKA

[ВЫХОД]^C^C

***POP7

[УЗЛЫ]

[ВХОД]^C^CМЕНЮ UZEL

[ВЫХОД]^C^C

***ICON

**stenr

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

[stenp(psrr69)]^C^C(load  (findfile "stena.lsp"));СТЕНА 120  \\\С 900

[stenp(psrr612)]^C^C(load (findfile "stena.lsp"));СТЕНА 120 \\\С 1200

[stenp(psrr618)]^C^C(load (findfile "stena.lsp"));СТЕНА 120 \\\С 1800

[stenp(pspr69)]^C^C(load (findfile "stena.lsp"));СТЕНА 70 \\\С 900

[stenp(pspr612)]^C^C(load (findfile "stena.lsp"));СТЕНА 70  \\\С 1200

[stenp(pspr618)]^C^C(load (findfile "stena.lsp"));СТЕНА  70 \\\С 1800

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

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

**stenr1

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

[stenp(pn6r11)]^C^C(load (findfile "stena.lsp"));СТЕНА 200 \\\С 1200

[stenp(pn6r17)]^C^C(load (findfile "stena.lsp"));СТЕНА 200 \\\С 1800

[stenp(pt6f3r1)]^C^C(load (findfile "stena.lsp"));СТЕНА 240 \\\С 1200

[stenp(pt6f3r7)]^C^C(load (findfile "stena.lsp"));СТЕНА 240 \\\С 1800

[stenp(pt6b3r1)]^C^C(load (findfile "stena.lsp"));СТЕНА 300 \\\С 1200

[stenp(pt6b3r7)]^C^C(load (findfile "stena.lsp"));СТЕНА 300 \\\С 1800

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

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

**stenp

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

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

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

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