dim Lisp Dim hàng loạt (dim qua giao cắt, block, bán kính, vát góc, ...)

[united 8]

Cho em xin ạ: ACE4_2E00_3B05_7040_2EE4_AC00_0000_0001

Tks anh!

[maivinh1302 0]

cho minh xin với ban ơi. mã máy: LJ9457J007635

[PHAPLUONG 4]

cho mình xin với: E823_8FA6_BF53_0001_001B_444A_4824_4281

Cảm ơn bạn nhiều!

[propc 0]

mã máy mình : ZN1XF12H

thanks bạn

[phamtrieu3105 0]

0025_38D7_21A6_696A 

Mã máy của em nhờ anh kích hoạt dùm em ạ

[2Mhouse 0]

bạn cho mình xin với ạ, mã máy của mình là : 6479_A715_8077_A9F0.

cảm ơn bạn nhiều

[datvo 0]

Vào lúc 8/5/2024 tại 10:40, Duong Nhat Duy đã nói:

Gửi đến các bạn 1 lisp Dim tự động, có thể dim hàng loạt các đối tượng theo các yêu cầu đề bài khác nhau (ví dụ: dim qua giao cắt, block; dim bán kính, vát góc; ...)

Tên lệnh:

     DIMTL - Thiết lập (Dimstyle, layer, khoảng cách chữ đến chân dim, ...)

     DIMLA - Thiết lập dim tự động theo layer

     DA1 - Dim chiều dài các đối tượng riêng lẻ

     DA2 - Dim chiều dài các đối tượng qua giao điểm, điểm đặt Block

     DA3 - Dim chiều dài các đối tượng qua các điểm tùy chọn

     DQ1 - Dim chiều dài giữa 2 đầu đối tượng (tổng chiều dài từng đối tượng)

     DQ2 - Dim chiều dài giữa 2 đầu đối tượng (tổng chiều dài từng đối tượng)

     DB1 - Dim khoảng cách giữa các Block

     VG - Dim vát góc

     DAR1 - Dim chiều dài cung

     DRA1 - Dim bán kính cung

     DLI1 - Dim Linear qua các giao điểm giữa 2 điểm chọn

     DAL1 - Dim Aligned qua các giao điểm giữa 2 điểm chọn

     DCD - Dim khoảng cách giữa 2 điểm chọn

     ?? - Hiển thị bảng tên lệnh

 

Hướng dẫn chi tiết các lệnh:

 

Hướng dẫn thiết lập

- DIMTL: Thiết lập thông số

Có thể bỏ qua, lisp sẽ tự động lấy theo các giá trị mặc định

 

   + Khoảng cách offset: Khoảng cách từ chân dim đến đỉnh dim

Áp dụng cho tất cả các lệnh dim, trừ những lệnh chỉ định trực tiếp đỉnh dim như: DLI1, DAL1

 

   + Khoảng giữa các dim: Khoảng cách giữa dim thành phần và dim tổng. Áp dụng cho các lệnh: DLI1, DAL1

   + Sai số khoảng cách: Sai số để nhận biết giao điểm, nên nhập xấp xỉ cao chữ. Áp dụng cho các lệnh DA2, DA3

   + Các giá trị tối thiểu, tối đa: Nếu khoảng cách cần dim vượt quá các giá trị này thì sẽ không dim

 

- DIMLA: Thiết lập dim tự động

Style, layer, tiền tố, hậu tố của dim tùy biến theo layer của các đối tượng cần dim

 

Ví dụ minh họa:

- DA1: Dim chiều dài các đối tượng riêng lẻ (Line, Pline, Arc), cong dim cong, thẳng dim thẳng

 

- DA2: Dim chiều dài các đối tượng qua giao điểm, điểm đặt Block

(ngoài ra dim tự động ngắt tại đỉnh pline)

 

- DA3: Dim chiều dài các đối tượng qua các điểm tùy chọn

(vị trí ngắt dim có thể chọn 1 hoặc nhiều các option bên dưới)

 

- DQ1, DQ2: Dim chiều dài giữa 2 đầu đối tượng (tổng chiều dài từng đối tượng)

Lưu ý: ở ví dụ bên dưới, kiểu dim hiện hành là dim không có "Dim line 2" nên trông giống như mũi tên, bản chất vẫn là dim bình thường. Lệnh DQ2 có tác dụng đảo ngược hướng mũi tên này. Ngoài ra, nếu dùng các kiểu dim thông thường thì 2 lệnh này cho ra 1 kết quả như nhau.

 

- DB1: Dim khoảng cách giữa các Block

Có thể lựa chọn thứ tự từ trên xuống dưới, phải qua trái, thứ tự pick chọn,...

 

- VG: Dim vát góc

Lưu ý nhập chiều dài vát góc tối đa trong lệnh TL, để tránh dim nhầm các vị trí không phải vát góc

 

- DAR1: Dim chiều dài cung (dùng cho cả Arc và Pline có chứa cung)

 

- DRA1: Dim bán kính cung (dùng cho cả Arc và Pline có chứa cung)

Lưu ý khai báo bán kính tối thiểu, tối đa trong lệnh TL

 

- DLI1: Dim Linear qua các giao điểm giữa 2 điểm pick chọn

 

- DAL1: Dim Aligned qua các giao điểm giữa 2 điểm pick chọn

