Lisp Auto Dim Ordinate

[NemDaYob 0]

Dạ em chào các bác Tình hình là em muốn hỏi các bác có bác nào có lisp dim tự động kiểu ordinate này không ạ. Em làm bên khuôn nên có nhiều tấm có nhiều lỗ như thế này, dim từng các thì lâu quá. Em dùng Yanxiu để vẽ, thấy nó có chức năng này nhưng mà e mò k ra. Bác nào có lisp gửi e với. Em xin cảm ơn và hậu tạ

[Tap.Ve.Cad 27]

Tìm trên mạng có lisp này, bạn dùng thử.

auto_dim_baseplate.lsp

[NemDaYob 0]

Dùng như thế nào bác nhỉ? Em mò hoài không ra :<

 

[Tap.Ve.Cad 27]

Các hình tròn của bạn phải là block với điểm chèn là tâm đường tròn

- Chạy lisp

- Chọn vào polyline bên ngoài

- nhập khoảng cách từ polyline đến điểm chèn text dim

- Lisp sẽ tự động dim

[NemDaYob 0]

Bác thử giúp em xem sao, em làm như bác bảo rồi mà không được

 

test.dwg

[Tap.Ve.Cad 27]

Bạn dùng thử lisp này:

- Chọn đường bao ngoài

- Chọn góc mốc 0.0 (1 trong 4 đỉnh hoặc điểm bất kỳ)

- Chọn 2 điểm để lấy khoảng cách từ đường bao đến Dim

Done. Kết quả như hình

Tên lệnh: AutoDim

Autodim.rar

[NemDaYob 0]

Cảm ơn bác, lisp này của bác đúng ý em rồi. Nhưng mà có thể tối ưu như này không ạ (sắp xếp lại đường dim cho hợp lý ạ). Em cảm ơn nhiềuuuu

燕秀工具箱 V2.81 帮助 2026-03-20 00-06-44.rar

[TommyLe 1]

Mình cũng có làm 1 cái như vậy.bạn xem được không?

https://youtube.com/shorts/grABorh4muI?si=nNQa7RZVgQLlgJnT

[Tap.Ve.Cad 27]

9 giờ trước, NemDaYob đã nói:

Cảm ơn bác, lisp này của bác đúng ý em rồi. Nhưng mà có thể tối ưu như này không ạ (sắp xếp lại đường dim cho hợp lý ạ). Em cảm ơn nhiềuuuu

燕秀工具箱 V2.81 帮助 2026-03-20 00-06-44.rar

mình mới chỉ tính đến việc chuyển dim sang phần đối diện khi mà nếu dim về 1 phía sẽ bị đè text, lisp mô tả của bạn pro hơn nhiều.

[NemDaYob 0]

Bác Tommy giỏi quá viết lisp luôn à, toàn cao thủ trong đây nhỉ :> Bác có thể tối ưu làm đường dim đối xứng 2 phía như này không ạ  

[Tap.Ve.Cad 27]

Demo, Bạn cần liên hệ zalo - PLU: 037.525.1128