Программирование в AutoCad. Салова И.А. - 49 стр.

UptoLike

Составители: 

49
П р и м е р:
(setq jj (open “limit.dat” “r”))
(if jj
(progn
(setq bz (atof (read-line jj)))
(setq hj (atof (read-line jj)))
)
яицкнуФеинечанзаН
rahc-daer(
)>ротпирксед<
-ктозиилиырутаивалкарефубзиловмистеавытичС
-орпдоколсичеолецтеащарвзоВ.алйафог
отыр
аловмисогоннатич
акортсenil-etirw(
)>ротпирксед<
лйафйытырктовутнатснокюувокортстеавысипаЗ
юутязв,уко
ртстеащарвзовяицкнуФ.наркэанили
лйафвисипазирпикчывактеаксупои,икчывакв
)fРЕМИРПenil-etirw(
>док<rahc-
etirw(
)>ротпирксед<
мыннадазсловмисйоворфиц-онневкубтеавысипаЗ
еинечанзеомеащарвзоВ.наркэанилилйафвмодо
к
-азязьлеН.)аловмисогоннедевывдок(олсичеолец
ястидовыв)05rahc-etirw(.0модоксловмисьтасип
05еинечанзео
меащарвзови2арфиц
)>лйаф<eteled-elif-lvинеладуилсе,Tеинечанзтеащарвзов,лйафтеяладУ
.оненлопывенеинелад
уилсеlin;оненлопыв
)txt.aeteled-elif-lv(
иицкнуфеыньлетинлопоД
)>еинещбоос<tpmorp(-ечанзеомеащарвзоВ.н
аркэанеинещбоостидовыВ
linеин
)>еинещбоос<trelaенкомовоголаидвнаркэанеинещбоостидовыВ
linеинечанзеомеащ
арвзоВ.KOйокпонк
:кортсокьлоксенитсевывомидохбоенилсЕ
яинавориммаргорпкызЯn\psiLotuAотЭtacrts(tsqtes(n\
))daCotuAедерсв
)tstrela(
)cnirpарвзовеН.дохывйихиТ-сИ.яинечанзогокакинтеа
пыммаргорпецноквястеузьло
)irp
ret(-боосеондеречО.укортсюувонанросруктидовереП
икортсйовонсястидовывеинещ