Lisp tạo nhanh Linetype

[Duong Nhat Duy 302]

Chia sẻ đến các bạn 1 lisp tạo nét (Linetype) nhanh, khai báo đơn giản và load ngay trên bản vẽ.

 

Công dụng:

Tạo kiểu nét (Linetype) theo định dạng: -----   TEXT   -----   TEXT   -----

Lisp không tạo được kiểu nét theo các định dạng khác, đối với những định dạng phức tạp, các bạn có thể dùng lệnh MKLTYPE hoặc tạo bằng file .lin

Lisp tạo được file .lin và có thể load ngay kiểu nét vừa tạo vào bản vẽ mà không cần dùng lệnh LINETYPE

 

Tên lệnh: MKL

Cách dùng: Khai báo như hình và chọn "Tạo Linetype"

 

Dưới đây là 1 số kiểu nét Lisp có thể tạo:

 

File lisp:

(11/04/24): [MKL] Tao nhanh linetype v1.01.lsp

 

Chúc các bạn thành công :))

[Do Minh Ngoc 0]

Bạn này chăm ra video quá nhờ =)))

[limfx 21]

Cảm ơn anh nhiều!

[HoaiAn2019 2]

Thả like

[kieutrang 1]

Like nhiệt tình.
Cảm ơn bác

[kieutrang 1]

Bác có thể thêm giúp em lựa chọn nhanh đường dẫn đến vị trí đang lưu file hiện hành đang mở không?
Cảm ơn bác.

[xhxd 0]

Vào lúc 6/10/2023 tại 21:24, Duong Nhat Duy đã nói:

Chia sẻ đến các bạn 1 lisp tạo nét (Linetype) nhanh, khai báo đơn giản và load ngay trên bản vẽ.

 

Công dụng:

Tạo kiểu nét (Linetype) theo định dạng: -----   TEXT   -----   TEXT   -----

Lisp không tạo được kiểu nét theo các định dạng khác, đối với những định dạng phức tạp, các bạn có thể dùng lệnh MKLTYPE hoặc tạo bằng file .lin

Lisp tạo được file .lin và có thể load ngay kiểu nét vừa tạo vào bản vẽ mà không cần dùng lệnh LINETYPE

 

Tên lệnh: MKL

Cách dùng: Khai báo như hình và chọn "Tạo Linetype"

 

Dưới đây là 1 số kiểu nét Lisp có thể tạo:

 

File lisp:

(06/10/23): Tao nhanh linetype v1.00.lsp

 

Chúc các bạn thành công :))

Cám ơn bạn nhiều, đã chia sẻ

[Duong Nhat Duy 302]

Vào lúc 11/10/2023 tại 19:03, kieutrang đã nói:

Bác có thể thêm giúp em lựa chọn nhanh đường dẫn đến vị trí đang lưu file hiện hành đang mở không?
Cảm ơn bác.

