Học AutoLisp

[meohoang 344]

Thưa Anh Nguyen Hoanh và cá quý Anh khác trên diễn đàn,

Qua trả lời của Anh Nguyen Hoanh, tôi có thủng ra đươc một tí nhưng vẫn bí rị à. Như vậy để xài được thằng getvar này, phải biết được tên các biến hệ thống được xài trong Acad, chớ đâu có xài ẩu được. Thế mà tôi mới chỉ mót được có mỗi mấy cái tên mà các quý Anh đã cho đăng đàn như "Area", "perimeter", "clayer",... thì làm sao xài phà phà được.

Vậy nên tôi lại đăng đàn nhờ các quý Anh mấy việc sau:

1/- Giới thiệu tổng quan về các biến hệ thống thường gặp trong Acad.

2/- Chỉ giùm tôi nơi có tài liệu tham khảo kỹ lưỡng hơn về mấy cái biến hệ thống này.

3/- Có ai có các lisp sử dụng cái thằng getvar này nhiều nhiều một tí thì chỉ giùm để tôi đi mót.

Cám ơn anh Nguyen hoanh và các Quý Anh trước nhé.

Ngoài cách của Hoành bạn có thể dùng lệnh _.sysvdlg của Express rồi bấm xem giải thích cặn kẻ các biến hệ thống (phải cài Express mới có lệnh này)

Việc dùng lisp để lấy biến hệ thống phải tùy ý đồ của người viết code bạn ạ. Phải xông trận vào khu rừng mã lệnh rối rắm để mò và học dần ...sau mỗi trận chiến thì sáng dạ ra ngay ấy mà

[phamthanhbinh 3.146]

Thưa anh Nguyen hoanh và các quý Anh trên diễn đàn,

Thú thực là tôi chả biết gì nhiều về autolísp này cả, vẫn còn đang đi mót mà. Cái anh Nguyen Hoanh hỏi làm tôi mắc cỡ muốn xỉu luôn.

Sở dĩ tôi hỏi về thằng getvar là vì trong lúc lang thang trên cánh đồng Autolisp để mót thì thấy nó, tôi nhặt lên để kiếm cách xài mà xài hổng được. Hỏi hoài cốt để hiểu cái mà các quý anh đã cho thôi chớ nào dám có tham vọng chi đâu.

Vốn là dân đi mót nên tôi cố gắng chắt chiu của mót được, cố gắng hiểu được cái mình có trong tay cho dù có thể nó chưa hoàn chỉnh, chỉ là những mảnh kiến thức rơi vãi của mọi người.

Hiện tại tôi mót được củ Autolisp của cụ Jeff Sanders quẳng trên mạng nên cũng đang cố gặm. Hy vọng có ngày hiểu được những điều các Quý Anh chỉ dạy.

Rất cám ơn anh Nguyen hoanh và các quý anh khác đã tận tình chỉ dạy. (Mặc dầu tôi ngu lâu chậm hiểu)

Vẫn biết Cad và autolisp còn mênh mông bát ngát lắm, tha hồ mà mót. Song trí lực có hạn nên tôi chỉ biết cố gắng tận lực, được gì xài nấy vậy, chả dám mơ mộng chi đâu.

À nhân tiện tôi xin lộ tẩy luôn là đúng như các Quý Anh đã xếp hạng, tôi vào cái loại chưa biết gì về Cad, mong được chỉ giáo nhiều nhiều.

[phamthanhbinh 3.146]

Cám ơn cả anh meo hoang nữa nhé, đọc bài của anh thấy sáng ra nhiều lắm. Rất mong được thọ giáo dài dài. Đa tạ, đa đa tạ.

[RomanHunter 0]

Em mới vào lần đầu thui, mà gặp toàn người tốt....em chân thành cảm ơn các bác

Mọi người đều như các bác thì Việt Nam sắp nổi như cồn rùi........Việt Nam muôn năm..............

[thangsra 7]

Phần 3:

 

Trong phần 2, chúng ta đã tạo được một chương trình lisp có giao tiếp với AutoCAD thông qua tên lệnh.

Tại phần 3 này, chúng ta sẽ viết một chương trình thực sự, có ích hẳn hoi.

 

