Xin lisp đo chiều dài

[Thanh TV 2]

Các bác trong diễn đàn có biết lisp nào đo chiều dài đoạn thẳng mà hiển thị giá trị mong muốn như hình được không a? (có đường dóng từ đoạn thẳng cần đo tới giá trị mong muốn)
Em khổ quá, do bản vẽ chi tiết nhiều, để dim thường thì bị rối quá, quản lý ko chịu. 

Mong cao thủ ra tay giúp đỡ. 

[Danh Cong 422]

Cad chưa có cái này @@. Làm tay thôi. Hoặc cùng lắm thì Edit sửa số, còn để nó tự động cập nhật chiều dài khi thay đổi kích thước thì chịu ( có nhưng bị hạn chế nhiều điều )

[duy782006 1.518]

Sửa cái dim style không hiển thị các line và dấu tick đi còn nhỏn cái text thôi rồi dim. Cái mũi tên thì chịu khó vẽ thêm vào.

[Botot 31]

Cái này giống leader, thớt nhờ bác nào biết viết líp tạo leader viết dùm là dc thôi.

[Thanh TV 2]

Cám ơn chia sẻ của bác @duy782006

Sửa cái dim style không hiển thị các line và dấu tick đi còn nhỏn cái text thôi rồi dim cái này làm được.

Cái mũi tên thì chịu khó vẽ thêm vào.: Cái này mà vẽ thì nhiều quá bác ạ.

p/s: Hoặc thay thế đường leader bằng 1 đường line cũng đc. Mục đích của e là cho người kiểm biết text dim này là của đoạn nào. Nhưng về bản chất vẫn phải là dim chứ ko phải là edit dim như bác @danh cong đang nghĩ ạ.

 

[huunhantvxdts 195]

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

Cám ơn chia sẻ của bác @duy782006

Sửa cái dim style không hiển thị các line và dấu tick đi còn nhỏn cái text thôi rồi dim cái này làm được.

Cái mũi tên thì chịu khó vẽ thêm vào.: Cái này mà vẽ thì nhiều quá bác ạ.

p/s: Hoặc thay thế đường leader bằng 1 đường line cũng đc. Mục đích của e là cho người kiểm biết text dim này là của đoạn nào. Nhưng về bản chất vẫn phải là dim chứ ko phải là edit dim như bác @danh cong đang nghĩ ạ.

 

Mình nghĩ cái này không khó chỉ là thể hiện chiều dài thôi mà. Nếu là công việc bạn nên đầu tư 1 ít chi phí thì sẽ có nhiều cao thủ họ làm trong 1 nốt nhạc là được kết quả mong muốn.

Nếu bạn muốn đặt hàng bạn phải gửi file mẫu. chứ gửi hình như vậy khó viết lắm.

[Thanh TV 2]

Ok, đồng ý cho việc trả phí để phục vụ nhu cầu công việc.

Bác nào viết giúp và báo giá cho mình.
Thank nhiều!

[Nguyen Van Binh 77 3]

bạn tải file về dung lệnh ap load vào cad rồi dùng lênh tl 

tl.lsp

[Thanh TV 2]

@Nguyen Van Binh: 

Cái a gửi là đo tổng chiều dài. Còn mong muốn của e là hiển thị giá trị dim như hình ấy ạ :(

Mong mọi người giúp đỡ.

[duy782006 1.518]

Cơ bản nó như này:

-Tên lệnh: DDL

-Thao tác như lệnh: DIMALIGNED

-Tồn tại là chưa lấy số lẻ như đim và cái dấu mũi tên chưa nằm trúng line.

 

 

(defun c:ddl ( )
(command "DIMALIGNED")
(while (< 0 (getvar "CMDACTIVE"))
(command pause)
) 
(setq dvt  (entlast))
(setq giatri  (cdr (assoc 42 (entget dvt))))
(setq diemm (cdr (assoc 10 (entget dvt))))
(setq diemh (cdr (assoc 11 (entget dvt))))
(command ".LEADER" diemm diemh "" (strcat "L=" (rtos giatri 2 2)) "")
(command "erase" dvt "" "")
(princ))

 

[Thanh TV 2]

Cảm ơn chia sẻ của a @duy782006

Tuy nhiên nó chưa đúng như mong muốn. 

1. Cái này ko cho quét chọn đối tượng mà phải chọn điểm đầu cuối => thời gian thao tác nhiều hơn.

2. Kết quả cuối cùng nó ko còn là dim nữa. => Ở đây thành 1 text và 1 leader. (ở đây, mục đích cuối nó vẫn phải là dim để mình có thể thay đổi dimstyle cho tất cả được)

3. kết quả cuối cùng Text+ leader ko song zong với tuyến mình dim.

P/s: ở đây e có 1 lisp của bác ketxu viết. để dim nhanh cho toàn bộ đối tượng là line.
Nếu có thể nhờ bác bổ sung đoạn code giúp e để lisp này có thể sử dụng cho đối tượng là Mline được.

Cám ơn bác nhiều ạ!

qdd do chieu dai doan thang chi can quet ketxu.lsp