* Vị dụ 7:
‡¡ Vẽ cầu thang xoắn.
;;¡ chương trình con 1: đổi độ thành radian
(Dcfun DO-RA (x) (* pi (/x 180))
ng chương trình con 2: hàm gv và gán giá trị cho biến---=-~-=-====== (defun øv () )
(setq rp (ñx (h hs
(setq a1 (polar a (/(DO-RA la) 2) r)) (setq a2 (polar a1 (/ (DO-RA la) 2) 1))
(setq a3 (polar a (- (/(DO-RA la) 2)) r)) (setq a4 (polar a3 (- (/(DO-RA ia) 2)) 1)) (setq fl(+r (-l 0.04)))
(setq f1 (polar a 0 (-tl 0.04))) (setq t2 (list (car t1) hb))
(setq f3 (polar a (DO-RA ia) (-tI 0.04)))
(setq t4 (list (car f3) (cadr t3) (+ hs hb))) (setq t11 (polar (I 0 0.03))
442 Chương 30 : Cấu trúc trong chương trình Autolisp
(setq t2 (polar t11 (+ (DO-RA ia) (DO-RA 90)) 0.03)) (setq t13 (polar t1 (+ (DO-RA ia) (DO-RA 90)) 0.03))
(sefq f21 (list (car tI1) (cadr t11) hb)) (sefq f31 (polar t3 (DO-RA ia) 0.04))
(setq t41 (list (car (31) (cadr (31) (+ hb hs)))
.3.3 (command "ELEV" 0 h) (command "ELEV" 0 h) (command "CIRCLE" a r) (command "£#LEV" 0 th) (command "PLINE" al a2 a4 a3 "") (command "ELEV" 0 hb)
(command "PLUINE" tI tII t12 t13 "C")
(command "ELEV" hb 0.02)
(command "3DLINE" t2 t4 "") (command "3DLINE" t21 t41 "")
)
;;; chương trình con 3: dựng Block chân thang (defun upblock () :
(seftq ang())
NT mang "BLOCK” "SE" a al t4 t21 "") ;:; chương trình chính như sau:
(dcfun C:DO ()
(setq a (gefpoint "Point to be showed on:")) ;; điểm sẽ vẽ trên màn hình
(setq r (getreal "Radius of col:")) ;; bán kính trục cầu thang xoắn
(setq h (getreal "Height of floor:")) ;; chiều cao trần nhà
(sefq hb (getreal "Height of bar steel:")) ;; chiều cao tay vịn cầu thang (setq l (getreal "Large-step number:")) ;; chiều rộng bậc thang
(sefq th (getreal "Thicknees-step number:")) 3; độ dày bậc thang
(setq ia (getreal "Include angle of step:")) ;; ĐỐC XOay khi dựng cầu thang m hs (getreal "Height of step:")) ;; khoảng cách giữa các bậc
hài
(upblock) ...
(setq hh ())
(while (<hh h)
(setq e (list (car a) (cadr a) hh))
(command "INSERT'" "s“ c nh nh ang) (setq hh (+ hb hs)) ị (setq ang (+ ang ia))
);; hết while ) ;; hết defun --- Sử dụng AutoCAD 2000 443 PHỤ LỤC
BANG TRA CƯU CÁC LƑNH AUTOCAD
Tên lệnh Ý nghĩa của lệnh Trang
A
Adcenter autoCAD DesignCenter...-.. + +3
Align căn chỉnh vị trí đối tượng ...-....- cà {ch 106,276 Aperture độ lớn ô vuông truy bắt... che HHHHhehrereH 42 Aperture độ lớn ô vuông truy bắt... che HHHHhehrereH 42
Arc VẼ CUNØ tTỒN... cọ sọ nh nh» nh nền HH khen nh ng 33 Area tính diện tích ...-.‹ nh hy nh nhà nh re he 94 Array tạo mảng các đối tượng ...c+ sen hen ưh 101, 275 Attdef tạo thuộc tính cho Block...-.-.- + chien nh nhe H 177 Attedit hiệu chỉnh thuộc tính của Block...-.--- ‹-.--- l2
Aufotrack truy bắt điểm dò từ điểm căn cứ... cà cài. B B
Baground tạo nền cho ảnh tô bóng ... ---:--+sss nhớ 308 Base định điểm chuẩn ...-.---+c‡c ch nhhhhèn 173 Base định điểm chuẩn ...-.---+c‡c ch nhhhhèn 173 Box vẽ khối hộp ... -..--..--ccc ch nh he hhhhheeneeg 253, 282
Bhatch cu 0 0 ae... 124
Blipmode hiện/tắt các dấu Blips(+) trên màn hình ... 2Ó Block tạo KhỐi... cọ HH nền nh nen nh nh nh kh heo he ng 165, 276 Block tạo KhỐi... cọ HH nền nh nen nh nh nh kh heo he ng 165, 276 Boundary tạo đường bao, miền Region...---- cành nh 68 Break ngắt bỏ 1 đoạn của đối tượng giữa 2 điểm... "Ổ
3Dpoly tạo đường polyline trong 3D ...---.-- cà sàn nành 247 3Dfacc tạo mặt 3lDfaC€ ...- cà nà HH nh nh nhe hen nhe he re 252 3Dmesh tạo mặt lưới 3Dmesh ... ‹--- << sen 256, 259
C .
Cai công cụ tính các hàm và trợ giúp truy bắt...27, 238
Chamfer VẤT HIẾP ... cán ST nnn nền 2EHEHHy tr nh nh nh nhe he 82,297 Changc thay đổi và hiệu chỉnh đối tượng ... ¬ 92 Changc thay đổi và hiệu chỉnh đối tượng ... ¬ 92 Circle vẽ đường IrỒn ...-- -- +2 nh hen hen hen nhe 31 Close đóng Ïile...-- SE nHHYnhh nh nh hề nh nh hành nhe, 28 Color đặt màu ...cccn* HH nh nh nh nh khen Hinh the 158 Copy sao chép đối tƯỢng ...-.-- ch nhe nhhn he nhe 101
Copybase sao chép đối tượng vào Clipboard có định điểm cơ sở...2Ö4
Copyclip sao chép đối tượng vào Windows clipboard... 23 Copyhist sao chép tất cả các dòng lệnh, dòng nhắc vào Clipboard...2L2 Copyhist sao chép tất cả các dòng lệnh, dòng nhắc vào Clipboard...2L2 Copylink sao chép đối tượng vào Windows clipboard...203 Cutclip cắt đối tượng đưa vào Windows clipboard... -...204 Cone vẽ khối nÓn ...-.‹-‹--:-- cành nh nhe 255, 283
444 D D DDedit Dimaligned Dimangular Dimbaseline Dimcenter Dimcontinue Dimdiameter Dimedit Dimlinear Dimordinate Dimradius Dimstyle Dimtedit Đist Divide Donut Dragmode Dview Dom, Dish Dispsil E Ellipse Erase Exit Explode Export Extend Extrim Elev Extrude Edgesurf F Facetres Fog Favorifies Fi Fillet Filter FIEDIA G Grid Grips Phụ lục
hiệu chỉnh văn bản và thuộc tính .. .. . 156 ghi kích thước theo hướng song song ví VỚI đoạn thẳng ghỉ —-. „141 ghi kích thước góc ...S SE 2 142
ghỉ chuỗi kích thước từ điểm cơ sở... 2 th c2 143
vẽ đường tâm, dấu tâm ... nọ, -..-...142
ghi chuỗi kích thước liên tiếp nhau...
ghi kích thước đường kính ... sS nà. 14I hiệu chỉnh kích thước ... 2 S2 148 ghi kích thước thẳng đứng/nằm ngang... on seneooo 140 ghi kích thước theo toạ độ điểm ... _ 143 ghi kích thước bán kính ... s2. 225SEEEtnnne co 141 tạo kiêu ghi kích thước ... no, .134 hiệu chỉnh vị trí kích thước ... nh 149
tính khoảng cách 2 điểm ... .. So tre - 94
chia thành các đoạn bằng nhau ... 222 SH 93, 1 69
vẽ hình vành khăn... 2 2 nó 60 biến làm hiện/tắt chế độ di chuột ... ¬ " 96, 116
quan sát động, mô hình 3D... 2S n2 Hee 242
vẽ nửa khối cầu . "HH... 255
biến hiện đường bao v viền của mô ô hình 3D. ..289
LÍ... 38
xoá đối tượng ... so ch Hee 76
thoát khỏi AutoCAD... nh HH 30
phân rã các đối tượng, Block... ¬ ¬- ¬ 88
xuất bản vẽ sang các định dạng file khác HH HH nà Khen nà 29 346
kéo dài đối tượng tới một đường biên...-snnnnnnnnnneoc, . 79
chặt một nhóm các đối tượng cùng một lúc ... cà 78
định độ cao ban đầu cho mặt phẳng cơ sở của đối tượng... 250 nâng đối tượng 2D thành mô hình 3D... Tu 286
tạo mặt lưới...--c2cccvcEEEEEEEEEEtttt.trrrrerrrrrrrrrrrreeee...250
biến định chế độ tô bóng ... ảnh en, 290 tạo nền mờ cho ảnh tô bóng... nh HH co 309 tạo nền mờ cho ảnh tô bóng... nh HH co 309
tạo danh sách những đối tượng thường dùng... 200
điều khiển sự tô màu cho các đối tƯỢng... nh 96 lượn góc cho 2 đối tƯỢNH ... .ọ Q0 nh Hee 8 1 298
bộ lọc các đối tượng theo tính chất... 22 nó 236
điều khiển hộp thoại về File... snnnnnnnenene-96
hiện lưới các chấm điểm cho bản vẽ... .
hiệu chỉnh bằng kẹp GTIps ... ¬ . Sử dụng AutoCAD 2000 445 H Hatch Hatchedit Hide Help I Image ID Insert Insertobj Intersecf Isolines Interfere L Layer Layout Layoutwizard Leader Lengthen Limits Line Linetype List LTscale Light M Massprof Matlib Measure Mesh Minsert Mirror Mledit Mline MIistyle Model Moyve Mspace Mslide Mtext Myiew Mwsetup Mtprop gạch mặt cắt... nh nho hon 129 hiệu chỉnh mặt cắt ...---+ cành nHHnhhhhhhrhhheerre 131 che giấu đường khuất cho mô hình 3]... . - - - -- SH he 244 trợ giúp tra cứu các lệnh và các biến ...--- «+ 7l
để nhập file hình ảnh vào bản vẽ ... -- --- -- ‹-5-- << 344 tính toạ độ điểm ...-- nh nh the HheHhhhớ 94 tính toạ độ điểm ...-- nh nh the HheHhhhớ 94 chèn Block, FHe vào bản vẽ ...--.---- ‹--- << 166, 277 dán các thông tin vào bản vẽ ...--.---cc‡cằằ HH nhe he 207
giao của các Rigions, các solids .. " xa. ..289 biến định số lượng các khung dây cho mô hình 3D. ¬— 289 kiểm tra miền giao nhau của các Solid...-«-«-eeeeeerererrrie 311
tạo và quản lý lớp...-..---cccnn nnnhnhhhh nHhuhhhhhhhenhrrreiee 161
tạo và quản lý các Layouts-phục vụ xuất bản vẽ ... -- 321
¬————— —.. 324
ghi kích thước có đường dẫn ...--- «ộ chớ 145 thay đổi chiều dài đối tượng, ...-.--- nhìn hen 79 thay đổi chiều dài đối tượng, ...-.--- nhìn hen 79
xác định giới hạn bản vẽ ...--- cà nhe nhe 45
vẽ đường gấp khúc thẳng...--- chen 49 tải và tạo các loại đường trong bản vẽ ...- ‹.-- cm 159 tải và tạo các loại đường trong bản vẽ ...- ‹.-- cm 159 liệt kê thông tin cho đối tượng ...---- cằm %6 định tỷ lệ cho đường nét ...--- cành th ehhhenheee 160 tạo nguồn sáng cho RÑender ...--. ---5++c+ssseeeserrrrertertrrtre 304
phân tích khối rắn về mặt khối lượng, thể tích, ...--- - -- 320
nhập các loại vật liệu có sẵn vào bản vễ...‹ «nen 307
chia trên đối tượng các đoạn chiều dài bằng nhau... 94, 169
tạo mặt lưới ...-- -‹-- ch hề nhe như nhe hen 256 chèn Block thành 1 dãy ...-...-.---‡ sành nhe 168
phép đối xứng qua đường thẳng ... -..---: 102,274 hiệu chỉnh đường Mline ...---cc ehhhhnhhhen hư 65 hiệu chỉnh đường Mline ...---cc ehhhhnhhhen hư 65 vẽ đường thẳng cấu trúc Mline...-- cà sS‡S‡snhhhhhhthớ 64 tạo kiểu đường Mline...- cành nhnhhhhrrtrrerrom 63 chuyển đổi Layout tab sang Model tab... -...--- 321 di chuyển đối tượng ...--- --cnnhhhhhhhhhhhnhtre nhe 100
chuyển từ Pspace sang không gian mô hình Mspace... - 265
chụp ảnh đối tượng ...-..---ccsnnhnnnhnhhtrrrnnnnnrnrsen 354
nhập một đoạn văn bản vào bản vẽ ...-- cành rơm 155 tạo các khung nhìn động ...---++ «+ ằnằ$nhnnhhnhhnntnett 268
sắp xếp bản vẽ ... chen mrHhehhnhrnrhnherrrtrrerne 270 thay đổi đoạn MIext...--.---csecssrrrrrrirrrrrrerrrrrrrrrrrrrrrrrrrrr 156 thay đổi đoạn MIext...--.---csecssrrrrrrirrrrrrerrrrrrrrrrrrrrrrrrrrr 156
446 N N New O Offset Olehide Olelinks Cpen Option Ortho Osnap P. Pagesetup Pan Pasteblock Pasteclip Pasteorg Pasfespec Pedit Pline Plot Plotstyle Point Polygon Preview Properties Plan Pyramid Q Qdim Qleader Quit R Ray Recover Rectang Redo Redraw Revsurf Rulesurf Rmat Rpref Refedit Phụ lục tạo bản VỀ mỐI... SH HH 25 tạo các đối tượng song song với đối tượng có sắn... _ 80
hiển thị các đối tượng OÏ€...- sen 211 quản lý đối tượng Ole... 2 0 EEnensee 211 quản lý đối tượng Ole... 2 0 EEnensee 211
mở bản VẾ ... nen He
26
hộp thoại thiết lập AutoCAD... nen 4I
định chế độ vẽ thẳng đứng/nằm Igang... 47 chế độ neo đối tượng thưỜng trÚ... St 2S 225cc 34 chế độ neo đối tượng thưỜng trÚ... St 2S 225cc 34
thiết lập trang in... 0 no 322
dịch chuyển tịnh tiến cả bản vẽ so với màn hình..._ 113
dán Block đã sao chép vào bản vẽ ... 2n nh 207
dán đối tượng từ Window clipboard vào bản vẽ... 204
dán đối tượng từ Window clipboard vào bản vẽ theo toạ
độ của file bản vẽ gốc... . 2 0 nóc 207 dán đối tượng từ Window clipboard vào bản vẽ... 206 dán đối tượng từ Window clipboard vào bản vẽ... 206
hiệu chỉnh đa tuyến 2D, 3D... 2Q vn nho 88, 248 2...
35
In bản VẼ Ta BÌẪY,... .. nem 337
gán kiểu in cho đối tượng... ào 334 0 48 48
về đã giác đỀU .... HH Hee 57
Xem trước bản vẽ sẽ Ín... nh nho 337 hiệu chỉnh các tính chất các đối tƯỢNE... 2U 0]
quan sát mặt bằng mô hình 3D... 1S neo 241 vẽ hình tháp... ...erreereeeeeeeeD 254 vẽ hình tháp... ...erreereeeeeeeeD 254
ghi nhanh kích thước...-- St SE S282 144
ghi nhanh chú thích theo đường dẫn... 145
thoát khỏi AutoCAD... 0 HH Hhhhn
30
vẽ chùm các nửa đường thẳng... 52H 49
Phục hồi dữ liệu của bản vẽ... ... Sen 30 về hình chữ nhật ... Q2 nen 38 bỏ kết quả lệnh U vừa thực hiện... nho 72
vẽ lại bản vẽ để xoá các dấu Blips(+)... 73, 116
LẠO mật HỒN XOâY ... nho 261
——...ẻ.ẽ 263 gán vật liệu tô bóng cho khối 3D... s. 552 nh 305 [endering preferences... se 307
”"Ï. gữadụng AutoCAD 2000
_—— 72
x tái tạo lại bản vẽ ... mm ..- 2
. Reeenall tái tạo lại bản vẽ trên mọi khung nhìn ... : › Sạn cơi tẠO mIỂN ...cQQ Q00. SH HH th nh nh nh nh hưu ,
Ate lỂM ... 2. 2222221212111 nen 103, 274
Rotae quay đối tượng quanh l điểm ...- 215 302
Render tô bóng mô BnRäseeeenrrrrrrrrrrrrnnrnreeeeeeordl ng
volve tạo mặt tròn Xoay ¬ ¬ 20g
Renlay gọi ảnh render đã cất ra bản vẽ ... co.
h ¡ lại bẫn VẼ... HH HH» n HH ng nh nh ng 28
Save BI lại BẢN VỀ sieeerrrerreernrrrlrrrrrrrrrrrmtrrnrrtrrrrrrr ng
Saveimg cất ảnh render ¬ ¬ 302
Shade phủ mặt cho mô Bình 3. eeeeeeeeeeereeeereroo.Z8, "ý Scale thay đổi tỷ ÍỆ...ccceenhehtrrrrertrrrrrrtrrrrrrrre mem ng Scale thay đổi tỷ ÍỆ...ccceenhehtrrrrertrrrrrrtrrrrrrrre mem ng Scene liên kết ảnh với nguồn SẴNg si citeereeeeeererrmrrrrrrrrrre 3
Script lệnh chạy Sedpf BE eeeeeeeeerrrrrlrrnrnrrrrrrrremren ¬ ni
Section tạo mặt cắt cho Solid — : mọc "Ha... 1
chọn các đối tượng đề hiệu chỉnh ... Thy tưng tem hối thoát tạm thời AutoCAD để thực hiện lệnh trong hệ điều hành... ' ›
Sketch vẽ đường phác thảo tự do bảng chuột ... .
Snap định bước nhảy con trỏ theo các nút lưới... -....-.-.--- n
¡d vẽ miền tô màu ... ¬
Solprof điều khiển hiện đường bao thấy và khuất của mộ hình 3D... 310
Solview, oldraw_ tạo các khung nhìn động với các hình chiếu tháng góc, 3I6
hình chiếu phụ, hình cắt ¬ "”
Spline vẽ đường cong bậc cao qua các điểm cho ... › M
Splinedit hiệu chỉnh SP +. eccceeeeeeereeeeeeeerrmrrrrrrrrre " 2g
Sphere tạo mặt cầu, A lộ
Sfafus hiện Hạng thái BẢN Vễ .tseeeeieeeeerermrrnrrrrrrrrrrrrreee hộ
Stretch kéo dãn đối tượng được chọn ¬ TU
Subtract trừ các Regions, các solids hy kh va ¬ -=
Syswindows sắp xếp các cửa số các na "
SLice cắt đời Solid thành hai phần ... --- -- 5-5 +c+ss++seeeeesrrke
TabSurF G0... nhe 263
Tabsurf tạo mặt... ảa 1s
Text viết chữ vào bản V cicrerrerrrrrrrrleerrrereeerrrrrrererrie t2 Tex(style tạo kiểu Viết chẾ óc cccciteernrerrreenrreererrrrererrrree Tex(style tạo kiểu Viết chẾ óc cccciteernrerrreenrreererrrrererrrree
Tolerance ghi dung sai Ïớớ như neettrttrrrrrrrrrrlrrrrrrrrreerrrrol 2
Toolbar hiện/che đi các thanh công cụ nHướm ¬ :
Trace vẽ đường gấp khúc các đoạn thăng có bề rộng ...
Trim chặt bỏ đối tượng từ đối tượng dao ¬ 5s Thickness định độ dầy theo trục z của đổi lưỢng VỀ. .eeceeceeeeeeeeeeeee › .. Thickness định độ dầy theo trục z của đổi lưỢng VỀ. .eeceeceeeeeeeeeeeee › .. Torus VẼ XUYẾN ... cọ HH HH nh nh nhe hề HH th nhờ
U ời dùng ... cà sec 32, 232
lỗi tạo các hệ toạ độ người dùng ¬ n2 sao
448
Phụ lục
U, Undo huỷ bỏ lệnh vừa thực hiện trước đó... 212 7] Union cộng các Regions, hoặc các Solids... nọ non, 67, 288
Units đặt ơn Vị VẼ... QHnHHHnHnH nHHhhc 44
V
View tạo các phần ảnh có tên riêng ... ... 25. 114
Viewres định độ mịn của đường tròn... nen 116
Vpclip xén đối tượng bởi I đường bao kín ... .- 2 nh 330
Vplayer Vpoint tạo và quản lý lớp trong từng VI€WpOFí... 268
định điểm nhìn quan sát ánh 3D... S5ssEEEEnEnnec 240 VLISP khởi động Visual LISP... 202 stttEEEEnnnneee 390 VLISP khởi động Visual LISP... 202 stttEEEEnnnneee 390
Vports tạo các Viewports... KH keeeeeeseeeeseeresecccci... 2Ó)”
Vslide gọi ảnh đã chụp ra bản vẽ ...222sn ESnnnne 354
W
Wblock ghi Block thành file... 00 S2 so ESEEEEEEEEEEEnnn ho 170 Wedge vẽ khối nêm ...--cssccteSEt E121 254,283 Wedge vẽ khối nêm ...--cssccteSEt E121 254,283 Xx
Xattach gắn Xref vào bản vẽ hiện thời... s2 SH 184 Xbind chuyển Xref thành Block... 5.0 n no 188 Xbind chuyển Xref thành Block... 5.0 n no 188 Xclip hiện I phần Xref bởi đường bao xén... 52222 189 Xiine Xplode vẽ các đường thẳng cấu trúc ... ...can n5
phân rã các đối tượng phức ... .. sSnn nh 88, 171 Xref quản lý tham khảo ngoài ... Kheskseeeskeesesserss-e-...LÁ T7 Xref quản lý tham khảo ngoài ... Kheskseeeskeesesserss-e-...LÁ T7 Z
Zoom thu phóng màn hình để xem bản vẽ ...sseee.-TH