Đó là chương trình tính diện tích của một đối tượng. Trên file hoclisp.lsp, hãy sửa tên hàm chao thành tdt và thêm các mã lệnh như sau:

(defun c:tdt( / sel ent dientich)

(princ "\nChao cadviet")

 

(setq sel (entsel "\nHay chon doi tuong: "))

(setq ent (car sel))

(command ".area" "o" ent)

(setq dientich (getvar "area"))

(princ "\nDien tich doi tuong vua roi la: ")

(princ dientich)

(princ "\nm2")

 

(princ)

)

 

Bạn thử appload file hoclisp.lsp mới và gọi lệnh tdt thử xem, chương trình sẽ yêu cầu bạn nhập vào 1 đối tượng. Và nó sẽ kết xuất diện tích đối tượng vừa rồi ra màn hình:

Command: tdt

Chao cadviet

Hay chon doi tuong: .area

Specify first corner point or [Object/Add/Subtract]: o

Select objects:

Area = 46546736.0000, Perimeter = 28320.0000

 

Command:

Dien tich doi tuong vua roi la: 4.65467e+007m2

Điều gì làm nên sự khác biệt này vậy: chúng ta hãy lần theo từng lệnh nhé.

- Lệnh (entsel "\nHay chon doi tuong: ") là lệnh trả về đối tượng được pick, kết quả trả về là một tập hợp gồm 2 thành phần: thứ nhất là đối tượng được pick, thứ 2 là tọa độ pick.