Lưu ý: ở ví dụ bên dưới, muốn dim theo phương vuông góc với các đường màu xanh, ta bắt điểm vuông góc với nó là được

 

- DCD: Dim khoảng cách giữa 2 điểm pick chọn.

Lệnh này thì đơn giản không có gì để mô tả :)). Lưu ý: có thể nhập khoảng cách điểm thứ 2 so với điểm thứ nhất tùy ý.

 

Lưu ý:

Lisp khá đồ sộ nên mình không share mã nguồn.

Để sử dụng lisp các bạn vui lòng gửi Mã máy (thông báo hiện lên ngay sau khi load lisp), có thể gửi trên forum hoặc qua zalo mình: 0922161194.

Mã máy sau khi được kích hoạt là có thể dùng được ngay, ai gửi mã mà chưa thấy mình phản hồi thì thỉnh thoảng cứ load thử lại lisp, dùng được nghĩa là mình đã kích hoạt rồi.

Hiện tại các bản có thể dùng thử free toàn bộ tính năng, nếu ưng ý thì có thể mua vĩnh viễn.

 

Link download:

https://drive.google.com/drive/u/1/folders/1tAt7uRmllwFAd0UJf6hf-5FnzAI55IDA

 

Change log:

- v1.00 (16/11/23): Phiên bản đầu tiên

- v1.01 (10/04/24):
   + TL: Sửa lại giao diện bảng thiết lập dễ dùng hơn

- v1.02 (29/04/24):
   + Thêm lệnh: DLI1, DAL1, DB1
   + DCD: Sửa lỗi không nhập được khoảng cách

- v1.03 (22/07/24):
   + Sửa lỗi không nhận key

- v1.04 (15/08/24):
   + Sửa tên lệnh: TL->DIMTL; TLD->DIMLA để hạn chế trùng tên lệnh với một số lisp khác
   + Miễn phí sử dụng các lệnh: DLI1, DAL1, DB1

- v1.05 (16/09/24):
   + Sửa lỗi không hiển thị mã máy

 

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

 

Bác cho mình xin key nhé. Cảm ơn bác nhiều. Mã máy mình: LKD288R012225

[nhatkien25 0]

Mã máy của mình: WD-WCATRC559933
lips hay quá, mình muốn dùng thử, cảm ơn bác

[thu hien1921 0]

Bạn cho mình xin với ạ. Mã máy mình là : WX51E68DRKEX
Cảm ơn bạn nhiều

[manhthuong625 0]

Mã máy mình: E823_8FA6_BF53_0001_001B_448B_4B98_2A76

Cảm ơn bác đã hỗ trợ!

[AnhKS2 0]

Dạ bác ơi,　bác có thể thêm tính năng dim khoảng cách giữa 2 polyline cứ mỗi độ rộng khác nhau 1 dim như hình dưới được không ạ.
Mong bác phản hồi.
  

[Nam Khanh 0]

Mã máy của mình: 685995B5-A050-4CB6-B14E-67FC5DBC4DEE

cho mình xin cảm ơn bạn!

 

[Duong Nhat Duy 388]

3 giờ trước, AnhKS2 đã nói:

Dạ bác ơi, bác có thể thêm tính năng dim khoảng cách giữa 2 polyline cứ mỗi độ rộng khác nhau 1 dim như hình dưới được không ạ.
Mong bác phản hồi.

Cái này giả sử bạn có thuê chắc mình cũng chưa viết nổi nói gì viết free, trông thế mà lằng nhằng lắm đó bạn.

 

@P/S: mình đã kích hoạt các mã máy bên trên rồi nhé !

[AnhKS2 0]

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

Cái này giả sử bạn có thuê chắc mình cũng chưa viết nổi nói gì viết free, trông thế mà lằng nhằng lắm đó bạn.

 

@P/S: mình đã kích hoạt các mã máy bên trên rồi nhé !

Mong bạn suy nghĩ thử tính khả thi, nếu cần kinh phí thì nhắn giúp mình để mình xem xét có khả năng thuê không. 

Cảm ơn bạn!

[Duong Nhat Duy 388]

16 giờ trước, AnhKS2 đã nói:

Mong bạn suy nghĩ thử tính khả thi, nếu cần kinh phí thì nhắn giúp mình để mình xem xét có khả năng thuê không. 

Cảm ơn bạn!

Thì mình đã bảo là chịu rồi còn gì, bạn thử liên hệ các cao nhân trên forum xem sao.

[AnhKS2 0]

52 phút trước, Duong Nhat Duy đã nói:

Thì mình đã bảo là chịu rồi còn gì, bạn thử liên hệ các cao nhân trên forum xem sao.

Vâng ạ. Để mình lập topic hỏi nhờ thử xem sao. Cảm ơn bác ạ!

À tiện thể, cho mình hỏi nhờ, sao mình add lisp bác vào thì không thấy nó hiển thị mã máy ở đâu cả, không biết làm thế nào để sử dụng được vậy bác. Bật bảng lệnh lên cũng không thấy. Mình dùng CADLT 2024.

[andiha 0]

Anh kích hoạt giúp em với ạ, mã máy của em là 50026B7380310F35 em cảm ơn anh nhiều ạ

[279 0]

mã máy mình : Z523K693

thanks bạn

[truongvansu1209 0]

DD564198838A2

THANKS ADM

[ducnguyen_2024 0]

gửi giúp mình key với nhé !

Mã máy ND94N099012604C2U   _00000001.

thanks bạn