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

[uzelZL(uzel16)]^C^CВСТАВЬ uzel16 \1 1 0

[ВЫХОД]^C^C$S=uzelZL

**mix2

[узлы обрамления отверстий]

[uzelZL(uzel6)]^C^CВСТАВЬ uzel6 \1 1 0

[uzelZL(uzel29)]^C^CВСТАВЬ uzel29 \1 1 0

[uzelZL(uzel15)]^C^CВСТАВЬ uzel15 \1 1 0

[ВЫХОД]^C^C$S=uzelZL

**mix3

[Детали полов]

[uzelZL(uzel7)]^C^CВСТАВЬ uzel7 \1 1 0

[uzelZL(uzel10)]^C^CВСТАВЬ uzel10 \1 1 0

[uzelZL(uzel24)]^C^CВСТАВЬ uzel24 \1 1 0

[uzelZL(uzel17)]^C^CВСТАВЬ uzel17 \1 1 0

[uzelZL(uzel19)]^C^CВСТАВЬ uzel19 \1 1 0

[ВЫХОД]^C^C$S=uzelZL

**mix4

[Детали кровли]

[uzelZL(uzel11)]^C^CВСТАВЬ uzel11 \1 1 0

[uzelZL(uzel12)]^C^CВСТАВЬ uzel12 \1 1 0

[uzelZL(uzel13)]^C^CВСТАВЬ uzel13 \1 1 0

[uzelZL(uzel25)]^C^CВСТАВЬ uzel25 \1 1 0

[ВЫХОД]^C^C$S=uzelZL

**mix5

[узлы разные]

[uzelZL(uzel3)]^C^CВСТАВЬ uzel3 \1 1 0

[uzelZL(uzel2)]^C^CВСТАВЬ uzel2 \1 1 0

[uzelZL(uzel20)]^C^CВСТАВЬ uzel20 \1 1 0

[uzelZL(uzel21)]^C^CВСТАВЬ uzel21 \1 1 0

[uzelZL(uzel8)]^C^CВСТАВЬ uzel8 \1 1 0

[uzelZL(uzel4)]^C^CВСТАВЬ uzel4 \1 1 0

[uzelZL(uzel26)]^C^CВСТАВЬ uzel26 \1 1 0

[uzelZL(uzel27)]^C^CВСТАВЬ uzel27 \1 1 0

[ВЫХОД]^C^C$S=uzelZL

**mix6

[Схемы кабин]

[uzelZL(kd)]^C^CВСТАВЬ kab-duzelh \1 1 0

[uzelZL(ky)]^C^CВСТАВЬ kab-yb \1 1 0

[ВЫХОД]^C^C$S=uzelZL

***SCREEN

**uzelZL

[АВТОГРФ]^C^C^РМЕНЮ MAN

[АВТОКАД]^^C^C^PМЕНЮ ACAD

[=======]

[]

[]

[]

[]

[УЗЛЫ]

[______]

[Перегор]^C^C$i=mix1 $i=*

[Обрамл]^C^C$i=mix2 $i=*

[Полов]^C^C$i=mix3 $i=*

[Кровли]^C^C$i=mix4 $i=*

[Разные]^C^C$i=mix5 $i=*

[Схемы]^C^C$i=mix6 $i=*

[]

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

[ПОКИНЬ]^C^C$S=x $s=quzelit ПОКИНЬ

7.2 Прогаммы-заставки MAN3.pas(TURBO-PASCAL)

{$M 8192,0,0}           { Leave memory for child process }

Program GRAND;

uses DOS,crt;

var cc:char;

batf,scrf:text;

ff,fact,command:string;

n:integer;

procedure openf(var ff:string);

begin

assign(scrf,'D:\acad\com.scr');

rewrite(scrf);

write(scrf,n);

write(scrf,' ');

writeln(scrf,ff);

close(scrf);

end;

procedure comm;

begin

SwapVectors;

Exec(GetEnv('COMSPEC'), '/C ' + Command);

SwapVectors;

if DosError <> 0 then

WriteLn('Could not execute COMMAND.COM');

WriteLn;

end;

BEGIN

clrscr;

WRITELN('                        ***АВТОГРАФ-911***              ');

WRITELN('             ПРОГРАММА АВТОМАТИЗИРОВАННОГО ФОРМИРОВАНИЯ ');

WRITELN('                  АРХИТЕКТУРНО-СТРОИТЕЛЬНЫХ ЧЕРТЕЖЕЙ    ');

WRITELN('           ПРОМЫШЛЕННЫХ И АДМИНИСТРАТИВНО-БЫТОВЫХ ЗДАНИЙ');

WRITELN('                    ***АВТОР:СибГГМА,СПС-911***         ');

WRITELN('                    *ВИЛЬДАНОВ А.Р.*(43-34-39)*         ');

WRITELN;

WRITELN('                       ВЫБЕРИТЕ ПУНКТ МЕНЮ:');

WRITELN;

WRITELN('                  ВЫХОД ИЗ ПРОГРАММЫ---------<0>');

WRITELN('                  НАЧАТЬ НОВЫЙ ЧЕРТЕЖ--------<1>');

WRITELN('                  РЕДАКТИРОВАТЬ СУЩЕСТВУЮЩИЙ-<2>');

WRITELN('                  ПРОСМОТР ЧЕРТЕЖА-----------<3>');

WRITELN('                  ТЕКСТОВЫЙ РЕДАКТОР---------<4>');

WRITELN;

WRITE('ВАШ ВЫБОР:');

repeat  begin  READLN(CC);  CC:=UPCASE(CC);  end;

until (cc in ['0'..'4']) ;

case cc of

'0': halt(0);

'1':BEGIN

WRITELN('НОВОЕ ИМЯ ЧЕРТЕЖА:');

gotoxy(22,17);

readln(fact);n:=1;

CLRSCR;

openf(fact);

command:='acad.exe 1 com'; comm;

command:='MAN3.exe';       comm;

END;

'2':BEGIN

WRITELN('ИМЯ РЕДАКТИРУЕМОГО ЧЕРТЕЖА:');

gotoxy(28,17);

readln(fact);n:=2;

CLRSCR;

openf(fact);

command:='acad.exe 1 com'; comm;

command:='MAN3.exe';       comm;

END;

'3':BEGIN

command:='dl.exe';          comm;

command:='MAN3.exe';        comm;

END;

'4':BEGIN

command:='lux.exe';         comm;

command:='MAN3.exe';        comm;

END;

END;

END.

7.3 Программ-комманд(AUTOLISP)

7.3.1 balka.lsp

;=====================БАЛКА ПОКРЫТИЯ========================

(defun C:БАЛКА(/ spl dpl traz ugol plit mash tvst)

(setq ce (getvar "CMDECHO"))

(setq bm (getvar "BLIPMODE"))

(setvar "CMDECHO" 0)

(setvar "BLIPMODE" 0)

(defun dtr(a)

(* PI (/ a 180.0))

)

;========================Программа==========================