Jump to content
InfoFile
Tác giả: Tue_NV
Bài viết gốc: 57293
Tên lệnh: brt
Cad có lênh này không?


Đây là Lisp Tue_nv đã viết và chỉnh sửa lại một chút :
- Lệnh Brt
- Chọn đường cắt bằng cách chọn 2 điểm
- Chọn đối tượng
- Lisp sẽ break tại điểm giao của đường cắt với đối tượng
Giống như cách chọn đối tượng theo kiểu F(Fence)

Các bạn có thể tham khoả thêm bài viết : Hoi ve lenh Break
Chúc thành công
>>

Đây là Lisp Tue_nv đã viết và chỉnh sửa lại một chút :
- Lệnh Brt
- Chọn đường cắt bằng cách chọn 2 điểm
- Chọn đối tượng
- Lisp sẽ break tại điểm giao của đường cắt với đối tượng
Giống như cách chọn đối tượng theo kiểu F(Fence)

Các bạn có thể tham khoả thêm bài viết : Hoi ve lenh Break
Chúc thành công :(
<<

Filename: 57293_brt.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 5780
Tên lệnh: centroid
tìm trọng tâm của 1 đối tượng kín


Để làm gì vậy bạn?

Cách xác định như sau:
- Nếu đối tượng kín là region, bạn dùng lệnh massprop sẽ biết được tọa độ Centroid của đối tượng.
- Nếu đối tượng kín chưa là region, hãy dùng lệnh region để convert nó thành region rồi thực hiện bước trên.

lệnh centroid dưới đây sẽ yêu cầu người dùng chọn 1 region hoặc 3dsolid, chương trình sẽ vẽ một...
>>

Để làm gì vậy bạn?

Cách xác định như sau:
- Nếu đối tượng kín là region, bạn dùng lệnh massprop sẽ biết được tọa độ Centroid của đối tượng.
- Nếu đối tượng kín chưa là region, hãy dùng lệnh region để convert nó thành region rồi thực hiện bước trên.

lệnh centroid dưới đây sẽ yêu cầu người dùng chọn 1 region hoặc 3dsolid, chương trình sẽ vẽ một điểm point vào tọa độ trọng tâm của nó:

<<

Filename: 5780_centroid.lsp
Tác giả: nataca
Bài viết gốc: 57085
Tên lệnh: cdm
Lisp gán text vào polyline

Bạn dùng cái này xem:

Các hàm con của chương trình này bạn download tại đây

Filename: 57085_cdm.lsp
Tác giả: q288
Bài viết gốc: 57251
Tên lệnh: ch3
Viết lisp chia đoạn thẳng thành 3 phần


Mình sửa lại ct như sau, chạy trên file của bạn tdvn thấy ngon lành tuy có hơi lâu một chút vì phải cắt nhiều quá.


Filename: 57251_ch3.lsp
Tác giả: thanhlamct
Bài viết gốc: 5690
Tên lệnh: co
Lisp tăng số trong text nhưng chỉ được tối đa 100

Mình đã chỉnh lại, copy đến 999..

Filename: 5690_co.lsp
Tác giả: Tue_NV
Bài viết gốc: 56941
Tên lệnh: stext
Dãn các dòng text đều nhau

Bạn phải đọc cho kỹ từng trang chứ?
Lệnh Stext của bác Hoành đây bạn :

Filename: 56941_stext.lsp
Tác giả: thanhlamct
Bài viết gốc: 5702
Tên lệnh: co
Tác giả: ainhandilac
Bài viết gốc: 5683
Tên lệnh: cp ktd
Lisp tăng số trong text nhưng chỉ được tối đa 100
thứ nhất cái lệnh copy text chỉ tăng đến 100 là dừng, nhờ các thí chủ hiệu chỉnh lại hộ

Filename: 5683_cp_ktd.lsp
Tác giả: Phiphi-
Bài viết gốc: 56883
Tên lệnh: scissors
Cad có lênh này không?

* Với AutoCAD thì dùng Break at point có trên thanh Modify:
+ Chọn đối tượng
+ Chọn giao điểm
* Với LISP:
+ Lệnh SCISSORS
+ Chọn giao điểm
+ Chọn đối tượng
(Bác nào có thể giúp sửa Lisp này để có thể select được nhiều đối tượng. Thx)
Lisp sưu tầm:

Filename: 56883_scissors.lsp
Tác giả: Tue_NV
Bài viết gốc: 56535
Tên lệnh: cdc
Hỏi cách chuyển đổi vị trí tọa độ đầu cuối của 1 polyline

Bạn hãy sử dụng lại lệnh Align xem sao. Bạn binharch77 nói đúng đó.
Nếu sử dụng Lisp thì Code đây :

Filename: 56535_cdc.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 56571
Tên lệnh: rep
Hỏi cách chuyển đổi vị trí tọa độ đầu cuối của 1 polyline
Có thể Doanduyhung lấy ví dụ không điển hình nên mọi người đã hiểu nhầm. Trong một số trường hợp, chiều của polyline (liên quan đến điểm xuất phát của polyline) là quan trọng. Với polyline chỉ gồm 2 điểm thì đơn giản là rotate 180 độ tại trung điểm là coi như xong. Nhưng với polyline có nhiều điểm hơn thì không làm được như vậy, nếu rotate (hay align) thì chiều polyline thay đổi nhưng kéo...
>>
Có thể Doanduyhung lấy ví dụ không điển hình nên mọi người đã hiểu nhầm. Trong một số trường hợp, chiều của polyline (liên quan đến điểm xuất phát của polyline) là quan trọng. Với polyline chỉ gồm 2 điểm thì đơn giản là rotate 180 độ tại trung điểm là coi như xong. Nhưng với polyline có nhiều điểm hơn thì không làm được như vậy, nếu rotate (hay align) thì chiều polyline thay đổi nhưng kéo theo các đỉnh cũng bị dịch chuyển so với hình gốc.

Các bạn thử dùng lisp này xem sao. Lệnh là REP (REverse Polyline)

Lisp này chỉ áp dụng cho các polyline không chứa arc.
<<

Filename: 56571_rep.lsp
Tác giả: tdvn
Bài viết gốc: 56373
Tên lệnh: dvac
Xuất file *.txt cho chiều dài các cạnh

Xin phép bác Nguyen Hoanh cho mình viết cái lisp này giúp bạn 'thuong_mdc80' nhé.

lisp này mặc ðịnh ðộ dài cần 2 số lẽ và ðộ cao text =2. Nếu bạn không thích có thể chỉnh lại
Thýờng thì mình thấy ngýời ta có yêu cầu cả tọa ðộ nhýng bác chỉ cần cạnh. Bác xem thử có ðc 0 nhé

Filename: 56373_dvac.lsp
Tác giả: Tue_NV
Bài viết gốc: 56470
Tên lệnh: boh
Tạo boundary cho đa giác hở

nhưng với cad 2004, 2005 thì bó tay vì cái lệnh "-h" của cad này ko ra những lựa chọn như lệnh "-hatch" của 2007. Bạn có thể nói rõ cái ý này được không? . Tue_NV đang sử dụng CAD2004
Đoạn Code sau tạo boundary cho đa giác "hở". Hy vọng chạy đúng ý bạn:

PS : Nói tạo tạo boundary cho đa giác "hở" thì không đúng. Vì tạo boundary trên một đa giác kín trên cơ sở extend các đường...
>>

nhưng với cad 2004, 2005 thì bó tay vì cái lệnh "-h" của cad này ko ra những lựa chọn như lệnh "-hatch" của 2007. Bạn có thể nói rõ cái ý này được không? . Tue_NV đang sử dụng CAD2004
Đoạn Code sau tạo boundary cho đa giác "hở". Hy vọng chạy đúng ý bạn:

PS : Nói tạo tạo boundary cho đa giác "hở" thì không đúng. Vì tạo boundary trên một đa giác kín trên cơ sở extend các đường hở để tạo thành các đường kín.
Hy vọng code chạy đúng ý bạn.
Chúc thành công nhé :cheers:
<<

Filename: 56470_boh.lsp
Tác giả: q288
Bài viết gốc: 56312
Tên lệnh: sx
Cho em hỏi về lisp sắp xếp text


Nếu muốn gióng text theo phương đứng thì text phải ở chế độ left hay right thì mới thẳng hàng đc. Mình sửa lại lisp của bạn để chuyển các dòng bên dưới về left rồi gióng, bạn xem có đúng ý bạn ko.


Filename: 56312_sx.lsp
Tác giả: q288
Bài viết gốc: 56354
Tên lệnh: aw ac
hàm hay mới down
Mình mới down về 1 cái lisp thấy cũng hay hay, không biết đã có ở forum này chưa, nhưng cũng fổ biến cho ae ai thấy xài đc thì cứ xài. Ct này dùng để chọn object (tức là khi có dòng "select objects:"). Thông thường ta có các tuỳ chọn "w" (window) , "c" (crossing) , "f" (fence) nhưng ở đây có thêm 'aw (angular window) va 'ac (angular crossing) cho phép chọn theo 1 tứ giác xiên. Chú ý là phải có dấu ' trước aw và ac....
>>
Mình mới down về 1 cái lisp thấy cũng hay hay, không biết đã có ở forum này chưa, nhưng cũng fổ biến cho ae ai thấy xài đc thì cứ xài. Ct này dùng để chọn object (tức là khi có dòng "select objects:"). Thông thường ta có các tuỳ chọn "w" (window) , "c" (crossing) , "f" (fence) nhưng ở đây có thêm 'aw (angular window) va 'ac (angular crossing) cho phép chọn theo 1 tứ giác xiên. Chú ý là phải có dấu ' trước aw và ac. Các bạn thử dùng xem sao, code như sau:


<<

Filename: 56354_aw_ac.lsp
Tác giả: Tue_NV
Bài viết gốc: 55887
Tên lệnh: brt
Hỏi về lệnh Break

Bạn sử dụng Code sau :
Lisp yêu cầu :
1. Chọn hàng rào là 1 đoạn thẳng bằng cách Pick điểm thứ nhất và điểm thứ hai
2. Chọn đối tượng cần break
Sau khi chạy Lisp xong sẽ break đối tượng được chọn tại điểm giao của hàng rào với đối tượng
Đối tượng được chọn là Line và Polyline thẳng

Có gì vướng mắc bạn cứ post lên đây, Tue_NV sẽ sửa

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

Chương trình vẽ EpiCycloid tổng quát:



Kết quả chạy minh hoạ:
http://www.cadviet.com/upfiles/EpiCycTQ.jpg

Muốn làm dạng HypoCycloid, sửa các phương trình x(a), y(a) trong các biểu thức có hàm C:CAL. Chú ý: đối số của C:CAL là string, biểu diễn biểu thức toán học theo cách viết thông thường.
Không riêng gì HypoCycloid, nói chung các dạng đồ thị khác (theo tham số...
>>

Chương trình vẽ EpiCycloid tổng quát:



Kết quả chạy minh hoạ:
http://www.cadviet.com/upfiles/EpiCycTQ.jpg

Muốn làm dạng HypoCycloid, sửa các phương trình x(a), y(a) trong các biểu thức có hàm C:CAL. Chú ý: đối số của C:CAL là string, biểu diễn biểu thức toán học theo cách viết thông thường.
Không riêng gì HypoCycloid, nói chung các dạng đồ thị khác (theo tham số góc quay a) cũng chỉ sửa như trên.

Enjoy!
<<

Filename: 55841_cyc.lsp
Tác giả: q288
Bài viết gốc: 55358
Tên lệnh: td
Tìm giá trị trong tập hợp dim và zoom đến đối tượng


Ct sau đây chắc cũng phù hợp với yêu cầu của bạn.


Filename: 55358_td.lsp
Tác giả: ssg
Bài viết gốc: 5558
Tên lệnh: oo
Lệnh offset đặc biệt

Chương trình "mini" này chắc hợp ý bạn:


Filename: 5558_oo.lsp
Tác giả: Tue_NV
Bài viết gốc: 55311
Tên lệnh: chia
Lisp nhân giá trị text với 1 hệ số

Thay vì Thanks nhiều -> bạn hãy tick thanks nhiều nhiều. Tue_NV thích được tick thanks nhiều nhiều lắm. :cheers:
Đây bạn. Code của bạn được sửa xong. Đây là Lisp chia số Tue_NV bổ sung thêm vào số lẻ thập phân do user nhập vào

Filename: 55311_chia.lsp

Trang 13/330

13