Jump to content
InfoFile
Tác giả: Nguyen Hoanh
Bài viết gốc: 1925
Tên lệnh: dwgcleanup
Dọn dẹp và lưu trữ file với lisp
Vừa viết 1 chương trình theo yêu cầu của bạn kts.ngocquan
Chương trình này cho phép bạn chọn để xóa các file trong cùng thư mục với file bản vẽ hiện hành.


Sử dụng lệnh DWGCleanUp để xóa các file trong thư mục của file bản vẽ hiện hành.

http://img.photobucket.com/albums/v672/nguyenhoanh/CVCLN_Main.gif

Màn hình xuất hiện:

Filename: 1925_dwgcleanup.lsp
Tác giả: ssg
Bài viết gốc: 19298
Tên lệnh: cyc ak
Thiết kế khuôn chế tạo bánh răng Xycloide ăn khớp trong
Chương trình lisp hoàn chỉnh, vẽ toàn bộ biên dạng răng cycloid và mô phỏng ăn khớp răng, có hướng dẫn cụ thể trong các dòng comment:


Filename: 19298_cyc_ak.lsp
Tác giả: ssg
Bài viết gốc: 18675
Tên lệnh: dc
Viết Lisp theo yêu cầu

Bạn dùng lisp này, tên lệnh DC (đo cạnh):

Filename: 18675_dc.lsp
Tác giả: ssg
Bài viết gốc: 18849
Tên lệnh: cyc run
Thiết kế khuôn chế tạo bánh răng Xycloide ăn khớp trong

Bạn dùng lisp này vẽ biên dạng, tên lệnh CYC, tổng hợp cả epi và hypo. Kết quả là đường spline, số khoảng chia trên 1 răng tuỳ ý chọn, mặc định là 1000. Mình đã kiểm tra, MasterCAM hiểu chính xác đường spline của Acad.


Bản vẽ ví dụ sau là kết quả chạy từ CYC. Bạn chạy lệnh RUN sẽ thấy chuyển động mô phỏng:

http://www.cadviet.com/upfiles/run.zip

Cả...
>>

Bạn dùng lisp này vẽ biên dạng, tên lệnh CYC, tổng hợp cả epi và hypo. Kết quả là đường spline, số khoảng chia trên 1 răng tuỳ ý chọn, mặc định là 1000. Mình đã kiểm tra, MasterCAM hiểu chính xác đường spline của Acad.


Bản vẽ ví dụ sau là kết quả chạy từ CYC. Bạn chạy lệnh RUN sẽ thấy chuyển động mô phỏng:

http://www.cadviet.com/upfiles/run.zip

Cả biên dạng răng nhỏ và lớn đều là hypo. Đây là đường lý thuyết. Bạn thiết kế răng phải xem xét thêm và kỹ hơn các yếu tố: độ hở giữa biên dạng răng trong và ngoài, các góc lượn đầu và chân răng, vị trí lệch tâm, hình dáng và vị trí các cửa dầu vào và ra.... Tài liệu thiết kế bơm bánh răng mình không có, nhưng mình có gợi ý: bạn ra chỗ bán phụ tùng xe máy, hỏi mua 1 cái bơm nhớt của xe Honda. Các hãng khác mình không chắc nhưng của Honda (các loại Cub, Dream, Wave...) thì đúng là nó dùng bơm bánh răng ăn khớp trong như cái hình mình post ở trên (chính tay mình đã từng tháo lắp nó mà). Có điều, mình làm lâu lắm rồi (cả chục năm), cũng không chắc lắm về biên dạng răng kiểu gì. Tuy nhiên, dù có là biên dạng gì đi nữa, bạn sẽ có một mô hình thực tế để hiểu thêm rất nhiều vấn đề khác có liên quan. Giá cái bơm nhớt trên rẻ thôi. Với mục đích nghiên cứu, bạn có thể mua hàng của China, có khi chỉ vài chục K.

Về phương pháp gia công, đề bài đã cho thì phải chịu. Nếu phải dập thì dập nóng cho độ chính xác cao hơn nhiều. Riêng bánh răng nhỏ, có thể dùng Mill với dao phay ngón gia công rất dễ dàng và chính xác trên máy phay CNC.
Có lẽ bạn nên post nguyên văn đề bài lên, các anh em sẽ có nhìn nhận tổng quát và chuẩn xác hơn để góp ý thêm cho bạn.
Về tài liệu MasterCAM (và cả AutoCAD lẫn Lisp) mình chẳng có cái gì ngoài cái Help của chính nó! Bạn chịu khó luyện kỹ năng đọc Help, khi dùng các phần mềm (bất kể loại gì), bạn sẽ không cần đến bất cứ tài liệu gì khác.
<<

Filename: 18849_cyc_run.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 17698
Tên lệnh: thongkemoc
Viết Lisp theo yêu cầu


