Tài liệu tự học Auto lisp

Share99.net – All Free Dowwnload

LẬP TRÌNH ỨNG DỤNG

Ng«n ng÷ AUTOLISP
I> TỔNG QUAN VỀ NGÔN NGŨ AutoLISP
1. Giíi thiÖu chung:
LISP lµ ch÷ viÕt t¾t cña côm tõ tiÕng Anh: LISt Processor (Xö lý danh s¸ch)
AutoLisp lµ mét øng dông cña ng«n ng÷ Lisp ®-îc sö dông trong m«i tr-êng AutoCad.
LISP lµ ng«n ng÷ lËp tr×nh thuéc nhãm trÝ tuÖ nh©n t¹o do MacCarthy so¹n th¶o cuèi nh÷ng n¨m
50. Víi AutoLisp ng-êi dïng cã thÓ më réng vµ tuú biÕn çc chøc n¨ng cña AutoCad.
HiÖn nay AutoLisp ®· ®-îc h·ng Autodesk ph¸t triÓn theo çc sè hiÖu ph¸t hµnh cña
AutoCad. VÒ c¨n b¶n nh÷ng phiªn b¶n sau vÉn sö dông ®-îc nh÷ng ch-¬ng tr×nh lËp b»ng phiªn
b¶n tr-íc, ng-îc l¹i th× kh«ng ®-îc do cã mét sè biÕn hÖ thèng vµ lÖnh cña AutoCad gi÷a çc
phiªn b¶n kh«ng gièng nhau nªn viÖc dïng chung cã gÆp mét sè trë ng¹i. Do vËy yªu cÇu ng-êi
lËp tr×nh AutoLisp ph¶i n¾m thËt v÷ng AutoCad ®Ó sö dông AutoLisp mét çch hiÖu qu¶.
AutoLisp lµ mét ng«n ng÷ lËp tr×nh th«ng dÞch, nghÜa lµ dÞch ®Õn dßng nµo thùc hiÖn
dßng ®ã vµ cho kÕt qu¶, kh«ng cã tr×nh biªn dÞch riªng. Mét tËp hîp çc c©u lÖnh cña AutoLisp
®-îc gäi lµ hµm Lisp vµ tÖp (file) chøa çc hµm gäi lµ tÖp (file) Lisp cã phÇn më réng lµ *.Lsp.
Víi AutoLisp, ng-êi dïng cã thÓ dÔ dµng truy cËp ®Õn d÷ liÖu cña AutoCad, cã thÓ thay
®æi, t¹o míi, xo¸ bá çc ®èi t-îng, thªm çc th«ng tin vµo b¶n vÏ thùc hiÖn çc c«ng viÖc Tù
®éng ho¸ trong thiÕt kÕ...
2. Çc qui -íc cña AutoLisp:
a) Çch viÕt ch-¬ng tr×nh cña AutoLisp
Cã 2 çch viÕt ch-¬ng tr×nh AutoLisp:
-

ViÕt trùc tiÕp:

T¹i dßng nh¾c Command: cña AutoCad ta cã thÓ gâ çc c©u lÖnh theo có ph¸p cña AutoLisp.
LÖnh nµy sÏ ®-îc thùc thi ngay vµ cho kÕt qu¶ trªn mµm h×nh t¹i vïng dßng lÖnh, nh-ng lÖnh nµy
kh«ng l-u tr÷ ®-îc.
-

ViÕt thµnh ch-¬ng tr×nh:

Dïng ch-¬ng tr×nh so¹n th¶o (d¹ng m· ASCII) bÊt kú hoÆc Visual LISP, viÕt thµnh ch-¬ng tr×nh
nh- mét t¹p tin nguån cã phÇn më réng *.lsp
Tªn tÖp tu©n thñ theo qui -íc cña hÖ ®iÒu hµnh, th-êng kh«ng qu¸ 8 ký tù, gi÷a çc ký tù kh«ng
cã kho¶ng trèng.

21



b) T¶i vµ ch¹y ch-¬ng tr×nh øng dông AutoLisp
Tõ VLISP: Tools Load Text in Editor
Tõ AutoCad: Tool Load Application hoÆc trªn dßng lÖnh Command: ap
§Ó AutoCad tù ®éng t¶i ngay tõ khi khëi ®éng hoÆc më b¶n vÏ cã 2 çch:
-

§Æt tªn tÖp lµ ACAD.LSP vµ ®Æt trong th- môc Support cña AutoCad

-

Khi t¶i file lÇn ®Çu sö dông Startup Suite Contents vµ chän ®-êng dÉn cho file

c) Çc hµm trong AutoLisp
AutoCad nhËn vµ xö lý çc lÖnh trong hµm cña AutoLisp theo có ph¸p sau:
-

Tªn hµm do ng-êi dïng ®Þnh nghÜa gåm çc ch÷ çi vµ con sè trõ çc ký tù ®Æc biÖt: nh-: ? <
> , . * & ^ % $ # @ ! ~ | { } [ ] ..., tªn hµm kh«ng nªn qu¸ dµi vµ ph¶i dÔ qu¶n lý.

-

Hµm vµ c©u lÖnh cña AutoLisp ph¶i ®-îc ®Æt trong cÆp dÊu ngoÆc ®¬n, b¾t ®Çu b»ng “ (“ vµ
kÕt thóc b»ng “ )”

-

Hµm ®-îc viÕt tõ tr¸i qua ph¶i theo kiÓu Ba-lan, nghÜa lµ phÇn tö ®Çu tiªn sau dÊu më ngoÆc
ph¶i lµ tªn hµm (cã s½n hay do ng-êi lËp tr×nh tù ®Þnh nghÜa) hay to¸n tö. Çc phÇn tö ®øng
sau lµ çc tham sè cÇn thiÕt ®Ó thùc hiÖn hµm hay to¸n tö ®ã.

-

Ph©n çch gi÷a tªn hµm (hay to¸n tö) víi çc tham sè, gi÷a çc tham sè víi nhau ph¶i cã Ýt
nhÊt mét dÊu çch ( dÊu Space).

-

Mét c©u lÖnh cã thÓ viÕt trªn nhiÒu dßng. Çc dßng ch÷ cã thÓ viÕt thôt vµo tuú ý theo cÊu
tróc ®o¹n lÖnh cho dÔ hiÓu.

-

Kh«ng ph©n biÖt ch÷ hoa vµ ch÷ th-êng, th-êng th× tªn hµm nªn viÕt b»ng ch÷ th-êng, tªn
çc lÖnh vµ çc biÕn hÖ thèng cña AutoCad viÕt b»ng ch÷ hoa cho dÔ ®äc vµ ch-¬ng tr×nh
s¸ng sña h¬n.

-

BÊt kú mét hµm nµo còng tr¶ vÒ mét gi¸ trÞ nµo ®ã, nÕu kh«ng cã gi¸ trÞ tr¶ vÒ trÞ sè mÆc ®Þnh
lµ nil.

-

Lêi chó thÝch ghi trong ch-¬ng tr×nh AutoLisp ®-îc ghi sau dÊu “ ; ” vµ kh«ng ®-îc thùc thi
trong ch-¬ng tr×nh.

d) Çc biÕn trong AutoLisp
-

Çc biÕn cña ch-¬ng tr×nh AutoLisp ho¹t ®éng t-¬ng tù nh- çc biÕn cña ch-¬ng tr×nh kh¸c.

-

Tªn biÕn gåm çc ch÷ çi vµ çc con sè (trõ çc ký tù ®Æc biÖt: nh-: ? < > , . * & ^ % $ # @ !
~ | { } [ ] ...), nÕu ch÷ sè ®øng ®Çu th× tiÕp sau ph¶i lµ ch÷ çi ®Ó tr¸nh nhÇm víi çc h»ng
sè. Tªn biÕn kh«ng nªn qu¸ dµi

-

Tªn biÕn kh«ng ph©n biÖt ch÷ hoa vµ ch÷ th-êng.

22


-


Cã 2 lo¹i biÕn:
+ BiÕn chung: lµ biÕn tån t¹i trong suèt qu¸ tr×nh lµm viÖc cña AutoCad. §Ó kiÓm tra gi¸
trÞ cu¶ biÕn trong dßm Command cña AutoCad gâ “ !ten_biÕn” .
+ BiÕn riªng: Lµ biÕn chØ tån t¹i bªn trong mét hµm. KÕt thóc hµm biÕn nµy nhËn gi¸ trÞ
“ Nil”

Chó ý: C¸c biÕn tham gia vµo c¸c biÓu thøc ph¶i ®-îc g¸n gi¸ trÞ hoÆc ®Þnh nghÜa nÕu kh«ng øng
dông sÏ bÞ lçi.

23



II> CÁC KIỂU DỮ LIỆU CƠ BẢN TRONG AutoLISP
1. KiÓu danh s¸ch: (list)
§©y lµ kiÓu ®Æc tr-ng cña ng«n ng÷ Lisp bao gåm nhãm çc gi¸ trÞ riªng lÎ gåm çc biÕn, çc
h»ng sè, çc hµm... çch nhau b»ng kho¶ng trèng n»m trong dÊu ngoÆc ®¬n.
Danh s¸ch ®-îc chia lµm 3 lo¹i chÝnh:
-

BiÓu thøc (expression list): Chøa tªn hµm vµ çc tham sè cña hµm

-