- Lệnh (setq sel (entsel "\nHay chon doi tuong: ")) là lệnh gán kết quả vừa pick vào biến sel. Bạn nhớ là lệnh (setq a :bigsmile: là gán giá trị a bằng giá trị b. Trong trường hợp này a là sel, b là kết quả của hàm entsel.

- Lệnh (car sel) là lệnh lấy giá trị đầu tiên của biến sel (biến sel có dạng tập hợp) tức là đối tượng được chọn.

- lệnh (setq ent (car sel)) là lệnh gán giá trị biến ent bằng ename của đối tượng được chọn. ename của một đối tượng là giá trị chỉ ra đối tượng trong một bản vẽ cad.

Như vậy, 2 dòng lệnh

(setq sel (entsel "\nHay chon doi tuong: "))

(setq ent (car sel))

có ý nghĩa là gán giá trị biến ent cho đối tượng vừa được chọn bằng phương pháp pick.

 

Tiếp đến, lệnh (command ".area" "o" ent) tương đương với gõ tại dòng lệnh command: .area rồi gõ tiếp o và pick đối tượng. Bạn nhớ là lệnh (command a b c d e f...) tương đương với việc gõ các giá trị a, b, c, d, e, f ... vào dòng lệnh của cad. Như vậy, lệnh trên tương đương với việc tính diện tích của đối tượng vừa được chọn.

 

- Lệnh (setq dientich (getvar "area")): gán giá trị biến dientich bằng giá trị của biến hệ thống AREA (biến hệ thống AREA chứa diện tích vừa được tính bằng lệnh AREA trước đó của cad).

 

-cụm lệnh:

(princ "\nDien tich doi tuong vua roi la: ")

(princ dientich)

(princ "m2")

chắc chắn bạn biết đó là lệnh viết dòng chữ 'Dien tich doi tuong vua roi la: ' diện tích đối tượng vừa rồi 'm2'.

Trên màn hình bạn còn nhìn thấy các dòng chữ khác ngoài dòng chữ trên đó là do các lệnh area của CAD sinh ra. Trong bài học sau chúng ta sẽ biết cách loại bỏ chữ này.

[thangsra 7]

Làm thế nào để nhớ nhanh hết các tên hàm hả bác Hoành. Học cái này có giống học mấy ngôn ngữ lập trình không vậy. Với lại có sách gì tham khảo bác load lên cho anh em với.

[Toannd.slhpp 0]

:bigsmile: em cũng là dân cơ khí nhưng bây giờ mới cs thời gian tiếp xúc với mạng nên bây giờ mới phát hiện ra forum này

[sieutoc 0]

Bác Hoành có thể cho em biết cách nào để chèn một file ảnh vào bản vẽ cad tại một vị trí ta đinh sẵn(không phải bằng thao tác chèn hình),mà sau đó khi ta ra rê chuột tới vị trí đó thì hình tự động hiện lên.

cảm ơn anh rất nhiều. mong được nhận câu trả lời sớm nhất

[Nguyen Hoanh 4.663]

Bác Hoành có thể cho em biết cách nào để chèn một file ảnh vào bản vẽ cad tại một vị trí ta đinh sẵn(không phải bằng thao tác chèn hình),mà sau đó khi ta ra rê chuột tới vị trí đó thì hình tự động hiện lên.

cảm ơn anh rất nhiều. mong được nhận câu trả lời sớm nhất

Chịu!

[ainhandilac 5]

Bạn phân tích như thế nào mà dùng cadr?! Để lấy thông tin về đối tượng, bạn cần tìm hiểu về entity và hàm entget.

Ví dụ: (cdr (assoc 40 (entget (car (entsel))))) sẽ trả về bán kính đường tròn do người dùng select. Có bán kính tất nhiên biết chu vi.

Vấn đề là bạn có hiểu biểu thức trên không, cũng như có hiểu bản chất của thủ thuật mà bạn duy782006 đề xuất không?

Góp ý với bạn: hãy bắt đầu bằng những cái cơ bản nhất. Lập trình lisp không khó, nhưng không nên nóng vội!

 

Bac ssg đã tâm sự là muốn làm chủ được lệnh ssg (ssget)

không biết bây giờ bác đã thực hiện được chưa

nếu được rồi, mong bac chia sẻ cùng anh em về lệnh này

cảm ơn nhiều và mong hồi âm sớm

[trucmuoi 2]

Trước giờ em chỉ nghe về lisp nhưng chưa bao giờ sử dụng. Em muốn hỏi một câu "chuối" vô cùng, mong anh em đừng cười! Em phải viết các dòng lệnh ở trên vào đâu?

[Nguyen Hoanh 4.663]

Trước giờ em chỉ nghe về lisp nhưng chưa bao giờ sử dụng. Em muốn hỏi một câu "chuối" vô cùng, mong anh em đừng cười! Em phải viết các dòng lệnh ở trên vào đâu?

Câu hỏi rất cơ bản và không chuối.

 

Bạn đọc ở đây: http://www.cadviet.com/sub/tips/showtip.php?t=14

[smilingman82 2]

Chịu!

 

mới vào 4rom mà thấy hay wá , cám ơn các bác mod trên diễn đàn nha .......đúng là thứ cần tìm rùi .....bác hoành có thể cho mình SDT đc ko , khi nào cần mình có thể hỏi trực tiếp ..thank hay địa chỉ mail cũng đc .....mail của mình là trungdia@yahoo.com .........đầu óc sáng ra nh rồi

[MrDifficult 0]

mình là 1 thành viên mới.cũng như những người chưa biết về lisp, mình cũng muốn tìm hiểu về nó.mình có ý kiến nhỏ xíu này các bạn xem thử nhé. các bạn viết về lisp các bài viết đó đều rất hay. tuy nhiên mình cảm tháy không đủ. Những cái mà bạn chỉ mình chỉ biết là A hoặc B mà thôi. ngoài 2 cái đó minh không thể từ A,B có thể suy ra C được. Cái vấn đề mình muốn nói ở đây là: học vẹt. Nếu chỉ học theo các bài viết của các bạn thì mãi mình chỉ biết như vậy....Các bạn có thể tổng hợp lại--> lập ra 1 ebook được không?Hoặc không thì các bạn chỉ dùm mình những lệnh cơ bản nhất của lisp--> từ đó dẫn ra làm những bài tập nho nhỏ để ứng dụng. mình nghĩ như vậy sẽ hay hơn đó

 

cảm ơn các bạn đã đọc

[Nguyen Hoanh 4.663]

mình là 1 thành viên mới.cũng như những người chưa biết về lisp, mình cũng muốn tìm hiểu về nó.mình có ý kiến nhỏ xíu này các bạn xem thử nhé. các bạn viết về lisp các bài viết đó đều rất hay. tuy nhiên mình cảm tháy không đủ. Những cái mà bạn chỉ mình chỉ biết là A hoặc B mà thôi. ngoài 2 cái đó minh không thể từ A,B có thể suy ra C được. Cái vấn đề mình muốn nói ở đây là: học vẹt. Nếu chỉ học theo các bài viết của các bạn thì mãi mình chỉ biết như vậy....Các bạn có thể tổng hợp lại--> lập ra 1 ebook được không?Hoặc không thì các bạn chỉ dùm mình những lệnh cơ bản nhất của lisp--> từ đó dẫn ra làm những bài tập nho nhỏ để ứng dụng. mình nghĩ như vậy sẽ hay hơn đó

 

cảm ơn các bạn đã đọc

Cảm ơn bạn đã có ý kiến. Bạn cần ebook, hãy download ở đây về đọc: http://www.cadviet.com/caddata/3_Ebook_Tut...download-1.html

 

Những thứ trong topic này chỉ mang tính tham khảo, là những thứ chắt lọc, mang tính tương tác (hỏi đáp) không mang tính hệ thống. Vì thế, khi bạn cần hệ thống thì hãy đọc ebook, còn nếu bạn cần người đi trước share kinh nghiệm thì hãy tham gia topic này.

 

Không chỉ riêng topic ở này mà tất cả diễn đàn CADViet đều là những mảnh vá kiến thức, không có tính hệ thống. Nếu bạn muốn hệ thống, hãy kiếm lấy vài quyển ebook và đọc (tôi cũng đã làm vậy). Còn khi bạn muốn chia sẻ kiến thức cùng mọi người hay bạn có những thắc mắc không tìm được lời giải thì hãy tham gia diễn đàn.

 

Đây cũng là sự khác biệt cơ bản giữa forum và ebook.

[ssg 1.102]

mình là 1 thành viên mới.cũng như những người chưa biết về lisp, mình cũng muốn tìm hiểu về nó.mình có ý kiến nhỏ xíu này các bạn xem thử nhé. các bạn viết về lisp các bài viết đó đều rất hay. tuy nhiên mình cảm tháy không đủ. Những cái mà bạn chỉ mình chỉ biết là A hoặc B mà thôi. ngoài 2 cái đó minh không thể từ A,B có thể suy ra C được. Cái vấn đề mình muốn nói ở đây là: học vẹt. Nếu chỉ học theo các bài viết của các bạn thì mãi mình chỉ biết như vậy....Các bạn có thể tổng hợp lại--> lập ra 1 ebook được không?Hoặc không thì các bạn chỉ dùm mình những lệnh cơ bản nhất của lisp--> từ đó dẫn ra làm những bài tập nho nhỏ để ứng dụng. mình nghĩ như vậy sẽ hay hơn đó

 

cảm ơn các bạn đã đọc

Nhất trí với ý anh Hoành, ssg xin bổ sung:

1- Bạn tham khảo thêm ở đây, may ra có thể giúp cho bạn thêm chút gì đó chăng:

 

http://www.cadviet.com/forum/Huong-dan-lap...Lisp-t2480.html

 

2- Muốn "chơi" trò lập trình, bất cứ ai cũng phải tự biết cách từ A, B suy ra C, có khi cả D, E... Nếu bạn cảm thấy không có khả năng đó thì đừng nên chơi, mất thời gian vô ích!

3- Viết ebook ư? Rất nhiều member CadViet có thể làm được. Đáng tiếc là không có ai... trả lương cho việc này! Nhiệt tình có, nhưng viết sách là công việc mất rất nhiều thời gian. Nói đơn giản, hãy nhớ lại bạn làm bài luận văn khi đi học như thế nào (viết chừng 2 trang đánh máy A4 cho ra hồn phải mất ít nhất 120 phút toát mồ hôi hột!).

4- Bạn cứ thử đọc 1 cuốn sách hướng dẫn lập trình nào đó (bất cứ cuốn nào và với bất cứ ngôn ngữ lập trình nào mà bạn có), bạn sẽ thấy rằng, người ta luôn luôn kèm theo ví dụ. Có những nội dung, đọc năm lần bảy lượt phần lý luận chẳng hiểu cái... cóc khô gì, nhưng chỉ liếc qua ví dụ, bạn có thể hiểu ra ngay bản chất vấn đề. Trong khi đó, các bài viết trên CadViet là những ví dụ rất sống động và thiết thực. Bạn có đọc cả chục cuốn ebook lẫn "paper-book" cũng không thể nào tìm thấy!

5- Tất cả các phần mềm luôn luôn kèm theo 1 cuốn ebook đồ sộ, đầy đủ, hầu như không thiếu thứ gì. Bạn cứ bấm F1 là nó hiện ra ngay trước mắt!

[vndesperados 254]

mình là 1 thành viên mới.cũng như những người chưa biết về lisp, mình cũng muốn tìm hiểu về nó.mình có ý kiến nhỏ xíu này các bạn xem thử nhé. các bạn viết về lisp các bài viết đó đều rất hay. tuy nhiên mình cảm tháy không đủ. Những cái mà bạn chỉ mình chỉ biết là A hoặc B mà thôi. ngoài 2 cái đó minh không thể từ A,B có thể suy ra C được. Cái vấn đề mình muốn nói ở đây là: học vẹt. Nếu chỉ học theo các bài viết của các bạn thì mãi mình chỉ biết như vậy....Các bạn có thể tổng hợp lại--> lập ra 1 ebook được không?Hoặc không thì các bạn chỉ dùm mình những lệnh cơ bản nhất của lisp--> từ đó dẫn ra làm những bài tập nho nhỏ để ứng dụng. mình nghĩ như vậy sẽ hay hơn đó

 

cảm ơn các bạn đã đọc

 

Nghe bác này nói mà nhớ lại hồi xưa lúc mới học lập trình. Cũng muốn biết những cái mà lúc đó chưa đủ trình độ để biết. Vậy nên bức xúc khủng khiếp luôn. Nhưng mà cũng may là mình không ngu lắm nên sau vài năm giờ cũng được làm PM rùi. Forum không phải là nơi có nhiệm vụ đào tạo bác ạ. Việc học hành là của bác còn anh em trên này có nhiều người hưởng ứng tích cực tham gia vì niềm say mê chứ chẳng được lợi lộc gì đâu. Chúc bác cũng có tinh thần như thế.

[xuantanmn2 0]

Nghe bác này nói mà nhớ lại hồi xưa lúc mới học lập trình. Cũng muốn biết những cái mà lúc đó chưa đủ trình độ để biết. Vậy nên bức xúc khủng khiếp luôn. Nhưng mà cũng may là mình không ngu lắm nên sau vài năm giờ cũng được làm PM rùi. Forum không phải là nơi có nhiệm vụ đào tạo bác ạ. Việc học hành là của bác còn anh em trên này có nhiều người hưởng ứng tích cực tham gia vì niềm say mê chứ chẳng được lợi lộc gì đâu. Chúc bác cũng có tinh thần như thế.

Tui là người mới ,ngu lắm nhưng cũng muốn bắt đầu với lập trình .Cảm ơn tất cả anh chị em trên diễn đàn .Chúc Anh chị em ta luôn mạnh khoẻ .

[tienkieu_ce 6]

a bạn e vừa send cho e tập tl về ALisp of thầy Bình trường e.e up lên share cho ae.ai có nhu cầu tìm hiểu thì down về đọc.ai có tl j hay thi up lên share mọi người với http://www.cadviet.com/upfiles/VBA_Cad_25_8_08.pdf

[xuantanmn2 0]

Phần 1: bắt đầu

 

Đầu tiên, chúng ta hãy bắt đầu bằng chương trình viết chữ.

 

Hãy tạo một file mới và save nó với tên hoclisp.lsp.

(princ "\nChao cadviet")

(princ)

Đây là đoạn mã đơn giản nhất của AutoLisp nhằm viết ra một dòng 'Chao cadviet' trên màn hình nhập dữ liệu của autocad. để sử dụng, appload file hoclisp.lsp này. ta sẽ thấy trên màn hình xuất hiện chữ Chao cadviet.

 

Đi sâu vào phân tích lệnh, ta thấy: mỗi hàm của cad được bắt đầu bằng dấu '(' ngay sau đó là tên hàm, tiếp đến là thông số của hàm (có thể có, có thể không có) và kết thúc bằng dấu ')' Trong trường hợp này princ là tên hàm, "\nChao cadviet" là tham số của hàm princ.

 

Trong hai câu lệnh gọi hàm vừa rồi, câu thứ nhất là để viết chữ ra màn hình text, câu lệnh thứ 2 dùng để ẩn kết thúc mà không hiển thị thêm gì cả. Nếu thiếu câu lệnh thứ 2, bạn sẽ nhìn thấy 'Chao cadviet"\nChao cadviet"' trên màn hình, trong đó "\nChao cadviet" là kết quả của hàm (princ "\nChao cadviet").

EM mới bắt đầu với List mong anh chị chỉ giáo dùm ,những câu hỏi dù là ngớ ngẩn nhất

Em làm theo cách của anh mà mãi không thấy đạt kết quả nào ?

viết chương trình có dòng Chaocadviet không thấy xuất hiện trên màn hình .Đã thử đi thử lại nhiều lần chương trình chạy như anh dạy.

[meohoang 344]

EM mới bắt đầu với List mong anh chị chỉ giáo dùm ,những câu hỏi dù là ngớ ngẩn nhất

Em làm theo cách của anh mà mãi không thấy đạt kết quả nào ?

viết chương trình có dòng Chaocadviet không thấy xuất hiện trên màn hình .Đã thử đi thử lại nhiều lần chương trình chạy như anh dạy.

///////////////////////////////////////////////////

Em nên dùng Notepad.exe của Win để soạn 2 dòng trên. Lưu tên file "hoclisp.lsp" phải có 2 dấu " để Notepad lưu tên có EXT là .lsp. Lưu vào thư mục support của trình Acad em đang xài. Gõ lệnh appload tại dòng lệnh command sẽ có giao diện hiện ra chọn tên file hoclisp.lsp sẽ được như ý....

Chúc em thành công ban đầu.....Vạn sự khởi đầu nan mà em

[hoanhphanvien 0]

Thông tin gì bạn?

Line có rất nhiều thông tin!

mình cũng mới gia nhập món này đây. có thể gọi là thành viên mới toanh luôn, mình cũng tên Hoành. qua diễn đàn biết bác Nguyen Hoanh rất giỏi về món Autolips. mong bác Nguyen Hoanh có thể chỉ cho mình một vài đường link để có tài liệu học chi tiết hơn được không. tức là lúc khởi tạo ban đầu của Lips luôn.

cảm ơn nhiều

[Nguyen Hoanh 4.663]

mình cũng mới gia nhập món này đây. có thể gọi là thành viên mới toanh luôn, mình cũng tên Hoành. qua diễn đàn biết bác Nguyen Hoanh rất giỏi về món Autolips. mong bác Nguyen Hoanh có thể chỉ cho mình một vài đường link để có tài liệu học chi tiết hơn được không. tức là lúc khởi tạo ban đầu của Lips luôn.

cảm ơn nhiều

bạn vào: Đây down mấy quyển Ebook về Autolisp cơ bản về chịu khó đọc, chỗ nào khó hiểu thì post câu hỏi lên mọi người sẽ giúp đỡ bạn.

[hoanhphanvien 0]

bạn vào: Đây down mấy quyển Ebook về Autolisp cơ bản về chịu khó đọc, chỗ nào khó hiểu thì post câu hỏi lên mọi người sẽ giúp đỡ bạn.

cảm ơn bác Hoành nghe. mình sẽ cố gắng nghiên cứu nhiều hơn nữa. mong bác chỉ bảo cho nhiều

[canhthitbo 0]

EM mới bắt đầu với List mong anh chị chỉ giáo dùm ,những câu hỏi dù là ngớ ngẩn nhất

Em làm theo cách của anh mà mãi không thấy đạt kết quả nào ?

viết chương trình có dòng Chaocadviet không thấy xuất hiện trên màn hình .Đã thử đi thử lại nhiều lần chương trình chạy như anh dạy.

///////////////////////////////////////////////////

Em nên dùng Notepad.exe của Win để soạn 2 dòng trên. Lưu tên file "hoclisp.lsp" phải có 2 dấu " để Notepad lưu tên có EXT là .lsp. Lưu vào thư mục support của trình Acad em đang xài. Gõ lệnh appload tại dòng lệnh command sẽ có giao diện hiện ra chọn tên file hoclisp.lsp sẽ được như ý....

Chúc em thành công ban đầu.....Vạn sự khởi đầu nan mà em

 

Làm y hệt như thế này luôn, cũng chẳng hiện lên cái gi`. Ko hiểu dùng Cad 2007 có khác biệt gì ko nhỉ.?