Lệnh THONGKEMOC dưới đây sẽ thống kê tất cả các mốc theo định dạng bảng như bạn yêu cầu. Nó save dữ liệu vào định dạng CSV mà Excel đọc được. Bạn chạy lệnh ở ACAD sau đó mở file kết quả ở Excel.



Nếu bạn muốn import file CSV vào CAD, hãy dùng lisp của bạn Crazylisp ở đây:
>>

Filename: 17698_thongkemoc.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 17503
Tên lệnh: dn
Cần lisp đo khoảng cách và góc nghiêng đoạn thẳng


lệnh dn (đo nghiêng) dưới đây sẽ giúp bạn.

Filename: 17503_dn.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 16804
Tên lệnh: sgl
Nhờ chỉ giúp để Select đối tượng



lệnh SGL (select group last) dưới đây sẽ làm điều bạn muốn. Chương trình sẽ tìm kiếm và highlight các đối tượng vừa được tạo sau tập chọn Previous. Sẽ chọn các đối tượng vừa được tạo ra bằng lệnh copy, array hay mirror.


@ksgia: có thể bác chưa rõ khó khăn của bạn lengan. Vì khi sử dụng cách của bác sẽ bị lâu hơn và phải mất công explode.
@tranchan: lệnh...
>>


lệnh SGL (select group last) dưới đây sẽ làm điều bạn muốn. Chương trình sẽ tìm kiếm và highlight các đối tượng vừa được tạo sau tập chọn Previous. Sẽ chọn các đối tượng vừa được tạo ra bằng lệnh copy, array hay mirror.


@ksgia: có thể bác chưa rõ khó khăn của bạn lengan. Vì khi sử dụng cách của bác sẽ bị lâu hơn và phải mất công explode.
@tranchan: lệnh Lastn của bạn sẽ làm người sử dụng khó khăn trong trường hợp của lengan bởi vì họ phải quan tâm đến việc họ đã copy bao nhiêu đối tượng. Sẽ mất của họ một thao tác nhỏ là xem lại bao nhiêu đối tượng vừa được tạo ra (rất khổ khi dùng lệnh array 2 chiều).
<<

Filename: 16804_sgl.lsp
Tác giả: lysamtanhaccs4
Bài viết gốc: 17059
Tên lệnh: 1220 m10 m12 qd dm nn 11 33 1 2 3 4 5 6 7 q l ll lll dc 34 ca rt 12 22 mn cc df
lisp gỡ 1 lệnh thực hiện 2 lệnh đồng thời !

Cảm ơn bác ssg đã chỉ júp em. em cũng có sủa trên acad.pgp rồi nhưng làm thế rất rễ bị hư file gốc mà khi mình sang máy khác làm việc mà phải sửa lại acad.pgp thì mất thời jan lắm mà fải tắt cad rồi lại mở cad.nên em mới làm lisp mình chỉ cần cái USB hạng xoàng thôi có khi chỉ cái đĩa mềm là cứ việc coppy rồi paste sau đó apload là sài vi vu tội gì phải..........!
em đã phát...
>>

Cảm ơn bác ssg đã chỉ júp em. em cũng có sủa trên acad.pgp rồi nhưng làm thế rất rễ bị hư file gốc mà khi mình sang máy khác làm việc mà phải sửa lại acad.pgp thì mất thời jan lắm mà fải tắt cad rồi lại mở cad.nên em mới làm lisp mình chỉ cần cái USB hạng xoàng thôi có khi chỉ cái đĩa mềm là cứ việc coppy rồi paste sau đó apload là sài vi vu tội gì phải..........!
em đã phát triển khi tạo layer có thêm "LW" và sửa lại cái lisp như sau các Bác cho ý kiến nhé !~ :bigsmile:
ặc ặc "Xin lỗi,
Phần upload của diễn đàn đang tạm đóng để nâng cấp bảo mật!"
nên đành phải làm thế này thôi


<<

Filename: 17059_1220_m10_m12_qd_dm_nn_11_33_1_2_3_4_5_6_7_q_l_ll_lll_dc_34_ca_rt_12_22_mn_cc_df.lsp
Tác giả: ustoichivost
Bài viết gốc: 16779
Tên lệnh: liag
Kinh nghiệm sử dụng AutoCAD

Em nghĩ ở đây có thể dùng AutoLisp.Chẳng hạn :

Lisp này sẽ vẽ một đường thẳng, yêu cầu chỉ ra đoạn thẳng mà ta so góc lệch, sau đó chỉ ra 1 điểm của đoạn thẳng cần vẽ và độ dài của nó.


Filename: 16779_liag.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 16801
Tên lệnh: swb
Viết Lisp theo yêu cầu



lệnh SWB (SWap block) sẽ làm điều bạn muốn:

