Dodatek A

Funkcje w AutoLISP-ie
i w systemie ADS

Zawarta w tym dodatku tabela pokazuje aktualne funkcje AutoLISP-u oraz
odpowiadające im funkcje z systemu ADS. Pozwala to łatwo porównać oba
zestawy funkcji i listy argumentów odpowiadających sobie funkcji.

Tabela A-1. Funkcje w AutoLISP-ie i w systemie ADS



Funkcja w AutoLISP-ie Funkcja w systemie ADS
(+ number number...)
(- number [number]...)
(* number [number].. .)
(/ number [number]...)
(= atom atom...)
(/= atom atom ...)
{< atom atom ...}
(<= atom atom...)
(> atom atom...)
(>= atom atom ...)
(~ numbel)
(*error* string )
(1+ number)
(1- number)
(abs number)
(ads) adsJoaded ()
(alloc number)
adsabort ( str)
(alert string) adsalert (str)
(and expression ...)

207

Funkcje w AutoLISP-ie i w systemie ADS

Tabela A-1. Funkcje w AutoLISP-ie iw systemie ADS



BIIBiBIBMpS
(angle pt1 pt2) adsangle ( pt1, pt2 )
(angtof string [ modÄ™ ]) adsangtof ( str, unit, v)
(angtos angle [ modÄ™ [ precision ] ]} adsangtos ( v, unit, prec, str}
(append expr...)
(appły function list)
\ (ascii string )
: (assoc item alist)
(atan num 1 [ num2 ])
(atof string )
(atoi string )
(atom item )
(atoms-famiły format [ symiist ]}
(Boole func int1 int2...)
(boundp atom)
adsbuildlist ( rtype, [, argument ]...)
(car list)
(cdr list)
(caar list), (cadr list), (cddr list), (cadar list), eto.
(chr integer)
(close file-desc )
adscmd (rbp )
(command [ args ]...) adscommand ( rtype, [, argument ]. • •)
(cond (test1 resultl ...)...)
(cons new-first-element list)
(cos angle )
(cvunit value from to } adscvunit ( value, oldunit, newunit, resulf)
(defun sym argument-list expr. ..) adsdefun ( sname, funcno)
(distance pt1 pt2 ) adsdistance ( pt1, pt2)
(distof string [ modÄ™ ]) adsdistof ( str, unit, v)
adsdraggen ( ss, pmt, cursor, sen/, p)
(entdel ename ) adsentdel ( ent)
(entget ename [ applist ]) adsentget ( ent)

208

Dodatek A

Tabela A-1. Funkcje w AutoLISP-ie i w systemie ADS



i Funkcja w AutoLISP-ie Funkcja w systemie ADS
adsentgetx ( ent, apps )
(entlast) adsentlast (result)
(entmake [ elist ]) adsentmake ( ent)
(entmod elist) adsentmod ( ent)
(entnext [ ename]) adsentnext ( ent, result)
(entsel [ prompt ]} adsentsel ( str, entres, ptres)
(entupd ename ) adsentupd ( ent)
(eq expr1 expr2)
(equal expr1 expr2 [ fuzz ])
(eval expr)
(exit) adsexit ( status )
(exp number)
(expand)
adsfail(sfr)
(expt base power)
(findfile filename ) ads findfile (f name, result)
(f ix number)
(float number)
(foreach name list expr...)
(gc)
(gcd num1 num2)
(getangle [ pt ] [ prompt ]) adsgetangle ( point, prompt, result)
adsgetargs ()
(getcorner pt [ prompt ]) adsgeteorner ( point, prompt, result)
[•geWst[pt][ prompt]) adsgetdist ( point, prompt, result)
(getenv yariable-name )
(getfiled title filename ext flags ) adsgetfiled (title, default, ext, flags, result)
adsgetfuncode ()
adsgetinput (s/r)
(getint [prompt]) adsgetint ( prompt, result)
(getkword [prompt ]) adsgetkword ( prompt, result)
(getorient [ pt ] [ prompt ]) adsgetorient ( point, prompt, result)
(getpoint [ pt ] [ prompt ]) adsgetpoint ( point, prompt, result)

209

Funkcje wAutoLISP-ie i w systemie ADS

Tabela A-1. Funkcje wAutoLISP-ie i w systemie ADS



