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

UptoLike

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

19
4.6. Логические функции AutoLisp
Логический оператор – это функция, сравнивающая между собой два
или больше аргумента. Результат сравнения (т. е. некоторое утверж-
дение, касающееся двух аргументов) может быть либо истиной (Т), либо
ложью (nil). Основные логические функции – это И (AND), ИЛИ (OR) и
НЕ (NOT):
яицкнуФеинасипО
)...2рыв1рывdna( сечиголяиненлопывтатьлузертеащарвзоВогок
И ястеащарвзоВ.йинежарывмоксипсдан,lin
йинежарывз
и)ондоыбятох(еобюлилсе
еинечанзтеемиачулсмонвиторпв,liТ
)linTdna( )2TTdna(lin T
)тнемелэton( -сечиголяине
нлопывтатьлузертеащарвзоВ
мотнемуграмиовсданЕНогок
)...2рыв1рывro( -сечиголяиненлопывтатьлузертеащарвзоВ
-арвзоВ.йинежарывмоксипсданИЛИогок
-ечанзтюемиытнемуграесвилсе,linястеащ
авелсвотнемуграекнецоирпилсе;l
inеин
,linенеинежарывястеачертсвоварпан
Тястеащарвзов
)>Nгра<>2гра<>1гра<=( иалсич(вотнемуграавтсневара
креворП
)000.01-01-0.01-=()икортс T
-темоногирттатьлузерьтавинварсенешчуЛ
:йотнатсноксйицкнуфхиксечир
))0
nis(xqtes( 0.0
))ip0.2*(nis(yqtes( 610-e12944.2-
)yx=( lin
)>Nгра<>2гра<>1гра<=/( огобюлвотнемуграавтсне
варенакреворП
)икортсиалсич(апит
)>Nгра<>2гра<>1гра<<( -зовопвотнемуграеинежолопсартеяреворП
)икортсиалс
ич(оварпанавелс,юинатсар
)0332<( )0322<(Т lin
)kba<( T
)>Nгра<>2гра<>1гра<=<( опвотнемуграеинежоло
псартеяреворП
)икортсиалсич(оварпанавелс,юинавыбуен
)0322=<( T
)>Nгра<>2гра<>1гра<>( опвотнемуграеинежол
опсартеяреворП
)икортсиалсич(оварпанавелс,юинавыбу
)3503>( T