To¹ ®é ®iÓm (Point Coordinate List): Cã hµm Quote hoÆc dÊu „ ë phÝa tr-íc. §©y lµ tr-êng
hîp ®Æc biÖt cña danh s¸ch kho d÷ liÖu, trong ®ã th«ng tin l-u tr÷ lµ to¹ ®é ®iÓm.

-

Kho d÷ liÖu (Data Storage List): Cã hµm Quote hoÆc dÊu „ ë phÝa tr-íc cã thÓ chøa bÊt kú
kiÓu d÷ liÖu nµo.

Ký hiÖu hoµn tr¶ cña AutoLisp: “ LIST”
VÝ dô: to¹ ®é cña 1 ®iÓm ®-îc khai b¸o d-íi d¹ng danh s¸ch: ‘(1.0 1.0 1.0) hoÆc
(list 1.0 1.0 1.0)
2. KiÓu sè:
2.1.

KiÓu sè nguyªn

-

KiÓu sè nguyªn lµ sè nguyªn th«ng th-êng trong to¸n häc. Trong AutoLisp giíi h¹n cña sè
nguyªn tõ: -32768 ®Õn +32767

-

Çc phÐp tÝnh trªn sè nguyªn cho kÕt qu¶ lµ mét sè nguyªn, nÕu lµ phÐp chia cho kÕt qu¶ lµ
mét sè nguyªn, phÇn d- nÕu cã sÏ bÞ c¾t bá.
VÝ dô: (/ 5 2) cho kÕt qu¶ lµ 2

-

Ký hiÖu hoµn tr¶ cña AutoLisp: “ INT”

2.2.

KiÓu sè thùc

-

KiÓu sè thùc trong AutoLisp cã ®é chÝnh x¸c ®Õn 14 ch÷ sè sau dÊu phÈy thËp ph©n

-

Çc sè thùc cã thÓ biÓu diÔn theo d¹ng chó thÝch khoa häc, qua ®ã mét sè e hoÆc E ®-îc theo
sau bëi sè mò cña con sè ®ã.

-

Ký hiÖu hoµn tr¶ cña AutoLisp: “ REAL”

3. KiÓu chuçi:
-

Chuçi kÝ tù lµ tËp hîp çc ký tù bÊt kú ®Æt trong dÊu ngoÆc kÐp “ ” . Trong AutoLisp chuçi dµi
kh«ng qu¸ 132 ký tù

-

Ký hiÖu hoµn tr¶ cña AutoLisp: “ STR”

24



4. KiÓu ®èi t-îng vµ nhãm ®èi t-îng
4.1.

KiÓu ®èi t-îng

-

Mçi ®èi t-îng ®-îc vÏ trong AutoCad ®Òu ®-îc qu¶n lý theo tªn (ENAME – Entity Name).
Mçi tªn ®èi t-îng sÏ l-u tr÷ toµn bé th«ng tin vÒ ®èi t-îng ®ã.

-

Ký hiÖu hoµn tr¶ cña AutoLisp: “ ENAME”

4.2.

Nhãm ®èi t-îng

-

Nhãm ®èi t-îng (AutoCad selection set) lµ kiÓu ®Æc tr-ng cho tËp hîp chøa çc ENAME cña
çc ®èi t-îng ®-îc lùa chän.

-

Ta cã thÓ lÊy ENAME cña mét ®èi t-îng trong tËp hîp çc ®èi t-îng ®-îc chän

-

Ký hiÖu hoµn tr¶ cña AutoLisp: “ PICKSET”

5. Sè Pi vµ Nil
-

Sè Pi trong to¸n häc trong AutoLisp ®-îc ký hiÖu lµ pi vµ nhËn gi¸ trÞ kh«ng ®æi lµ
3.1415926. Pi tham gia vµo çc biÓu thøc to¸n häc vµ lµ sè ®o gãc b»ng Radian

-

Nil lµ ký hiÖu ®Ó chØ ra r»ng biÕn hay hµm kh«ng cã gi¸ trÞ hoÆc biÓu thøc l«gÝc nhËn gi¸ trÞ
kh«ng ®óng.

25



III> CÁC HÀM CHUẨN CỦA AutoLISP
1. PhÐp g¸n
a. Hµm (setq...):
Chøc n¨ng: G¸n gi¸ trÞ cho 1 biÕn
Có ph¸p:
(setq b1 gt1 [b2 gt2] ...)
Gi¶i thÝch:
G¸n gt1 cho biÕn b1, gt2 cho biÕn b2 ... Mçi biÕn nhËn mét gi¸ trÞ viÕt sau nã
Gi¸ trÞ cã thÓ lµ d÷ liÖu, mét biÕn kh¸c hoÆc mét biÓu thøc ®· x¸c ®Þnh tr-íc ®ã
§Ó xo¸ mét biÕn ra khái bé nhí: (setq biÕn Nil)
§Ó AutoCad thùc hiÖn lÖnh cña AutoLisp mµ kh«ng hiÓn thÞ c¸c dßng lÖnh hiÖn trªn mµn
h×nh ta g¸n gi¸ trÞ 0 cho biÕn hÖ thèng CMDECHO b»ng lÖnh: (setq cmdecho 0)
b. Hµm (setvar...):
Chøc n¨ng: G¸n gi¸ trÞ cho 1 biÕn hÖ thèng.
Có ph¸p:
(setvar varname value)
Gi¶i thÝch:
varname: Tªn biÕn hÖ thèng
value: Gi¸ trÞ cÇn g¸n
VD: (setvar “FILLETRAD” 10.00) ---> 10.00
c. Hµm (set...):
Chøc n¨ng: G¸n tªn biÕn cho 1 biÕn
Có ph¸p:

(set ‘biÕn1 ‘biÕn2)

Gi¶i thÝch:
G¸n tªn biÕn2 cho biÕn1
Mçi khi lÊy gi¸ trÞ cña biÕn1 th× thùc chÊt lµ lÊy gi¸ trÞ cña biÕn2
VD:

(setq a 10.00)
(set ‘b ‘a)
---> b = 10.00

26



2. Çc hµm chuyÓn lÖnh tõ AutoLisp sang AutoCad
a. Hµm (Load ...)
Chøc n¨ng: Gäi mét ch-¬ng tr×nh øng dông vµo AutoCad
Có ph¸p:
(Load “Tªn_tÖp”)
Gi¶i thÝch:
Tªn_tÖp: lµ tªn tËp tin cã phÇn më réng *.LSP, .ARX, .ADS hoÆc .EXE
NÕu ch-¬ng tr×nh ®Æt ngoµi th- môc lµm viÖc cña AutoCad th× ph¶i chØ râ ®-êng dÉn cña
tÖp tin ®ã
b. Hµm (Command ...)
Chøc n¨ng: Thùc hiÖn lÖnh cña AutoCad
Có ph¸p:
(Command “Tªn_lÖnh”
chän]...)

[çc

®¸p

øng

lêi

nh¾c]