Filename: 16801_swb.lsp
Tác giả: tranchan
Bài viết gốc: 16803
Tên lệnh: lastn
Nhờ chỉ giúp để Select đối tượng


Tôi biết rồi sẽ có 1 ngày có người đề cập vấn đề này mà. Xin share cho anh em & bác Hoanh chiêu lastn của một expert tên là ZoTo




Sau khi copy xong, đánh lệnh LASTN và giả sử đối tượng đc copy ra là 1000 thì gõ lại 1000 thì sẽ chọn lại đc những đt mới đc copy. Thử rồi biết...

Ưu điểm : lỡ copy 1000 đè lên 5000 đối tượng khác thì ko cần undo...
>>


Tôi biết rồi sẽ có 1 ngày có người đề cập vấn đề này mà. Xin share cho anh em & bác Hoanh chiêu lastn của một expert tên là ZoTo




Sau khi copy xong, đánh lệnh LASTN và giả sử đối tượng đc copy ra là 1000 thì gõ lại 1000 thì sẽ chọn lại đc những đt mới đc copy. Thử rồi biết...

Ưu điểm : lỡ copy 1000 đè lên 5000 đối tượng khác thì ko cần undo mà gõ lastn và số lượng đt là lại move đi mà ko hề hấn gì. Lưu ý ko gõ lớn hơn số lượng đc copy vì nó sẽ chọn thừa ra...
Nhược điểm: về thao tác nếu trên diện tích vẽ rộng rãi ko đụng chạm gì thì cũng ko nhanh hơn vây chọn đt...
Chỉ để tham khảo...
<<

Filename: 16803_lastn.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 16768
Tên lệnh: scl
Thay đổi kích thước hang loạt của các đường line


Lệnh SCL - Scale Line dưới đây sẽ làm điều bạn muốn. Nó sẽ scale các line với điểm chèn là trung điểm và theo tỷ lệ bạn nhập vào.


Filename: 16768_scl.lsp
Tác giả: ketxu
Bài viết gốc: 167075
Tên lệnh: d1nil d2nil d3nil d4nil d5nil d6nil
Dim nhanh
Của bạn đây, hy vọng từ file này bạn có thể tạo thêm nhiều lệnh tắt khác theo ý mình, vì thực sự nó không khó chút nào
t

Filename: 167075_d1nil_d2nil_d3nil_d4nil_d5nil_d6nil.lsp
Tác giả: nguyenkhoadng
Bài viết gốc: 167103
Tên lệnh: cytroid
Lisp vẽ đường cong CYCLOID và TROCHOID
Mình đã tìm lisp này nhưng không thấy. Mình có tìm được tài liệu của BKDN hướng dẫn nhưng mình ko biết về viết lisp, copy vào thì ko dùng đc.
Nhờ các bạn trên cadviet viết giúp lisp này. hoặc xem lại hộ mình cái lisp này.
Mình cảm ơn!

Filename: 167103_cytroid.lsp
Tác giả: npham
Bài viết gốc: 166827
Tên lệnh: ai
Lisp lấy số liệu từ hộp thoại
Chào bạn !
Bạ thử đoạn code này xem. Kết quả ra 1 list cac giá trị đã chọn. Bạn có thể ghi ra text hoặc xử lý nó theo mong muốn.


Filename: 166827_ai.lsp
Tác giả: ketxu
Bài viết gốc: 166714
Tên lệnh: test
Chia khoảng cách giữa 2 donut

- Copy Array hoặc Divide donut vào khoảng giữa 2 donut được chọn

Filename: 166714_test.lsp
Tác giả: Thaistreetz
Bài viết gốc: 166726
Tên lệnh: vtl
lisp khoá và mở khoá khung viewport !
Hàm ST:VP-Toggle-DisplayLocked ngon quá! thank sờ kiu :D
Nhưng nên là thế này thì phù hợp với thói quen sử dụng hơn ketxu ạ

Filename: 166726_vtl.lsp
Tác giả: Tue_NV
Bài viết gốc: 166533
Tên lệnh: vdtl
Lisp vẽ tứ giác không đều

Không có gì đâu. Giúp được các bạn khác là 1 điều tốt mà
Tue_NV viết lại 1 tí, không phải sử dụng biến hệ thống nữa

Filename: 166533_vdtl.lsp
Tác giả: Tue_NV
Bài viết gốc: 166537
Tên lệnh: vdtl
Lisp vẽ tứ giác không đều

Của bạn đây :

Filename: 166537_vdtl.lsp
Tác giả: Tue_NV
Bài viết gốc: 166507
Tên lệnh: vdtl
Lisp vẽ tứ giác không đều

Đây, các thông số cố định như hình của bạn :

Các thông số thay đổi, bạn dựa vào code trên mà thay đổi cho phù hợp nhé
Chúc thành công

Filename: 166507_vdtl.lsp

Trang 25/330

25