Chào bạn tuannt991,
Thấy bạn làm việc vất vả quá, 2 giờ sáng còn ngồi máy tính và post bài.
Mình đã tranh thủ sửa file bạn gửi được một phần, tách các đường ống DN40 ra khỏi các ống DN32 và DN50.
Với lisp sau, bạn có thể lấy được tổng chiều dài của các đường ống DN32 nằm trên layer "sprinkler" và các đường ống DN40 nằm trên layer DN40 mà mình mới tạo. Tương tự...

Chào bạn tuannt991,
Thấy bạn làm việc vất vả quá, 2 giờ sáng còn ngồi máy tính và post bài.
Mình đã tranh thủ sửa file bạn gửi được một phần, tách các đường ống DN40 ra khỏi các ống DN32 và DN50.
Với lisp sau, bạn có thể lấy được tổng chiều dài của các đường ống DN32 nằm trên layer "sprinkler" và các đường ống DN40 nằm trên layer DN40 mà mình mới tạo. Tương tự cách làm của mình, nếu bạn chịu khó ngồi tách các loại ống thành các lớp riêng thì bạn có thể sử dụng cái lisp mình viết để làm thống kê rất tốt.
Mong bạn thành công trong công việc và cuộc sống.

Mình gửi kèm ở đây bản vẽ mình đả cải tạo để bạn tham khảo.
http://www.cadviet.com/upfiles/3/0748fsp301_1.dwg

Hề hề hề, bác Bình mót nhiều quá, đến nỗi bây chừ là không nhớ tên của tác giả của Lisp WritetoExCel nữa
Tác giả đã trả lời bác, tặng bác Lisp đó mà bác quên, đó là cái lỗi đó bác ạ

Hề hề hề, bác Bình mót nhiều quá, đến nỗi bây chừ là không nhớ tên của tác giả của Lisp WritetoExCel nữa
Tác giả đã trả lời bác, tặng bác Lisp đó mà bác quên, đó là cái lỗi đó bác ạ Hề hề, cái này đáng phạt nha
Tác giả của của Lisp WritetoExCel không phải của bác SSG ạ. Tên của tác giả và Lisp WritetoExCel ở đây, bác ạ :
Bai viet so 160 - Lisp WritetoExCel
Cảm ơn tác giả của Lisp WritetoExCel nhiều lắm

@khaosat : Tue_NV có đọc yêu cầu của bạn. Nhưng có vài chổ chưa rõ lắm. Phiền bạn upload file .dwg và nói rõ hơn nhé.

@tamkt, nguyentuyen : Cái này thiết nghĩ không dùng Lisp. sử dụng CAD là được. Với lại, Lisp mà bạn nguyentuyen viết ra với điểm gốc Rotate ứng với điểm đầu Line. Nhìn vào CAD, nào đâu có biết điểm đầu hay là điểm cuối LINE cơ chứ??
Nếu User muốn xoay với điểm cuối Line thì sao, hoặc là điểm xoay nằm trên hoặc là không nằm trên đoạn LINE thì sao??
Lại còn áp dụng các đối tượng khác như bạn tamkt yêu cầu nữa : là LEADER và PLINE thẳng 1 phân đoạn nữa.

Lăn tăn chi bạn?? Áp dụng lệnh Rotate ới lựa chọn Reference và chế độ bắt điểm Parallel. Còn nếu thấy chế độ bắt điểm Parallel khó quá thì sử dụng lệnh Copy và sau đó là lệnh ROTATE hoặc là ALIGN

Tue_NV về quê có 1 ngày mà topic này rôm rả ghê. Chúc các bạn ngày cuối tuần vui vẻ.

Mình có lisp này đã chỉnh sửa nhưng chưa theo ý muốn.
Lisp có chức năng ghi độ dốc đưởng thẳng: " Lisp đã ghi được độ dốc bằng cách chọn điểm đầu, điểm cuối, điểm ghi " nhưng chưa làm được như sau :
1. Chưa có thông số nhập vào chiều cao text.
2. Chưa ghi được chữ nằm trên (song song, cách đường thẳng 1 đoạn x) đường thẳng.
Mong bác nào giúp em khắc phục vấn...

Mình có lisp này đã chỉnh sửa nhưng chưa theo ý muốn.
Lisp có chức năng ghi độ dốc đưởng thẳng: " Lisp đã ghi được độ dốc bằng cách chọn điểm đầu, điểm cuối, điểm ghi " nhưng chưa làm được như sau :
1. Chưa có thông số nhập vào chiều cao text.
2. Chưa ghi được chữ nằm trên (song song, cách đường thẳng 1 đoạn x) đường thẳng.
Mong bác nào giúp em khắc phục vấn đề trên để lisp hoàn thiện.
Em mò mãi chưa ra vì mới học lisp
Thân !
Cám ơn sự giúp đỡ.

Mình có lisp này đã chỉnh sửa nhưng chưa theo ý muốn.
Lisp có chức năng ghi độ dốc đưởng thẳng: " Lisp đã ghi được độ dốc bằng cách chọn điểm đầu, điểm cuối, điểm ghi " nhưng chưa làm được như sau :
1. Chưa có thông số nhập vào chiều cao text.
2. Chưa ghi được chữ nằm trên (song song, cách đường thẳng 1 đoạn x) đường thẳng.
Mong bác nào giúp em khắc phục vấn...

Mình có lisp này đã chỉnh sửa nhưng chưa theo ý muốn.
Lisp có chức năng ghi độ dốc đưởng thẳng: " Lisp đã ghi được độ dốc bằng cách chọn điểm đầu, điểm cuối, điểm ghi " nhưng chưa làm được như sau :
1. Chưa có thông số nhập vào chiều cao text.
2. Chưa ghi được chữ nằm trên (song song, cách đường thẳng 1 đoạn x) đường thẳng.
Mong bác nào giúp em khắc phục vấn đề trên để lisp hoàn thiện.
Em mò mãi chưa ra vì mới học lisp
Thân !
Cám ơn sự giúp đỡ.