[çc

tuú

Gi¶i thÝch:
Tªn_lÖnh: lµ tªn çc lÖnh cña AutoCad
[çc ®¸p øng lêi nh¾c] vµ [çc tuú chän]: Tu©n theo çc lÖnh cña
AutoCad
NÕu Tªn_lÖnh = _Tªn_lÖnh hoÆc _.Tªn_lÖnh Autocad sÏ truy cËp çc gÝa
trÞ trong b¶ng sè liÖu cña lÖnh thùc thi trong AutoCad
VD:

(Command “CIRCLE” ‘(100.00 100.00) 10.00)
---> VÏ ®-êng trßn t©m cã to¹ ®é (100.00, 100.00) cã b¸n
kÝnh 10.00

3. Çc hµm nhËp liÖu tõ ng-êi dïng
Çc hµm sau sÏ t¹m dõng ch-¬ng tr×nh ®Ó yªu cÇu ng-êi dïng nhËp d÷ liÖu vµo tõ bµn phÝm
hoÆc chuét
a. Hµm (getpoint ...)
Chøc n¨ng: Chê ng-êi dïng nhËp to¹ ®é mét diÓm
Có ph¸p:
(getpoint [point] [prompt])

27



Gi¶i thÝch:
point: NÕu cã, cho b»ng 1 danh s¸ch ®iÓm , lµ ®iÓm thø nhÊt, cßn ®iÓm ng-êi dïng
nhËp vµo sÏ lµ ®iÓm thø 2. §iÓm thø 2 cã thÓ cho b»ng to¹ ®é t-¬ng ®èi.
[prompt]: NÕu cã, lµ dßng nh¾c hoÆc gi¶i thÝch vÒ d÷ liÖu sÏ nhËp. Dßng nh¾c ph¶i
®-îc ®Æt trong ngoÆc kÐp “ ”
VD:
(setq pt1 (getpoint “Cho tam duong tron:”))
KÕt qu¶ cho trªn dßng nh¾c:
Cho tam duong tron:
b. Hµm (getdist ...)
Chøc n¨ng: Chê ng-êi dïng nhËp vµo:
-

Mét sè thùc lµ mét kho¶ng çch

-

To¹ ®é cña 1 hoÆc 2 ®iÓm

NÕu nhËp to¹ ®é ®iÓm, AutoLisp hoµn tr¶ kho¶ng çch gi÷a hai ®iÓm
Có ph¸p:
(getdist [point] [prompt])
Gi¶i thÝch:
point: gièng nh- getpoint
[prompt]: lµ dßng nh¾c hoÆc gi¶i thÝch vÒ d÷ liÖu sÏ nhËp
VD:
(setq r1 (getdist “Cho ban kinh duong tron:”))
Cho tam duong tron: - NhËp vµo mét sè thùc d-¬ng hoÆc
-

NhËp to¹ ®é mét ®iÓm, dßng nh¾c xuÊt hiÖn:

Second point: TiÕp tôc nhËp vµo ®iÓm thø 2 ®Ó lÊy
kho¶ng çch gi÷ 2 ®iÓm
c. Hµm (getangle ...)
Chøc n¨ng: Chê ng-êi dïng nhËp vµo:
-

Mét sè thùc lµ sè ®o b»ng ®é cña gãc hoÆc cung trßn

-

To¹ ®é cña 1 hoÆc 2 ®iÓm

NÕu nhËp to¹ ®é ®iÓm, AutoLisp hoµn tr¶ gãc nghiªng gi÷a ®o¹n th¼ng nèi hai ®iÓm so víi
ph-¬ng n»m ngang

28



KÕt qu¶ tr¶ vÒ: REAL ( sè ®o lµ Radian)
Có ph¸p:
(getangle [point] [prompt])
Gi¶i thÝch:
point: gièng nh- getpoint
VD:
(setq a1 (getangle “Cho goc nghieng cua duong thang:”))
KÕt qu¶ cho trªn dßng nh¾c chê ng-êi dïng nhËp sè liÖu:
Cho goc nghieng cua duong thang:
d. Hµm (getint ...)
Chøc n¨ng: Chê ng-êi dïng nhËp vµo mét sè nguyªn
KÕt qu¶: INT
Có ph¸p:
(getint [prompt])
Gi¶i thÝch:
e. Hµm (getreal ...)
Chøc n¨ng: Chê ng-êi dïng nhËp vµo mét sè thùc
KÕt qu¶: REAL
Có ph¸p:
(getreal [prompt])
Gi¶i thÝch:
f. Hµm (iniget...)
Chøc n¨ng: KiÓm so¸t çc kiÓu gi¸ trÞ nhËp vµo tõ ng-êi dïng cho çc hµm nhËp sè liÖu hä
getxxx. Hµm nµy, nÕu dïng ph¶i ®Æt tr-íc çc hµm nhËp sè liÖu hä getxxx cÇn khèng chÕ
Có ph¸p:
(iniget m·_sè [“Chuçi_®Þnh_d¹ng”])

29



Gi¶i thÝch:
m·_sè: Gi¸ trÞ m· sè kiÓm so¸t çch nhËp sè liÖu vµo. Gi¸ trÞ m·_sè vµ çc hµm chÞu
t¸c ®éng cho trong b¶ng sau:
M· sè

Chøc n¨ng kiÓm so¸t

Hµm chÞu t¸c ®éng

0

B×nh th-êng tr¶ vÒ Nil nÕu gâ ENTER khi Toµn bé çc hµm getxxx trõ
ch-a nhËp sè liÖu
hµm getstr

1

getint,
getreal,
Kh«ng cho phÐp ng-êi dïng gâ ENTER
getangle,
khi ch-a nhËp sè liÖu
getkword...

getdist,
getpoint,

2

Kh«ng cho phÐp nhËp sè 0

getint,
getreal,
getangle, getpoint,

getdist,

4

Kh«ng cho phÐp nhËp sè ©m

getint, getreal, getdist,

8

Cho phÐp nhËp to¹ ®é ®iÓm n»m ngoµi
getpoint, getcorner
LIMITS cña b¶n vÏ

NÕu m· sè cã gi¸ trÞ tæng cña mètè gi¸ trÞ cho trong b¶ng th× chøc n¨ng kiÓm so¸t sÏ lµ
tæng çc chøc n¨ng.
Chuçi_dÞnh_d¹ng: Lµ mét chuçi ký tù dïng lµm tõ kho¸ hç trî cho çc hµm getxxx
cã çc tuú chän khi nhËp sè liÖu
+ Mçi tõ kho¸ çch nhau mét dÊu trèng
+ Çc ch÷ çi viÕt hoa viÕt liÒn nhau trong tõ kho¸ sÏ lµ dÊu hiÖu cña tõ kho¸. Khi nhËp
sè liÖu, ng-êi dïng gâ theo çc ch÷ çi viÕt hoa ®Ó lùa chän
+ NÕu tÊt c¶ çc ch÷ çi trong tõ kho¸ ®Òu viÕt hoa th× çc tõ kho¸ çch nhau b»ng dÊu
phÈy (,)
VD1:
(iniget 1)
(setq a1 (getdist “Cho ban kinh:”))
Cho ban kinh:
NÕu ng-êi dïng gâ ENTER mµ kh«ng nhËp g× c¶ sÏ cã dßng th«ng b¸o:
Requires numeric distance or two poionts
Cho ban kinh:
§îi ng-êi dïng nhËp liÖu ch-¬ng tr×nh míi tiÕp tôc

30



VD2:
(iniget 1 “DAi ROng”)
(setq d1 (getdist “DAi/ROng/<Cho duong cheo>:”))
DAi/ROng/<Cho duong cheo>:
Ng-êi dïng cã thÓ nhËp sè thùc hoÆc çc ch÷ çi DA hoÆc RO
g. Hµm (getkword ...)
Chøc n¨ng: Chê ng-êi dïng nhËp vµo mét ký tù hoÆc mét chuçi ký tù liÒn nhau kh«ng cã dÊu
trèng
KÕt qu¶ tr¶ vÒ: STR
Có ph¸p:
(getkword [prompt])
Gi¶i thÝch:
Hµm nµy lu«n ®Æt sau hµm initget, nÕu chuçi nhËp vµo kh«ng trïng víi tõ kho¸ trong
hµm initget tr-íc ®ã, getkword yªu cÇu nhËp l¹i
Hµm nµy th-êng ¸p dông khi ng-êi dïng nhËp vµo çc lùa chän
[prompt]: lµ dßng nh¾c nªn chØ râ çc tõ kho¸ ®Ó ng-êi dïng dÔ nhËp d÷ liÖu.
VD:
(initget “VUong DAgiac:”)
(getkword “Nhap cac lua chon: VUong/DAgiac:”)
Nhap cac lua chon: VUong/DAgiac:
Ta chØ cÇn nhËp çc ch÷ çi:
VU kÕt qu¶ tr¶ vÒ: “ vuong”
DA kÕt qu¶ tr¶ vÒ: “ dagiac”
h. Hµm (getstring ...)
Chøc n¨ng: Chê ng-êi dïng nhËp vµo mét chuçi ký tù . NÕu chuçi ký tù dµi h¬n 132 ký tù,
hµm chØ lÊy 132 ký tù
KÕt qu¶: STR
Có ph¸p:
(getstring [string] [prompt])

31



Gi¶i thÝch:
[string]: NÕu kh«ng cã hoÆc nhËn gi¸ trÞ Nil, kh«ng ®-îc nhËp dÊu trèng, nÕu gâ
dÊu trèng t-¬ng ®-¬ng gâ ENTER kÕt thóc nhËp.
NÕu cã gi¸ trÞ kh¸c Nil cho phÐp nhËp c¶ dÊu trèng. KÕt thóc nhËp ph¶i gâ ENTER
i. Hµm (getvar ...)
Chøc n¨ng: LÊy gi¸ trÞ hiÖn hµnh cña biÕn hÖ thèng trong AutoCad
Có ph¸p:
(getvar varname)
Gi¶i thÝch:
varname: Tªn biÕn hÖ thèng
VD:
(getvar “DIMLFAC” 10)
---> cho gi¸ trÞ biÕn DIMLFAC = 10
4. Çc hµm to¸n häc
4.1.

Çc phÐp tÝnh

Chøc n¨ng: Thùc hiÖn çc phÐp tÝnh sè häc th«ng th-êng
Có ph¸p:
(phÐp_to¸n tham_sè1 [tham_sè2]...)
Gi¶i thÝch:
phÐp_to¸n: lµ çc phÐp tÝnh to¸n sè häc th«ng th-êng
PhÐp céng:

+

PhÐp trõ:

-

PhÐp nh©n:

*

PhÐp chia:

/

PhÐp t¨ng thªm 1:

1+

PhÐp gi¶m ®i 1:

1-

tham_sè1: Trong phÐp trõ vµ chia th× tham_sè1 lµ sè bÞ trõ hoÆc bÞ chia
tham_sè2...: Trong phÐp trõ vµ chia th× tham_sè2... lµ sè trõ hoÆc sè chia
Trong phÐp t¨ng thªm 1 hoÆc gi¶m ®i 1 th× chØ cã 1 tham sè

32



Chó ý:
Tham sè cã thÓ lµ h»ng hoÆc biÓu thøc
KÕt qu¶ tÝnh phô thuéc chñ yÕu vµo kiÓu cña tham sè tham gia phÐp tÝnh.
4.2.

Çc phÐp so s¸nh

Chøc n¨ng: Thùc hiÖn çc phÐp so s¸nh trong çc biÓu thøc logÝc
Có ph¸p:
(phÐp_so_s¸nh tham_sè1 [tham_sè2]...)
Gi¶i thÝch:
phÐp_so_s¸nh: Bao gåm:
B»ng:

=

Kh«ng b»ng (kh¸c):

/=

Lín h¬n:

>

Lín h¬n hoÆc b»ng:

>=

Nhá h¬n:

<

Nhá h¬n hoÆc b»ng:

<=

Vµ:

and

HoÆc:

or

Phñ ®Þnh:

not

tham_sè1, tham_sè2: lµ çc ®èi t-îng ®Ó so s¸nh
Chó ý:
Tham sè cã thÓ lµ h»ng sè, biÕn sè hoÆc biÓu thøc
KÕt qu¶ tÝnh phô thuéc chñ yÕu vµo kiÓu cña tham sè tham gia phÐp tÝnh.
Riªng ®èi víi thùc, m¸y tÝnh coi sè 0 chØ lµ xÊp xØ 0 nªn khi dïng dÊu = so s¸nh víi sè 0
cã thÓ tr¶ gi¸ trÞ Nil. Trong tr-êng hîp nµy nªn dïng (equal...) ®Ó so s¸nh

33


4.3.


Çc hµm so s¸nh

a. Hµm (eq ...)
Chøc n¨ng: Thùc hiÖn so s¸nh xem hai tham sè cã thùc sù b»ng nhau hay kh«ng
KÕt qu¶: cho T (®óng) hoÆc Nil (sai)
Có ph¸p:
(eq tham_sè1 tham_sè2)
Gi¶i thÝch:
KÕt qu¶ ®óng khi tham_sè1 gièng hÖt tham_sè2 (cïng lµ kiÓu tham sè, cïng l¸ sè...)
b. Hµm (equal ...)
Chøc n¨ng: Thùc hiÖn so s¸nh xem hai tham sè cã thùc sù b»ng nhau hay kh«ng theo tiªu
chuÈn lµ ®é chÝnh x¸c kÌm theo
KÕt qu¶: cho T (®óng) hoÆc Nil (sai)
Có ph¸p:
(equal tham_sè1 tham_sè2 [®é_chÝnh_x¸c])
Gi¶i thÝch:
KÕt qu¶ ®óng khi tham_sè1 b»ng tham_sè2 víi sai sè lµ ®é_chÝnh_x¸c (nÕu cã)
c. Hµm (max ...)
Chøc n¨ng: T×m gi¸ trÞ lín nhÊt trong mét d·y çc tham sè
KÕt qu¶: tr¶ vÒ gi¸ trÞ lín nhÊt
Có ph¸p:
(max tham_sè1 tham_sè2 [tham_sè3]...)
d. Hµm (min ...)
Chøc n¨ng: T×m gi¸ trÞ nhá nhÊt trong mét d·y çc tham sè
KÕt qu¶: tr¶ vÒ gi¸ trÞ nhá nhÊt
Có ph¸p:
(min tham_sè1 tham_sè2 [tham_sè3]...)

34



e. Hµm (gcd ...)
Chøc n¨ng: T×m -íc sè chung lín nhÊt trong mét d·y çc tham sè kiÓu sè nguyªn
Có ph¸p:
(gcd tham_sè1 tham_sè2 [tham_sè3]...)
Chó ý:
tham_sè1 tham_sè2 [tham_sè3]...: Ph¶i lµ kiÓu sè nguyªn
f. Hµm (rem ...)
Chøc n¨ng: T×m phÇn d- trong phÐp chia 2 tham sè.
KÕt qu¶: tr¶ vÒ sè dCó ph¸p: (rem tham_sè1 tham_sè2)
Gi¶i thÝch:
tham_sè1: Sè bÞ chia
tham_sè2: Sè chia
4.4.

Çc hµm ®¹i sè

Có ph¸p:
(sqrt number): LÊy c¨n bËc 2 cña sè thùc d-¬ng number
(expt c¬_sè sè_mò): LÊy luü thõa bËc sè_mò cña sè thùc c¬_sè
(exp sè_mò): LÊy luü thõa bËc sè_mò cña c¬ sè e
(abs number): LÊy gi¸ trÞ tuyÖt ®èi cña mét sè number
(log number): LÊy logarit c¬ sè e cña mét sè number
4.5.

Çc hµm l-îng gi¸c

Có ph¸p:
(sin angle)
(cos angle)
(atan mumber1 [number2])
Chó ý:
angle: Lµ sè ®o gãc lÊy theo radian
mumber1 [number2]: Lµ sè thùc
KÕt qu¶ cña hµm atan lµ gãc cã sè ®o lµ radian

35


4.6.


Çc hµm kiÓm so¸t d¹ng sè

e. Hµm (fix ...)
Chøc n¨ng: Tr¶ vÒ phÇn nguyªn cña mét sè. PhÇn sè nguyªn nµy kh«ng ®-îc lµm trßn
Có ph¸p:
(fix number)
Chó ý:
Hµm nµy ®-îc sö dông nh- mét bé läc d÷ liÖu. D÷ liÖu lµ sè nguyªn hay sè thùc sÏ ®-îc
läc thµnh sè nguyªn tr-íc khi ®-îc g¸n cho tham sè
Ngoµi ra ta cã thÓ sö dông hµm nµy ®Ó lÊy phÇn thËp ph©n (sö dông kÕt hîp víi phÐp trõ)
b. Hµm (fload ...)
Chøc n¨ng: ChuyÓn mét sè cã kiÓu nguyªn hoÆc thùc sang kiÓu sè thùc
Có ph¸p:
(fload number)
5. Çc hµm t¹o cÊu tróc ®iÒu khiÓn
a. Hµm (if ...)
Chøc n¨ng: Ra ®iÒu liÖn thùc hiÖn mét sè lÖnh
Có ph¸p:
(if testexpr thenexpr [elseexpr])
Gi¶i thÝch:
testexpr: Lµ biÓu thøc kiÓm tra ®iÒu kiÖn
thenexpr: BiÓu thøc lÖnh ®-îc thùc hiÖn nÕu biÓu thøc testexpr nhËn gi¸ trÞ T
elseexpr: BiÓu thøc lÖnh ®-îc thùc hiÖn nÕu biÓu thøc testexpr nhËn gi¸ Nil. NÕu
kh«ng cã biÓu thøc nµy, hµm kh«ng thùc hiÖn vµ tr¶ vÒ gi¸ trÞ nil
b. Hµm (while ...)
Chøc n¨ng: Thùc hiÖn çc biÓu thøc, lÖnh trong hµm mét sè lÇn lÆp cã ®iÒu kiÖn
Có ph¸p:
(while testexpr expr)

36



Gi¶i thÝch:
testexpr: Lµ biÓu thøc kiÓm tra, khi nµo testexpr nhËn gi¸ trÞ nil, vßng lÆp ch-¬ng
tr×nh ngõng thùc hiÖn
expr: BiÓu thøc, lÖnh cÇn thùc hiÖn
VÝ dô:
(defun C:vdt()
(setq n 1)
(setq pt1 (list 0 0))
(while

(<= n 10)

(setq pt2 (list n (+ n 0.5)))
(setq n (1+ n))
(command "LINE" pt1 pt2 "")
)
(command "ZOOM" "e")
)
c. Hµm (repeat ...)
Chøc n¨ng: Thùc hiÖn c¸c biÓu thøc, lÖnh trong hµm mét sè lÇn lÆp nhÊt ®Þnh
Có ph¸p:
(repeat int [expr]...)
Gi¶i thÝch:
int: Lµ sè nguyªn chØ lÇn lÆp
VÝ dô:
(defun C:vdt()
(setq n 1)
(setq pt1 (list 0 0))
(repeat 10
(setq pt2 (list n (+ n 0.5)))
(setq n (1+ n))
(command "LINE" pt1 pt2 "")
)
(command "ZOOM" "e")

37



)
d. Hµm (progn ...)
Chøc n¨ng: TËp hîp çc biÓu thøc thµnh mét biÓu thøc vµ b¾t çc biÓu thøc nµy thùc hiÖn
theo mét ®iÒu khiÓn chung
Có ph¸p:
(progn [expr]...)
Gi¶i thÝch:
6. Çc hµm xö lý danh s¸ch
a. Hµm (quote ...) hoÆc ‘(...)
Chøc n¨ng: Tr¶ ra 1 biÓu thøc, kiÓu lµ kiÓu cña biÓu thøc
Có ph¸p:
(quote expr) hoÆc ‘(expr)
Gi¶i thÝch:
expr: BiÓu thøc. NÕu biÓu thøc lµ sè cã thÓ t¹o danh s¸ch ®iÓm, nÕu lµ biÕn mÆc dï ®·
g¸n gi¸ trÞ b»ng sè còng kh«ng t¹o ®-îc danh s¸ch ®iÓm
b. Hµm (list ...)
Chøc n¨ng: T¹o ra mét danh s¸ch
Có ph¸p:
(list expr)
Gi¶i thÝch:
expr: BiÓu thøc, Ýt nhÊt cã mét tham sè. BiÓu thøc lµ biÐn hay lµ sè còng t¹o ®-îc danh
s¸ch ®iÓm
c. Hµm (car ...)
Chøc n¨ng: Hoµn tr¶ phÇn ®Çu tiªn cña danh s¸ch. KÕt qu¶ lµ mét gi¸ trÞ, kiÓu lµ kiÓu cña
thµnh phÇn ®ã.
Có ph¸p:
(car list)
Gi¶i thÝch:
list: Lµ mét danh s¸ch

38



d. Hµm (cadr ...)
Chøc n¨ng: Hoµn tr¶ phÇn phÇn tö thø 2 cña danh s¸ch. KÕt qu¶ lµ mét gi¸ trÞ, kiÓu lµ kiÓu
cña thµnh phÇn ®ã.
Có ph¸p:
(cadr list)
e. Hµm (caddr ...)
Chøc n¨ng: Hoµn tr¶ phÇn phÇn tö thø 3 cña danh s¸ch. KÕt qu¶ lµ mét gi¸ trÞ, kiÓu lµ kiÓu
cña thµnh phÇn ®ã.
Có ph¸p:
(caddr list)
f. Hµm (last ...)
Chøc n¨ng: Hoµn tr¶ phÇn phÇn tö cuèi cïng cña danh s¸ch. KÕt qu¶ lµ mét gi¸ trÞ, kiÓu lµ
kiÓu cña thµnh phÇn ®ã.
Có ph¸p:
(last list)
g. Hµm (nth ...)
Chøc n¨ng: Hoµn tr¶ phÇn phÇn tö thø int cña danh s¸ch. KÕt qu¶ lµ mét gi¸ trÞ, kiÓu lµ kiÓu
cña thµnh phÇn ®ã. Thø tù b¾t ®Çu 0, 1, 2, ...
Có ph¸p:
(nth int list)
Gi¶i thÝch:
int: Lµ thø tù cña phÇn tö cÇn lÊy gi¸ trÞ
list: Lµ mét danh s¸ch
h. Hµm (cdr ...)
Chøc n¨ng: Hoµn tr¶ danh s¸ch kh«ng cã phÇn tö ®Çu
Có ph¸p:
(cdr list)
i. Hµm (reverse ...)
Chøc n¨ng: Hoµn tr¶ danh s¸ch ng-îc víi danh s¸ch ban ®Çu
Có ph¸p:
(reverse list)

39



k. Hµm (length ...)
Chøc n¨ng: Hoµn tr¶ sè thµnh phÇn trong danh s¸ch
Có ph¸p:
(length list)
m. Hµm (append ...)
Chøc n¨ng: Gép çc danh s¸ch thµnh phÇn thµnh mét danh s¸ch ®¬n
Có ph¸p:
(append list1 list2 ...)
n. Hµm (member ...)
Chøc n¨ng: T¹o mét danh s¸ch míi tõ mét danh s¸ch ®· cã theo mét thµnh viªn cho tr-íc,
danh s¸ch míi ®-îc t¹o ra cã çc thµnh viªn lµ çch thµnh viªn cña danh s¸ch gèc b¾t ®Çu
tõ thµnh viªn expr cho ®Õn thµnh viªn cuèi
Có ph¸p: (member expr list)
Gi¶i thÝch:
expr: Lµ mét trong çc phÇn tö cña mét danh s¸ch
list: Lµ mét danh s¸ch gèc
o. Hµm (assoc ...)
Chøc n¨ng: Tr¶ vÌ mét danh s¸ch con trong danh s¸ch phøc hîp
Có ph¸p:
(assoc item alist)
Gi¶i thÝch:
item: Lµ phÇn tö ®Çu tiªn cña danh s¸ch con tr¶ vÒ, nÕu kh«ng t×m thÊy danh s¸ch con
nµo chøa phÇn tö ®Çu tiªn lµ item, hµm sÏ tr¶ gi¸ trÞ nil
alist: Ph¶i lµ mét danh s¸ch phøc hîp
vÝ dô:
(setq alist ‘((1 “ONE”) (2 “TWO”) (3 “THREE”)))

(assoc 1 alist) --->(1 “ONE”)
(assoc 2 alist) --->(2 “TWO”)

40



p. Hµm (subst ...)
Chøc n¨ng: Thay thÕ c¸c thµnh viªn cña mét danh s¸ch
Có ph¸p:
(subst newitem olditem list)
Gi¶i thÝch:
newitem: Lµ thµnh viªn míi
oldwitem: Lµ thµnh viªn cò
list: Danh s¸ch gèc
vÝ dô:
(setq alist ‘((1 “ONE”) (2 “TWO”) (3 “THREE”)))
7. C¸c hµm nhËp – xuÊt d÷ liÖu
a. Hµm (promt ...)
Chøc n¨ng: XuÊt mét ký tù ra mµn h×nh (dßng command)
Có ph¸p:
(promt msg)
Gi¶i thÝch:
msg: Chuçi ký tù cÇn xuÊt ra nh- mét dßng th«ng b¸o
b. Hµm (open ...)
Chøc n¨ng: Më mét tËp tin d÷ liÖu trªn ®Üa
Có ph¸p:
(open filename mode)
Gi¶i thÝch:
filename: Tªn tËp tin (file) chøa d÷ liÖu.
Phµn më réng cña tËp tin lµ *.txt hoÆc bÊt kú do ng-êi dïng ®Æt
NÕu tËp tin nµy kh«ng n»m trong th- môc lµm viÖc cña Autocad ph¶i cho ®-êng dÉn
mode: M· cña tËp tin
“ r” : §äc tËp tin ®ang cã trªn ®Üa
“ w” : Ghi vµo tËp tin, mçi lÇn ghi t¹o mét tËp tin míi
“ a” : Ghi tiÕp vµo tËp tin ®ang tån t¹i hoÆc t¹o tËp tin míi ®Ó ghi nÕu ch-a cã tËp tin trªn
®Üa

41



c. Hµm (close ...)
Chøc n¨ng: §ãng tËp tin d÷ liÖu ®ang më b»ng hµm open ®Ó gi¶i phãng bé nhí cho c¸c
ch-¬ng tr×nh kh¸c lµm viÖc
Có ph¸p:
(close filename)
Gi¶i thÝch:
filename: Tªn tËp tin chøa d÷ liÖu ®-îc më b»ng hµm open
d. Hµm (findfile ...)
Chøc n¨ng: T×m tËp tin d÷ liÖu trªn ®Üa, nÕu thÊy AutoLisp sÏ tr¶ vÒ tªn tËp tin kÌm theo
®-êng dÉn
Có ph¸p:
(findfile filename)
e. Hµm (read-line ...)
Chøc n¨ng: §äc mét dßng ký tù tõ bµn phÝm hoÆc tËp tin
Có ph¸p:
(read-line [fp])
Gi¶i thÝch:
fp : Tªn tËp tin chøa d÷ liÖu võa ®-îc më b»ng lÖnh open
NÕu cã ghi fp hµm sÏ ®äc mét tËp tin nµy vµ hoµn tr¶ 1 chuçi ký tù
NÕu kh«ng cã hµm sÏ ®äc mét chuçi ký tù ®-îc gâ vµo tõ bµn phÝm
Mçi lÇn gäi hµm (read-line...) mét dßng d÷ liÖu tiÕp theo ®-îc ®äc vµo, khi nµo
kh«ng cßn d÷ liÖu th× kÕt qu¶ lµ nil
f. Hµm (read...)
Chøc n¨ng: §äc mét chuçi ký tù vµ hoµn tr¶ gi¸ trÞ tham sè phï hîp víi kiÓu d÷ liÖu nhËp
vµo
Có ph¸p:
(read str)
Gi¶i thÝch:
str : Chuçi ký tù hoÆc mét biÕn kiÓu chuçi

42



g. Hµm (read-char...)
Chøc n¨ng: §äc mét ký tù tõ bµn phÝm hoÆc tõ tÖp, kÕt qu¶ tr¶ vÒ lµ mét sè nguyªn m· ASCII
cña ký tù võa ®äc
Có ph¸p:
(read-char [fr])
Gi¶i thÝch:
[fr] : Tªn tËp tin chøa d÷ liÖu ®-îc më b»ng lÖnh open, nÕu kh«ng cã m¸y chê ng-êi dïng
nhËp vµo tõ bµn phÝm
h. Hµm (write-char...)
Chøc n¨ng: Ghi mét ký tù ra vïng dßng lÖnh trªn mµn h×nh hoÆc vµo tËp tin
Có ph¸p:
(write-char n [fr])
Gi¶i thÝch:
n : Sè nguyªn m· ASCII cña ký tù ghi vµo
i. Hµm (write-line...)
Chøc n¨ng: Ghi mét chuçi ký tù ra vïng dßng lÖnh trªn mµn h×nh hoÆc vµo tÖp
Có ph¸p:
(write-line str [fr])
Gi¶i thÝch:
str : chuçi
k. C¸c hµm prin1, princ, print
Chøc n¨ng: In kÕt qu¶ ra vïng dßng lÖnh trªn mµn h×nh hoÆc vµo tÖp
Có ph¸p:
(prin1 expr [fr])
(princ expr [fr])
(print expr [fr])

43



Gi¶i thÝch:
expr : BiÓu thøc
Sù kh¸c nhau gi÷a çc hµm:
-

Çc ký tù ®iÒu khiÓn nh-: “n”, “r”... kh«ng cã t¸c dông ®èi víi hµm prin1
mµ cã t¸c dông ®èi víi hµm princ

-

Hµm print lu«n ghi kÕt qu¶ xuèng dßng míi vµ sau kÕt qu¶ cã mét dÊu trèng

8. Çc hµm kiÓm tra d÷ liÖu
a. Hµm (type...)
Chøc n¨ng: X¸c ®Þnh kiÓu d÷ liÖu
Có ph¸p:
(type item)
Gi¶i thÝch:
item : Lµ biÕn hay biÓu thøc
b. Hµm (atom...)
Chøc n¨ng: NÕu tham sè kh«ng ph¶i lµ danh s¸ch tr¶ ra T, ng-îc l¹i Nil
Có ph¸p:
(atom item)
Gi¶i thÝch:
item : Lµ tham sè
c. Hµm (listp...)
Chøc n¨ng: NÕu tham sè lµ danh s¸ch tr¶ ra T, çc kiÓu cßn l¹i Nil
Có ph¸p:
(listp item)
Gi¶i thÝch:
item : Lµ tham sè

44



d. Hµm (numberp...)
Chøc n¨ng: NÕu tham sè lµ sè tr¶ ra T, çc kiÓu cßn l¹i Nil
Có ph¸p:
(numberp item)
Gi¶i thÝch:
item : Lµ tham sè
e. Hµm (nminusp...)
Chøc n¨ng: NÕu tham sè lµ sè ©m tr¶ ra T, çc tr-êng hîp kh¸c Nil
Có ph¸p:
(nminusp number)
f. Hµm (zerop...)
Chøc n¨ng: NÕu tham sè lµ sè 0 tr¶ ra T, çc tr-êng hîp kh¸c Nil
Có ph¸p:
(zerop number)
9. Çc hµm chuyÓn ®æi kiÓu d÷ liÖu
a. Hµm (angtof...)
Chøc n¨ng: ChuyÓn ®æi chuçi ký tù (chøa çc ch÷ sè) thµnh sè thùc dïng cho gãc vµ tr¶ vÒ sè
®o gãc b»ng radian
Có ph¸p:
(angtof str [mode])
Gi¶i thÝch:
str : Lµ chuçi chøa ch÷ sè
mode: Lµ sè nguyªn x¸c ®Þnh d¹ng ®¬n vÞ nhËp vµo, nÕu kh«ng cã sÏ tu©n theo çc cµi ®Æt cña
lÖnh units
Mode nhËn çc gi¸ trÞ sau:
0 : D¹ng thËp ph©n (®é)
1 : D¹ng ®é/ phót/ gi©y
2 : D¹ng Grads
3 : D¹ng Radian
4 : D¹ng tr¾c ®¹c cã kÌm theo chØ h-íng
b. Hµm (angtos...)
45



Chøc n¨ng: ChuyÓn ®æi sè ®o gãc thµnh chuçi ký tù (chøa çc ch÷ sè)
Có ph¸p:
(angtos angle [mode] [precision]])
Gi¶i thÝch:
angle : Lµ sè ®o gãc b»ng radian
mode : Lµ sè nguyªn x¸c ®Þnh d¹ng ®¬n vÞ xuÊt ra, nÕu kh«ng cã sÏ tu©n theo çc cµi ®Æt cña
lÖnh UNITS. Çc gi¸ trÞ cña mode t-¬ng tù nh- hµm (angtof...)
precision : Lµ ®é chÝnh x¸c (sè ch÷ sè sau dÊu ph¶y thËp ph©n)
c. Hµm (atof...)
Chøc n¨ng: ChuyÓn ®æi chuçi ký tù thµnh sè thùc
Có ph¸p:
(atof str)
Gi¶i thÝch:
str : Lµ chuçi ký tù (chøa çc ch÷ sè)
d. Hµm (atoi...)
Chøc n¨ng: ChuyÓn ®æi chuçi ký tù thµnh sè nguyªn
Có ph¸p:
(atoi str)
Gi¶i thÝch:
str : Lµ chuçi ký tù (chøa çc ch÷ sè)
e. Hµm (itoa...)
Chøc n¨ng: ChuyÓn ®æi sè nguyªn thµnh chuçi ký tù
Có ph¸p:
(itoa int)
Gi¶i thÝch:
int : Lµ sè nguyªn, nÕu cho kiÓu kh¸c hµm sÏ b¸o lçi

