Nhờ các bác viết hộ Lisp cộng Dimension xuất ra kết quả

[hieu1012 2]

Chào các bác.

Trong diễn đàn cũng rất nhiều bài viết liên quan đến chủ đề" Cộng các Dimension, các text " Nhưng dùng không được như ý muốn. Vì vậy hôm nay mạo muội đăng bài nhờ các bác giúp.

Em có file ảnh đính kèm:

- Các đường dim kich thước VD như:  2*1.5-800; 4*1.5-(455+305).......

Và nhờ các bác viết lisp nó cho ra kết quả: Các đường dim giống nhau 2*1.5 hoặc 3*1.5 hoặc 4*1.5 cộng với nhau cho ra kết quả (VD : 2*1.5= 800+....=  Kết quả (m);  (4*1.5=(455+305)+....= Kết quả(m);......)

 - Giống như kết quả file ảnh em gửi ở dưới đó ạ. 

 - Em xin gửi file cad của nó ở dưới kia ạ.

 

 

 

 

E Dragan 05-2018.dwg

[hieu1012 2]

Bác giúp em đi " Doan Van Ha"

[hieu1012 2]

Là sao. Em chưa hiểu ý bác

[CadExTools 102]

Chiến ngay, lúc đầu đọc ko hiểu, cái này có thể viết dc

[ngokiet 169]

Cái này cũng dễ mà.

Tuy nhiên bạn nên để file dwg lên cho người ta viết dùm cho.

[hieu1012 2]

Mình cũng đinh đưa lên nhưng bản vẽ nặng quá nên không app được.

[ngokiet 169]

Vậy bạn thử lisp này xem sao.

Mình xuất ra mtext chữ chỉ cao 2.5 nên tùy theo đơn vị vẽ của bạn mà chỉnh lại tương ứng.

Còn text dim thì mình nghĩ do bạn đánh vào nên lấy text.

Bạn có thể copy 1 phần file rồi up lên nếu cần chỉnh sửa gì đó.

 

[hieu1012 2]

Thanks bạn " ngokiet" nhưng không được bạn ạ. Mình dim thử 2,3 đoạn rồi dùng lisp nó không xuất ra kết quả gì cả. Mình xin gửi file cad.

E Dragan 05-2018.dwg

[ngokiet 169]

Chạy được mà. Lúc trước mình có nói text 2.5

Mình mới sửa lại là text cao 100.

Do các dim của bạn là block nên explore ra là chạy được.

 

Mình mới xem lại bản vẽ của bạn thì có text nhập trực tiếp và có text tự động cũa dim. Nhưng phần lisp của mình mới chỉ nhận phần text đánh vào thôi.

 

Mình mới sửa thêm 1 chút cho bạn rồi đó.

Yêu cầu là Dim không ở trong block.

Không biết bạn tính bản phía dưới đúng hay không nhưng mình chạy list thấy hơi sai 1 chút. Còn ít thì thấy chạy đúng không biết sai ở đâu vì lười kiểm tra.

 

[hieu1012 2]

Dear ngokiet

- Không biết mình dùng sai chỗ nào nhưng mình dùng lisp vẫn không ra kết quả gì. Mình có phá block ra rồi và mình cũng dim đường dim mới rồi bạn ạ.

- Trong file cad mình gửi nó có được text nhập trực tiếp và có text tự động của dim. Nhưng theo file Ảnh kết quả nó cộng cả các text đó và chỉ lấy số nguyên.

[hieu1012 2]

Cảm ơn " Danh Cong" góp ý.  Khoản trình bày mình rất kém mong các bạn thông cảm.  Như tiêu đề và theo file đính kèm bao gồm( bản vẽ, kết quả xuất ra) mình có gửi. Mình nhờ các anh, các bạn việt hộ lisp cho ra kết quả như trên thội ạ.

[ngokiet 169]

Giờ bạn thử mở file bạn gởi lên.

- Tắt tất cả layer chỉ mở 2 layer "cat6"  và "text ghi chu mang"

- Nhấn "explore" select all

- Chọn layer hiên hành là layer "cat6"  và "text ghi chu mang"

- Nhân ap chọn lisp mình tải lên

- Đánh lệnh tt để chạy

-chọn select all

- chọn 1 điểm để chèn text

 

tt.lsp

[ngokiet 169]

Bạn làm theo hướng dẫn ở trên xem có kết quả gì không? Nếu có thì có báo lỗi gì thì mình sử lý dùm cho.

File của dạn do dim hơi rối. Text nhập có, text tự động có. Với lại do dim làm tròn số là 5 mà dim của CAD làm tròn mình hơi khó chịu một chút

(vd: 662.5 thì làm tròn thành 660- 662.6 thì thành 665 nên mấy lisp trước mình thấy sai so với Kq của bạn)

Bạn tải lại cái lisp mới nhật đó. Nếu không chọn điểm chèn text thì kiểm tra text ở vị trí 0,0