Bạn tìm đến dòng : (setq 3DUY-MKLT-PATH (strcat "C:\\Users\\" (getvar 'LOGINNAME) "\\Desktop\\")) và sửa nó thành (setq 3DUY-MKLT-PATH (getvar 'DWGPREFIX))

[cuongtk2 342]

Đây là linetype được tạo bởi lệnh MKLTYPE, biểu diễn đường 35KV, 2 dây "//".

Các thành phần: 2 đường line màu đỏ, 2 text màu trắng height=3.0

Đường màu cyan có linetype đã tạo. 

Phía dưới là file linetype được tạo từ lệnh trên, được mở bằng notepad, cho thấy các thông số tương ứng.

A: (Chưa rõ)Có thể là mục linetype đầu tiên trong file

15: khoảng vẽ liền

-1.2: khoảng đứt , ký hiệu bằng dấu -

["//",Standard,y=-1.5,s=3,u=0] : nội dung, font style, độ lệch Y so với đường Start-End, U (chưa rõ)có thể là rotation của text.

[Duong Nhat Duy 302]

1 giờ trước, cuongtk2 đã nói:

Đây là linetype được tạo bởi lệnh MKLTYPE, biểu diễn đường 35KV, 2 dây "//".

Các thành phần: 2 đường line màu đỏ, 2 text màu trắng height=3.0

Đường màu cyan có linetype đã tạo. 

Phía dưới là file linetype được tạo từ lệnh trên, được mở bằng notepad, cho thấy các thông số tương ứng.

A: (Chưa rõ)Có thể là mục linetype đầu tiên trong file

15: khoảng vẽ liền

-1.2: khoảng đứt , ký hiệu bằng dấu -

["//",Standard,y=-1.5,s=3,u=0] : nội dung, font style, độ lệch Y so với đường Start-End, U (chưa rõ)có thể là rotation của text.

Cụ thể nó là như này anh:

A: ký tự đầu tiên và bắt buộc, cad nó quy định vậy, ngoài ra không con ký tự nào khác

15: khoảng nét liền

-1.2: khoảng trắng

x,y: độ lệch phương x,y đến điểm đặt chữ (căn lề chữ mặc định là Left và không sửa được)

s: cao chữ

r: góc xoay của chữ

u: cái này đc bổ sung từ cad10 hay 13 gì đó, nhập u=0 thì chữ nó không bị xoay ngược khi hướng pline đi từ phải sang trái

[KSDELTATTS 0]

Vào lúc 6/10/2023 tại 21:24, Duong Nhat Duy đã nói:

Chia sẻ đến các bạn 1 lisp tạo nét (Linetype) nhanh, khai báo đơn giản và load ngay trên bản vẽ.

 

Công dụng:

Tạo kiểu nét (Linetype) theo định dạng: -----   TEXT   -----   TEXT   -----

Lisp không tạo được kiểu nét theo các định dạng khác, đối với những định dạng phức tạp, các bạn có thể dùng lệnh MKLTYPE hoặc tạo bằng file .lin

Lisp tạo được file .lin và có thể load ngay kiểu nét vừa tạo vào bản vẽ mà không cần dùng lệnh LINETYPE

 

Tên lệnh: MKL

Cách dùng: Khai báo như hình và chọn "Tạo Linetype"

 

Dưới đây là 1 số kiểu nét Lisp có thể tạo:

 

File lisp:

(06/10/23): Tao nhanh linetype v1.00.lsp

 

Chúc các bạn thành công :))

Chào Anh, link lỗi rồi ạ; có thể cho e xin lại được không.Tks!

 

[Nguyencong chuan 3]

Bác sửa cho Autocad 2007 dùng nữa đc k ạ

[Duong Nhat Duy 302]

Vào lúc 16/3/2024 tại 10:23, Nguyencong chuan đã nói:

Bác sửa cho Autocad 2007 dùng nữa đc k ạ

Bạn gặp lỗi ở đâu, mình test trên CAD07 thấy bình thường mà

[Nguyencong chuan 3]

Lỗi ntn bác ơi

[Duong Nhat Duy 302]

Vào lúc 23/3/2024 tại 09:38, Nguyencong chuan đã nói:

Lỗi ntn bác ơi

Mình đã sửa lại rồi, bạn down lại trên đầu topic nhé

[amateurday 15]

1 giờ trước, Duong Nhat Duy đã nói:

Mình đã sửa lại rồi, bạn down lại trên đầu topic nhé

Có lẽ bạn thêm "Cao chữ" vào cuối nữa thì đường sẽ đẹp hơn ấy:

*zzz,
A,5,0,["zzz",Standard,s=1,x=0,y=-0.5,u=0],1

[Duong Nhat Duy 302]

2 giờ trước, amateurday đã nói:

Có lẽ bạn thêm "Cao chữ" vào cuối nữa thì đường sẽ đẹp hơn ấy:

*zzz,
A,5,0,["zzz",Standard,s=1,x=0,y=-0.5,u=0],1

Cái này để mình xem lại, trường hợp ko có khoảng trắng, lúc đầu viết mình đã chủ ý để kiểu A,2.5,0,["zzz",Standard,s=1,x=0,y=-0.5,u=0],2.5 rồi mà ko hiểu sao h test lại lại ko được như ý muốn.