46



f. Hµm (rtos...)
Chøc n¨ng: ChuyÓn ®æi sè thùc thµnh chuçi ký tù
Có ph¸p:
(rtos number [mode [precision]])
Gi¶i thÝch:
number : Lµ mét sè
mode: Lµ m· ®iÒu khiÓn d¹ng xuÊt ra chuçi ký tù
Mode nhËn çc gi¸ trÞ sau:
1 : D¹ng khoa häc
2 : D¹ng thËp ph©n
3 : D¹ng kü thuËt
4 : D¹ng kiÕn tróc
5 : D¹ng h÷u tû (ph©n sè)
precision : Lµ ®é chÝnh x¸c (sè ch÷ sè sau dÊu ph¶y thËp ph©n)
g. Hµm (distof...)
Chøc n¨ng: ChuyÓn ®æi chuçi ký tù (chøa çc ch÷ sè) thµnh sè thùc
Có ph¸p:
(distof str [mode])
Gi¶i thÝch:
str : Lµ chuçi ký tù chøa çc ch÷ sè
mode: Lµ m· ®iÒu khiÓn nhËp vµo cña sè thùc nhËn çc gi¸ trÞ sau:
1 : D¹ng khoa häc
2 : D¹ng thËp ph©n
3 : D¹ng kü thuËt
4 : D¹ng kiÕn tróc
5 : D¹ng h÷u tû (ph©n sè)
h. Hµm (fix...)
Chøc n¨ng: ChuyÓn ®æi sè thùc thµnh sè nguyªn, c¾t bá phÇn thËp ph©n
Có ph¸p:
(fix number)

