Jump to content
InfoFile
Tác giả: Tue_NV
Bài viết gốc: 62665
Tên lệnh: sct
Cách scale nhiều đối tượng một lúc?


Tue_NV đồng ý với ý kiến của anh Duy782006.
Đây là lisp scale tất cả đường tròn cùng một lúc nhưng có tâm scale là tâm của từng đường tròn

:s_big:

Filename: 62665_sct.lsp
Tác giả: Tue_NV
Bài viết gốc: 62294
Tên lệnh: dtt
Căn đối tượng Text vào giữa tâm đường tròn


Tue_NV xin bổ sung vào đoạn Lisp của bác Bemove do bạn Hai1401 đưa lên
thêm chức năng căn text vào tâm hình tròn
Kết hợp Lisp của Bác Bemove và của Tue_NV :

:s_big:

Filename: 62294_dtt.lsp
Tác giả: q288
Bài viết gốc: 61824
Tên lệnh: ist
viết chữ theo đường thẳng bất kỳ bằng auto Lisp



Mình sửa lại như sau, tên lệnh đổi lại là ist vì int trùng với intersect của acad. Cao chữ nhập 1 lần, lần sau nếu k muốn đổi thì enter.

Filename: 61824_ist.lsp
Tác giả: Tue_NV
Bài viết gốc: 61932
Tên lệnh: bdii
khi Cắt Dim để lại phần chân Dim dài bằng nhau !!!

Bạn sử dụng cái này coi sao :

:s_big:

Filename: 61932_bdii.lsp
Tác giả: Tue_NV
Bài viết gốc: 62129
Tên lệnh: ofs
Viết Lisp theo yêu cầu

Để viết được bài viết này cho phép Tue_NV xin cảm ơn anh giabach rất nhiều vì bài viết của anh đã giúp Tue_NV hoàn thành đoạn Lisp này :
Chấp nhận các đối tượng là Curve

Bạn chạy thử và cho biết ý kiến nhé :s_big:

Filename: 62129_ofs.lsp
Tác giả: q288
Bài viết gốc: 61630
Tên lệnh: int
viết chữ theo đường thẳng bất kỳ bằng auto Lisp

Bạn thử dùng cái này xem. Kiểu chữ và chiều cao chữ do bạn chọn trước khi vào lệnh.

Filename: 61630_int.lsp
Tác giả: q288
Bài viết gốc: 61704
Tên lệnh: int
viết chữ theo đường thẳng bất kỳ bằng auto Lisp


Bạn thử cái này xem sao, nếu k muốn chèn nữa thì enter hơn là esc, vì esc làm thoát lệnh giữa chừng sẽ mất osnap.

Filename: 61704_int.lsp
Tác giả: q288
Bài viết gốc: 61754
Tên lệnh: thd
Viết Lisp theo yêu cầu


Bạn dùng cái này thử.

Filename: 61754_thd.lsp
Tác giả: Tue_NV
Bài viết gốc: 61484
Tên lệnh: ltt
Lisp làm tròn số ( là Text) trong CAD ???????

Tue_NV vẫn chưa hiểu là trong bản vẽ của bạn vừa có cả số thập phân (0.34) và có cả số %(0.34) hay không?. Vì bạn chưa nói rõ

Thế này nhé :
Tue_NV sẽ lược bỏ theo ý của bạn : 0.34% -> thì kết qủa giữ nguyên = 0.34
Nếu số 2.00% thì bỏ bớt số phía sau đi = 2

Còn đuôi % thì bạn sử dụng Lisp thêm Text thêm vào vậy vì lí do :

Tue_NV vẫn chưa...
>>

Tue_NV vẫn chưa hiểu là trong bản vẽ của bạn vừa có cả số thập phân (0.34) và có cả số %(0.34) hay không?. Vì bạn chưa nói rõ

Thế này nhé :
Tue_NV sẽ lược bỏ theo ý của bạn : 0.34% -> thì kết qủa giữ nguyên = 0.34
Nếu số 2.00% thì bỏ bớt số phía sau đi = 2

Còn đuôi % thì bạn sử dụng Lisp thêm Text thêm vào vậy vì lí do :