! Funkcja w AutoLISP-te 'm.::.11 •! '^.^ 1' ss ^ lili^FainlaiJaliWiSy^inie^DS^^-ilK^^^^^^
(getreal [ prompt ]) adsgetreal ( prompt, result)
(getstring [er] [prompt}) adsgetstring ( croniy, prompt, result)
adsgetsym ( sname, value )
(getvar vamame ) adsgetvar ( sym, result)
(graphscr) adsgraphscr ()
(grciear) adsgrclear ()
(grdraw from to color [ highlight ]) adsgrdraw (from, to, color, hl)
(gi-read [ track [ alikeys [ curtype ]]) adsgrread (track, type, result)
(grtext [ box text [ highlight ] ]) adsgrtext ( box, text, hl)
(grvecs vlist [ trans ]) adsgrvecs ( vlist, mat)
(handent handle) adshandent ( handle, entres }
(if testexpr thenexpr [ elseexpr ])
adsJnit ( argc, argv )
(initget [ bits ] [ string ]) adsinitget( val, kwi)
(inters pt1 pt2 pt3 pt4 [ onseg ]) adsinters (from1, to1, from2, to2, teston, result)
adsinvoke ( args, result)
adsJsalnum (c)
adsJsalpha (c)
adsiscntrl (c)
adsJsdigit ( c)
adsJsgraph (c)
adsislower ( c)
adsJsprint (c)
adsJspunct ( c)
adsJsspace (c)
adsJsupper(c)
adsisxdigit ( c)
(itoa integer)
(lambda arguments expr...)
(lastfeO
(length list)
(list expr...)
(listp item )

210

Dodatek A

Tabela A-1. Funkcje wAutoLISP-ie i w systemie ADS



•li
(load filename [ onfailure ])
(log number)
(logand number number...}
(logior integer...)
(Ish num1 numbits)
(mapcar function list1 ... listn )
(max number number...)
(mem)
(member expr list}
adsJink ( cbc }
(menucmd string ) adsmenucmd (str)
(min number number...)
(minusp item)
(nentsel [ prompt ]) adsnentsel ( str, entres, ptres, xformres, refstkres )
(nentsełp [ prompt ] [ pt ]) adsnentselp ( str, entres, ptres, flag, xformres, refstkres )
adsnewrb (v )
(not item )
(nth n list)
(null item )
(numberp item )
(open filename modÄ™ )
(or expr.. .)
(osnap pt modÄ™ } adsosnap (pt, modÄ™, result)
(polar pt angle distance ) adspolar ( pt, angle, distance, ptres }
(prin1 [expr[file-desc]]) adsprintf (format, [, argument ]. ••)
(princ [ expr [ file-desc.] ])
(print wyrażenie [deskryptor-pliku])
(progn expr...)
(prompt msg) adsprompt ( str}
adsputsym ( sname, value )
(quit)
(quote expr}

211

Funkcje w AutoLISP-ie i w systemie ADS

Tabela A-1. Funkcje w AutoLISP-ie i w systemie ADS



(read string )
(read-char [ file-desc ])
(read-line [ file-desc ])
(redraw [ ename [ modÄ™ ] ]) adsredraw ( ent, modÄ™ )
(regapp application ) adsregapp ( appname)
adsregfunc (fhdl, fcode )
adsrelrb (rb)
(rem num1 num2...)
(repeat number expr...)
adsretint (ival)
adsretlist ( rbuf)
adsretname ( aname, type )
adsretnil ()
adsretpoint (pt)
adsretreal (ival)
adsretstr (s)
adsrett ()
adsretval ( rbuf)
adsretvoid ()
(reverse list)
(rtos number [ modÄ™ [ precision ]) adsrtos ( i/a/, unit, prec, str}
(set sym expr)
(setÄ… sym1 expr1 [ sym2 expr2 ] • • •)
(setvar yamame value ) adssetvar ( sym, val)
(sin angle )
' (sqrt number)
(ssadd [ ename [ ss ] ]) adsssadd ( ename, sname, result)
(ssdei [ename [ss]]) adsssdel ( ename, ss)
adsssfree ( sname )
(ssget [ modÄ™ ] [ pt1 [ pt2 ] ] [ pt-list ] | [ filter-list ]) adsssget ( str, pt1, pt2, entmask, ss)
i| (ssiength ss) adssslength ( sname, len )
l| (ssmemb ename ss ) adsssmemb ( ename, ss )

212

Dodatek A

Tabela A-1. Funkcje wAutoLISP-ie i w systemie ADS



1:11,1 :1;1^'111;11;<,;:1^1: ,"
aiaa^BSs^^l^^l^SB^^ S:::::y::::;;i^^:.;:::SS.;.:-5;::saa?;:gaagg^::'Sg^S?:
(ssname ss index ) adsssname ( ss, /, entres)
(strcase string [ which ])
(strcat string 1 [ string2 ]...)
(strien [ string ]...}
(subst newitem olditem list)
(substr string start [ length ]}
(tablet code [ row1 row2 row3 direction ]) adstablet ( list, result}
(tblnext table-name [ rewind ]} adstblnext (tbtname, rewind)
(tbisearch table-name symbol [ setnext ]) adstblsearch (tbiname, sym, setnext)
(terpri)
(textbox elist} adstextbox ( ent, p1, p2)
(textpage) adstextpage ()
(textscr) adstextscr ()
adstolower (c)
adstoupper (c)
(tracÄ™ funation ...)
(trans pt from to [ disp ]) adstrans ( pt, from, to, disp, result)
(type item }
(untrace function...)
adsundef ( sname, funcno)
adsusrbrk ()
(ver)
(vports) adsvports ( result)
(wcmateh string pattem ) adswcmatch ( string, paltem )
(while testexpr expr...)
(write-char num [ file-desc ])
(write-line string [ file-desc ])
(xdroom ename ) adsxdroom ( ent, result)
(xdsize list} adsxdsize ( xd, result)
adsxformss ( ssname, genmaf)
(xload application [ onfailure ]) adsxload ( app }
(xunload application [ onfailure ]) adsxunload ( app )
(zerop item )

213