47



Gi¶i thÝch:
number : Lµ mét sè thùc
i. Hµm (fload...)
Chøc n¨ng: ChuyÓn ®æi sè thµnh sè thùc
Có ph¸p:
(fload number)
Gi¶i thÝch:
number : Lµ mét sè nguyªn hoÆc sè thùc
10. Çc hµm xö lý chuçi ký tù
Trong AutoLisp chuçi lµ çc ký tù ®-îc viÕt trong ngoÆc kÐp “ ” . DÊu kÌm theo çc ch÷ çi cã
t¸c dông ®iÒu khiÓn:
Çch viÕt

ý nghÜa

:

n

:

Xuèng dßng

t

:

Tab

e

:

ESC

”

:

“

r

:

ENTER

a. Hµm (strcat...)
Chøc n¨ng: Nèi çc chuçi thµnh phÇn thµnh mét chuçi chung
Có ph¸p:
(strcat str1 str2 [str3]...)
Gi¶i thÝch:
str1, str2, str3... : Lµ çc chuçi thµnh phÇn cÇn ®-îc ghÐp l¹i
b. Hµm (strcase...)
Chøc n¨ng: ChuyÓn chuçi ra ch÷ in hoa hoÆc ch÷ th-êng
Có ph¸p:
(strcase str which)