Tue_NV vẫn chưa hiểu là trong bản vẽ của bạn vừa có cả số thập phân (0.34) và có cả số % (0.34%) hay không?
Vì bạn chưa nói rõ

Code này có chỉnh lại Lisp của bác ssg 1 chút :

:s_big:
<<

Filename: 61484_ltt.lsp
Tác giả: Tue_NV
Bài viết gốc: 61549
Tên lệnh: ofs
Viết Lisp theo yêu cầu

Bạn sử dụng đoạn Code này xem :

Filename: 61549_ofs.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 6052
Tên lệnh: tron
Viết Lisp theo yêu cầu


Lệnh là TRON

Filename: 6052_tron.lsp
Tác giả: Tue_NV
Bài viết gốc: 60933
Tên lệnh: gchu
Tác giả: Tue_NV
Bài viết gốc: 61087
Tên lệnh: nn
Viết Lisp theo yêu cầu

Bạn thử cái này xem :

Filename: 61087_nn.lsp
Tác giả: ssg
Bài viết gốc: 60491
Tên lệnh: rp
Thay đổi máy in
Cám ơn các bạn đã quan tâm!

@elle
Plot Scale trong loạt bản vẽ của ssg nói chung là rất khác nhau, không chơi kiểu Previous được!

@Xuân Hậu
Trong máy ssg cài cả 2 bản 2002 và 2007. Tuy nhiên, vì nhiều lý do khác nhau (rất chính đáng) nên trong công việc, ssg vẫn dùng bản 2002. Bản 2007 chỉ để "ngâm cứu" thôi! Ssg cũng chưa thử với 2007 có đáp ứng được không...
>>
Cám ơn các bạn đã quan tâm!

@elle
Plot Scale trong loạt bản vẽ của ssg nói chung là rất khác nhau, không chơi kiểu Previous được!

@Xuân Hậu
Trong máy ssg cài cả 2 bản 2002 và 2007. Tuy nhiên, vì nhiều lý do khác nhau (rất chính đáng) nên trong công việc, ssg vẫn dùng bản 2002. Bản 2007 chỉ để "ngâm cứu" thôi! Ssg cũng chưa thử với 2007 có đáp ứng được không nữa.

Ssg đã giải quyết vấn đề trên bằng Lisp. Bạn nào quan tâm có thể tham khảo:



Dùng tốt, chỉ có chỗ chưa hài lòng lắm là biến MyPrinter phải làm thủ công, đang thử tìm cách lấy tự động nhưng chưa được. Tạm thời chấp nhận như vậy (ssg đang còn rất nhiều việc khác phải làm).
Bạn nào biết cách lấy thông tin này xin chỉ giúp (tên máy in đang "Set As Default" trong Control Panel của System)
Cám ơn.
<<

Filename: 60491_rp.lsp
Tác giả: q288
Bài viết gốc: 60264
Tên lệnh: ld
Sửa giúp lisp



Cũng đơn giản thôi bạn à, chỉ cần thêm if vào là đc, như sau:

Filename: 60264_ld.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 6039
Tên lệnh: giao
Giúp Tìm Giao Điểm Polyline

Lệnh GIAO dưới đây sẽ vẽ các điểm point vào giao điểm của 2 đối tượng.


Filename: 6039_giao.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 6023
Tên lệnh: cinvis%09
Viết Lisp theo yêu cầu
Lệnh CINVIS dưới đây giống lệnh INVIS ở trên nhưng ẩn đối tượng theo màu.


Filename: 6023_cinvis%09.lsp
Tác giả: Tue_NV
Bài viết gốc: 60255
Tên lệnh: scd
Viết Lisp theo yêu cầu

Hy vọng lần này thì bạn hài lòng :

:mellow:

Filename: 60255_scd.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 6026
Tên lệnh: ll ss
Viết Lisp theo yêu cầu

Tên lệnh là LL và SS

Filename: 6026_ll_ss.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 59909
Tên lệnh: t2u
chuyển bảng mã từ TCVN3 sang UNICODE

Bạn dùng lệnh T2U (TCVN3 to Unicode)

Filename: 59909_t2u.lsp

Trang 11/301

11