48



Gi¶i thÝch:
str: Lµ chuçi cÇn chuyÓn ®æi
which: NÕu kh«ng cã, tÊt c¶ chuçi biÕn thµnh ch÷ in hoa, nÕu lµ ch÷ T tÊt c¶ chuçi trë thµnh
ch÷ th-êng
c. Hµm (strlen...)
Chøc n¨ng: §Õm sè ký tù trong chuçi
Có ph¸p:
(strlen str)
Gi¶i thÝch:
str: Lµ chuçi cÇn ®Õm
d. Hµm (substr...)
Chøc n¨ng: TrÝch mét phÇn cña chuçi ký tù thµnh mét chuçi kh¸c
Có ph¸p:
(substr str start [length])
Gi¶i thÝch:
str: Lµ chuçi cÇn trÝch
start: VÞ trÝ ký tù trong chuçi cÇn trÝch ra
length: ChiÒu dµi cña chuçi míi (sè ký tù), nÕu kh«ng cã th× chuçi míi b¾t ®Çu tõ vÞ trÝ
start cho ®Õn hÕt
11. Çc hµm xö lý chuçi ký tù
11.1. Çc hµm thao t¸c víi çc ®èi t-îng ®éc lËp
a. Hµm (entlast)
Chøc n¨ng: Chän ®èi t-îng vÏ cuèi cïng trong b¶n vÏ vµ tr¶ vÒ m· ENAME cña nã
Có ph¸p:
(entlast)
Gi¶i thÝch: Hµm nµy kh«ng cã ®èi sè
b. Hµm (entnext...)
Chøc n¨ng: Chän ®èi t-îng vÏ ®Çu tiªn trong b¶n vÏ hoÆc ®èi t-îng tiÕp sau mét ®èi t-îng
kh¸c vµ tr¶ vÒ m· ENAME cña nã
Có ph¸p:
(entnext [ename])
49



Gi¶i thÝch:
ename: NÕu kh«ng cã hoµn tr¶ thùc thÓ ®Çu tiªn cña b¶n vÏ
NÕu cã hoµn tr¶ tªn thùc thÓ tiÕp sau thùc thÓ cã tªn lµ ename
VÝ dô:
(setq e1 (entnext))

;G¸n tªn thùc thÓ ®Çu tiªn cho e1

(setq e2 (entnext e1)) ;G¸n tªn thùc thÓ tiÕp sau e1 cho e2
c. Hµm (entsel...)
Chøc n¨ng: Chê ng-êi dïng chän ®èi t-îng vµ tr¶ vÒ m· ENAME cña nã
Có ph¸p:
(entsel [promt])
Gi¶i thÝch:
promt: Lêi nh¾c, nÕu kh«ng cã dßng nh¾c sÏ lµ : Select object:
VÝ dô:
(setq e1 (entsel “Chon doi tuong thu nhat:”))
(setq e2 (entsel “Chon doi tuong thu hai:”))
(command “EXTEND” e1 “” e2 “”)
d. Hµm (nentselp...)
Chøc n¨ng: Ch-¬ng tr×nh tù ®éng chän ®èi t-îng ®i qua mét ®iÓm cho tr-íc
Có ph¸p:
(nentselp [promt] [pt])
Gi¶i thÝch:
promt: Lêi nh¾c
pt: §iÓm mµ ®èi t-îng ®i qua
e. Hµm (entdel...)
Chøc n¨ng: Xo¸ mét ®èi t-îng trong b¶n vÏ hoÆc kh«i phôc l¹i ®èi t-îng võa bÞ xo¸
Có ph¸p:
(entdel ename)
Gi¶i thÝch:
ename: M· tªn ®èi t-îng, hµm nµy chØ dïng cho thùc thÓ chÝnh, tªn thùc thÓ do hµm
(entlast), (entnext)

50



f. Hµm (entget...)
Chøc n¨ng: Hoµn tr¶ danh s¸ch liÖt kª çc th«ng tin vÒ ®èi t-îng cã trong b¶n vÏ ®-îc gäi
Có ph¸p:
(entget ename [applist])
Gi¶i thÝch:
ename: M· tªn ®èi t-îng
applist: NÕu cã, danh s¸ch çc chuçi ký tù chøa çc th«ng tin më réng cã liªn quan sÏ ®-îc
gäi ra vµ hoµn tr¶.
g. Hµm (entmod...)
Chøc n¨ng: CËp nhËt l¹i th«ng tin cña ®èi t-îng ®· bÞ thay ®æi b»ng çc hµm vµ vÏ ra ®èi
t-îng víi çc th«ng tin ®· cËp nhËt. Hµm nµy th-êng ®-îc dïng víi hµm (entget)
Có ph¸p:
(entmod entlist)
Gi¶i thÝch:
entlist: Lµ danh s¸ch chøa th«ng tin cña ®èi t-îng lÊy tõ hµm (entget)
h. Hµm (entmake...)
Chøc n¨ng: T¹o mét thùc thÓ míi b»ng çch x©y dùng mét danh s¸ch çc cë¬ d÷ liÖu cña nã,
kh«ng cÇn qua çc lÖnh cña AutoCad
Có ph¸p: (entmake edata)
Gi¶i thÝch:
edata: Lµ danh s¸ch çc c¬ së d÷ liÖu cña ®èi t-îng cÇn t¹o.
VÝ dô: VÏ ®-êng trßn
(entmake
‘((0 . “CIRCLE”) ; KiÓu ®èi tîng ®êng trßn
(62 . 1)

; Mµu ®á

(10 4.0 4.0 0.0) ; T©m (4.0 4.0 0.0)
(40 . 1.0)
(40 . 1.0)

; B¸n kÝnh 1.0

)
)

51



11.2. Çc hµm thao t¸c víi b¶ng çc ®èi t-îng
B¶ng çc thùc thÓ lµ tËp hîp çc thùc thÓ trong mét khèi ®å ho¹ chuÈn cña AutoCad. Çc
thùc thÓ nµy kh«ng thÊy hiÖn h÷u trªn b¶n vÏ mµ n»m trong çc b¶ng d÷ liÖu. Çc b¶ng d÷ liÖu
®ã bao gåm: LAYER, BLOCK, LTYPE, STYLE, DIMSTYLE, UCS, VPORT...
Mçi b¶ng ®èi t-îng nãi trªn cã 3 d÷ liÖu chÝnh:
+ Tªn b¶ng nh-: “ LAYER” , “ BLOCK” ...
+ Tªn ®èi t-îng trong b¶ng: Líp “ 0” , khèi “ A1”
+ D÷ liÖu cña ®èi t-îng: mµu s¾c, ®-êng nÐt....
a. Hµm (tblnext...)
Chøc n¨ng: T×m b¶ng d÷ liÖu vµ tr¶ ra d÷ liÖu cña b¶ng ®ã
Có ph¸p:
(tblnext tblname [rewind])
Gi¶i thÝch:
tblname: Chuçi ký tù chøa tªn b¶ng
rewind: NÕu cã gi¸ trÞ kh¸c nil, sÏ tr¶ vÒ tªn vµ çc d÷ liÖu cña b¶ng çc ®èi t-îng ®Çu tiªn
mµ AutoCad t×m thÊy.NÕu kh«ng cã hoÆc nhËn gi¸ trÞ nil, sÏ tr¶ vÒ tªn vµ çc d÷ liÖu cña b¶ng
çc ®èi t-îng tiÕp theo mµ AutoCad t×m thÊy
b. Hµm (tblsearch...)
Chøc n¨ng: T×m thµnh phÇn ®-îc chØ ®Þnh cña b¶ng ®èi t-îng vµ tr¶ ra d÷ liÖu cña thµnh
phÇn ®ã
Có ph¸p:
(tblsearch tblname symbol [setnext])
Gi¶i thÝch:
tblname: Chuçi ký tù chøa tªn b¶ng
symbol: Tªn thµnh phÇn cña b¶ng
NÕu t×m thÊy, sÏ tr¶ vÒ tªn vµ çc d÷ liÖu cña tªn gäi nµy
NÕu kh«ng t×m thÊy sÏ tr¶ vÒ nil
setnext: Lµ lùc chän dïng khi cã mét lÖnh tblnext tiÕp sau lÖnh nµy

52



11.3. Çc hµm thao t¸c víi nhãm çc ®èi t-îng
Trong AutoCad ng-êi ta sö dung ch÷ viÕt t¾t “ ss“ (Selection Set) ®Ó gäi tªn nhãm ®èi t-îng
(Object) hoÆc nhãm thùc thÓ (entities) ®-îc chän sau dßng nh¾c “ Select object:” cña AutoCad.
KiÓu cña nhãm lµ PICKSET. Cã thÓ coi nhãm ®èi t-îng lµ mét m¶ng çc phÇn tö, mçi phÇn tö lµ
tªn mét ®èi t-îng
a. Hµm (ssget...)
Chøc n¨ng: Chän çc ®èi t-îng trong b¶n vÏ vµ tr¶ vÒ nhãm ®èi t-îng ®· chän. NÕu kh«ng
cã ®èi t-îng nµo hµm tr¶ kÕt qu¶ lµ nil
Có ph¸p:
(ssget [mode] [pt1 [pt2]] [pt-list] [filter-list])
Gi¶i thÝch:
mode: Chuçi ký tù chøa çc m· ®iÒu khiÓn viÖc lùa chän, nhËn çc m· sau:
“ L” : Last - ®èi t-îng vÏ cuèi cïng cßn tån t¹i trong b¶n vÏ ®-îc chän
” P” : Previous – TËp hîp ®èi t-îng võa chän tr-íc ®ã
“ W” : Windows – Çc ®èi t-îng n»m trong cöa sæ chän
“ C” : Cross – Çc ®èi t-îng n»m trong vµ c¾t qua cöa sæ chän
“ X” : TÊt c¶c ®èi t-îng trong b¶n vÏ ®-îc chän
“ WP” : Çc ®èi t-îng n»m trong mét ®a gi¸c cho tr-íc ®-îc chän
“ WC” : Çc ®èi t-îng n»m trong vµ c¾t qua mét ®a gi¸c cho tr-íc ®-îc chän
pt1 pt2: Hai ®iÓm lµ 2 ®Ønh ®èi nhau cña mét cöa sæ h×nh ch÷ nhËt dïng cho chän ®èi t-îng
b»ng Crossing vµ windows
pt-list: Çc ®iÓm t¹o thµnh ®a gi¸c dïng cho lùa chän WP, WC
filter-list: Lµ danh s¸ch chøa çc tiªu chuÈn läc cho viÖc chän nhãm çc ®èi t-îng
b. Hµm (ssadd...)
Chøc n¨ng: Thªm mét ®èi t-îng vµo tËp ®èi t-îng
Có ph¸p:
(ssadd [ename] [ss])

53



Gi¶i thÝch:
ename: Chuçi ký tù chøa tªn m· ®èi t-îng cÇn thªm vµo, nÕu ®èi t-îng ename ®· cã trong tËp
®èi t-îng, kh«ng thªm vµo ®-îc n÷a
ss: Tªn tËp ®èi t-îng
NÕu c¶ 2 tham sè nµy kh«ng cã, sÏ tr¶ ra mét tËp rçng
NÕu ename kh¸c nil tËp ®èi t-îng lµ nil, hµm sÏ tr¶ ra mét tËp ®èi t-îng chØ cã mét phÇn tö lµ
ename ®· cho
NÕu c¶ 2 ®Òu kh¸c nil, hµm sÏ tr¶ ra tËp ®èi t-îng cã thªm phÇn tö ename võa thªm vµo
c. Hµm (sslength...)
Chøc n¨ng: Tr¶ ra sè nguyªn lµ sè çc ®èi t-îng cã trong tËp çc ®èi t-îng
Có ph¸p:
(sslength ss)
Gi¶i thÝch:
ss: Tªn tËp ®èi t-îng cã trong b¶n vÏ
d. Hµm (ssdel...)
Chøc n¨ng: Lo¹i bá mét ®èi t-îng ra khái tËp ®èi t-îng
Có ph¸p:
(ssdel ename ss)
Gi¶i thÝch:
ename: Chuçi ký tù chøa m· tªn ®èi t-îng cÇn lo¹i bá. NÕu ®èi ename nµy ®· cã trong tËp ®èi
t-îng, th× nã bÞ lo¹i bá, nÕu kh«ng cã tr¶ nguyªn tËp ®èi t-îng
e. Hµm (ssname...)
Chøc n¨ng: Tr¶ vÒ ename cña mét ®èi t-îng cã trong tËp çc ®èi t-îng
Có ph¸p:
(ssname ss index)
Gi¶i thÝch:
index: Sè thø tù cña çc ®èi t-îng trong tËp hîp çc ®èi t-îng ®-îc tÝnh tõ 0, 1, 2....

54



IV> HÀM DO NGƯỜI LẬP TRÌNH ĐỊNH NGHĨA
Çc hµm nµy t-¬ng tù nh- hµm (Function) trong ng«n ng÷ lËp tr×nh C vµ C++, thñ tôc
(Procedure) trong Pascal, hoÆc hµm con (Subroutine) trong Fortran
Có ph¸p chung cña hµm do ng-êi dïng ®Þnh nghÜa:
Có ph¸p:
(defun tªn_hµm (tham_sè/ biÕn_sè_riªng)
...........................; Th©n hµm
...........................; Th©n hµm
)
HoÆc:
(defun tªn_hµm ()
...........................; Th©n hµm
...........................; Th©n hµm
)
Gi¶i thÝch:
defun: Hµm ®Þnh nghÜa cña AutoLisp
Tªn_hµm: Do ng-êi lËp tr×nh ®Æt, tªn hµm nªn viÕt b»ng ch÷ hoa vµ kh«ng cã kho¶ng trèng
Th©m hµm: lµ çc lÖnh xö lý cña AutoLisp. Mét hµm cã thÓ triÖu gäi nhiÒu hµm kh¸c
Trong th©n hµm bao gåm cã çc tham sè, biÕn_sè_riªng, biÕn_sè_chung
tham sè: Lµ mét hoÆc nhÒu biÕn h×nh thøc, çc biÕn nµy chung cho c¶ ch-¬ng tr×nh, tham gia
vµo çc biÓu thøc trong th©n hµm vµ ®-îc tån t¹i khi tho¸t ra khái AutoCad
Khi ®-îc triÖu gäi, çc biÕn h×nh thøc nµy ®-îc thay b»ng çc gi¸ trÞ
Trong hµm cã thÓ kh«ng cã tham sè
biÕn_sè_riªng: Trong hµm cã thÓ cã mét hay nhiÒu biÕn sè riªng, ®-îc ph©n çch nhau
b»ng dÊu trèng
Çc biÕn sè nµy nhËn gi¸ trÞ hoÆc ®Þnh nghÜa vµ chØ tån t¹i bªn trong hµm, khi ra khái
hµm, gi¸ trÞ çc biÕn nµy sÏ ®-îc xo¸ khái bé nhí
biÕn_sè_chung: Khi hµm kh«ng cã c¶ tham sè lÉn biÕn riªng, th× çc biÕn sè cña nã mÆc
nhiªn lµ biÕn chung

55



VÝ dô:
a. VÝ dô vÒ tham sè:
(defun VD1(x y)
...........................; Th©n hµm
...........................; Th©n hµm
)
Hµm nµy cã 2 tham sè x vµ y. Hµm ®-îc triÖu gäi nhsau:
(VD1 x y)
b. VÝ dô vÒ biÕn sè riªng:
(defun VD2(/ x y)
...........................; Th©n hµm
...........................; Th©n hµm
)
Hµm nµy cã 2 biÕn sè riªng x vµ y. Hµm ®-îc triÖu gäi nhsau:
(VD2)
c. VÝ dô vÒ biÕn sè chung:
(defun VD3()
...........................; Th©n hµm
...........................; Th©n hµm
)
Hµm nµy kh«ng cã tham sè vµ biÕn riªng. Hµm ®-îc triÖu gäi nhsau:
(VD3)
d. Tªn hµm lµ mét lÖnh cña AutoCad:
(defun C:VD4()
...........................; Th©n hµm
...........................; Th©n hµm
)
Khi ch-¬ng tr×nh AutoLisp chøa hµm trªn ®-îc gäi vµo
AutoCad th× ‘vd4” lµ mét lÖnh cña AutoCad, cã thÓ gäi trªn
dßng lÖn Command: vd4

56



1. C¸c tr-êng hîp ®Æc biÖt cña tªn hµm:
1.1.

Tªn hµm trë thµnh mét lÖnh cña AutoCad
(defun C:tªn_hµm(...)
...........................; Th©n hµm
...........................; Th©n hµm
)

1.2.

Hµm ®-îc thùc hiÖn ngay sau khi khëi ®éng AutoCad
(defun S::tªn_hµm(...)
...........................; Th©n hµm
...........................; Th©n hµm
)

2. Mét sè vÝ dô minh ho¹
2.1.

T¹o Layer

(defun C:TAOLOP()
(command "-layer" "n" "dut" "l" "DASHED" "dut" "c" 3 "dut" "")
(command "-layer" "n" "tam" "l" "CENTER" "tam" "c" 1 "tam" "")
(command "Ltscale" 300)
(command "ZOOM" "a")
); KÕt thóc hµm
Ch-¬ng tr×nh khi ch¹y trong AutoCad sÏ t¹o 2 líp cã tªn lµ “ dut” vµ “ tam”
2.2.

VÏ khung tªn

(defun c:KBV(/ tyle loai KBV1 KBV2)
(setq tyle (getreal "Cho ty le ban ve : "))
(setq loai (getstring "Cho kho giay in ban ve A0,A1,A2,A3,A4:
<A3> "))
(setq

KBV1 (getpoint "Cho diem chen khung ban ve: "))

(if (= loai "a0")
(setq
KBV2 (list (+ (car KBV1) (* 1188.0 tyle)) (+ (cadr
KBV1) (* 840.0 tyle))))
(if (= loai "a1")
(progn
(setq
KBV2 (list (+ (car KBV1) (* 840.0 tyle)) (+
(cadr KBV1) (* 594.0 tyle)))))

57



(if (= loai "a2")
(progn
(setq
(cadr KBV1) (* 418.0 tyle)))))
(if (= loai "a4")
(progn
(setq
(cadr KBV1) (* 198.0 tyle)))))

(if (= loai "a3")
(setq
(cadr KBV1) (* 285.0 tyle))))
)
)
)
)
)
(command "-layer" "n" "Dam" "l" "CONTINUOUS" "Dam" "c" 5 "Dam"
"")
(command "-layer" "s" "Dam" "")
(command "Rectangle" KBV1 KBV2 )
); HÕt hµm
Ch-¬ng tr×nh ch¹y trong AutoCad sÏ vÏ kÝch th-íc khung b¶n vÏ theo khæ b¶n vÏ mµ ng-êi dïng
yªu cÇu
2.3.

§æi mµu cña ®èi t-îng

(defun C:1()
(prompt "_.change ")
(princ "n Change Colour to Red - 1")
(setq sset (ssget))
(if (null sset)
(progn
(princ "nERROR: Nothing selected.")
(exit)
)
)
(command "_.change" sset "" "P" "C" "1" "")
58



(princ)
); HÕt ch-¬ng tr×nh
Ch-¬ng tr×nh ch¹y trong AutoCad sÏ ®æi mµu cña ®èi t-îng chän sang mµu ®á
2.4.

§æi líp cña ®èi t-îng
(defun C:DAM()
(prompt "_.change ")
(princ "n Change Layer Dam")
(setq sset (ssget))
(if (null sset)
(progn
(princ "nERROR: Nothing selected.")
(exit)
)
)
(command "_.change" sset "" "P" "LA" "Dam" "LT"
"BYLAYER" "C" "BYLAYER" "")
(princ)
); HÕt ch-¬ng tr×nh

Ch-¬ng tr×nh ch¹y trong AutoCad sÏ ®æi líp hiÖn hµnh cña ®èi t-îng sang líp “ dam”
2.5.

T¹o underline cho mét nhãm text ®-îc chän

(defun c:UU( / sset ssl temp ed old new )
(text_uu_ssget); Gäi hµm con
(setq ssl (sslength sset))
(while (> ssl 0)
(progn
(setq temp (ssname sset (setq ssl (1- ssl))))
(setq ed (entget temp))

(setq old (cons 1 (DXF 1 ed))
new (cons 1 (strcat "%%u" (DXF 1 ed)))
ed (subst new old ed)
)
(entmod ed)

59



)
(princ)
)

);HÕt hµm chÝnh
;-----------------------------------------------------------(defun text_uu_ssget ( / ssl

nsset temp ed ); Hµm con

(setq sset (ssget))
(setq ssl (sslength sset)
nsset (ssadd)
)

(print ssl)
(while (> ssl 0)
(progn
(setq temp (ssname sset (setq ssl (1- ssl))))
(setq ed (entget temp))
(if (= (DXF 0 ed) "TEXT") (ssadd temp nsset))
)
)
(setq ssl (sslength nsset)
sset nsset
)
(print ssl)
(princ)
(print)
);HÕt hµm con

___________________________ END _______________________________
Tài liệu bạn đang sử dụng được download miễn phí tại website

60

Tài liệu tự học Auto lisp

More Related Content

What's hot (20)

Viewers also liked (20)

Similar to Tài liệu tự học Auto lisp (20)

More from Trung Thanh Nguyen (20)

Recently uploaded (20)

Tài liệu tự học Auto lisp