Mình làm kỹ thuật Đơn vị thi công cũng khá lâu rồi, các công trình chủ yếu là Thủy điện và dân dụng. Bộ Lisp CAD này mình luôn mang theo dù lâu lắm rồi không sử dụng. Hôm nay có time mình tổng hợp share các bác nào cần.
6 ^1 L( |$ p0 v5 C* SĐầu tiên mình giới thiệu một số lisp trong bộ Lisp này các bác xem có phù hợp với nhu cầu của các bạn ko. Có thể các bác đã biết và đã sử dụng hay có lisp hay hơn cũng mong các bác đừng ném đá . Các lisp sau đây thuộc lisp Mrtuan_Tke trong bộ lisp.# v9 L( y& z, _- f1 ^* S: M0 U$ D1 q
1- Lisp Offset liên tục các đường thẳng và tính tổng chiều dài, chiều dài trung bình của 1 lưới thép. % U! t) t0 `8 h) ]% }6 `
a1 d& v8 t4 Q7 u5 A9 B1 Y) P& N
; ?" `5 G3 d8 _, C/ f Hình 1 & b) ?. ~$ ]; W' r; E2 l
- Bài toán 1: Có 1Block dài 10m( có đường bao màu đỏ ) như hình 1: Yêu cầu tính toán và thống kê lưới thép dọc được giới hạn trong đường bao, với lớp bảo vệ bê tông là 0.005m và khoảng cách giữa các thanh thép là 0.02m. 3 u1 O9 j' Z$ m
- Đầu tiên muốn chính xác số lượng thanh thép trong block thì mình bố trí thanh thép đầu tiên cách mép 0.005m .Sử dụng lisp = Ap - enter. Chọn lisp Mrtuan_Tke -> đánh lệnh OLT- enter và chọn thanh thép đầu tiên -> các bác chú ý dưới dòng lệnh nó nhắc: chọn phía offset, và số thanh thép cần offset. Các bác căn cứ vào khoảng cách 10m thì có khoảng 10/0.2 thanh và nhiều hơn cũng ko sao, tý ta xóa đường thừa. Ta được bước thứ 2 như trong hình 1. ! W8 Q# S6 w( p* f% h' E
- Bước 3: Tính số thanh, tổng chiều dài và chiều dài trung bình thanh trong block: Các bạn chỉ cần ẩn đường bao màu đỏ. Trên màn hình chỉ còn các thanh thép màu xanh. Nhập lệnh TCD-enter và các bác quét hết tất cả các thanh thép trong block đó - enter. Bên dưới thanh command sẽ cho ra kết quả bài toán: Tổng số thanh thép trong block, tổng chiều dài thanh và chiều dài trung bình các thanh đó.
! U3 w7 ?0 j7 g8 k2- Tính toán nhanh Bảng thống kê cốt thép trong 1block.
- B" w1 A2 b3 q; @2 q \$ q* P
8 ]+ t S5 O0 O. m7 k$ W7 A- v6 z; v
4 k+ n- M4 o: ~3 Y2 ?+ AHình 2 & i( Y& c/ W- T& c6 `0 I4 M
- Bài toán thứ 2: Trong 1 block khối đổ bê tông, ta tổng hợp được các loại thép: Chiều dài trung bình, số lượng thanh và đường kính thanh. Yêu cầu tính nhanh: Tổng chiều dài và khối lượng mỗi loại thép, lập bảng tổng hợp khối lượng thép của cả block./ ]# A; P- S4 `% R
- giả sử ta có bảng thống kê ban đầu bên trái hình 2 ( Chú ý: các yếu tố khoanh tròn số 1, 2,3 là các nội dung phải tính ). Các bác nhập lệnh: tke -enter -> thanh command sẽ nhắc các nội dung: Chọn cột chiều dài thép - các bác quét cột số liệu chiều dài thép -> Chọn cột số lượng thanh -> Chọn cột đường kính thép- enter. Sau khi chọn 3 cột trên thanh command tiếp tục hỏi: Chọn vị trí chiều dài (bác chọn vị trí số 1 ) -> chọn vị trí đặt khối lượng (bác chọn vị trí số 2) -> Chọn vị trí đặt bảng tổng hợp khối lượng cả block (số 3 or tùy các bác ). Xong ta được bảng thống kê thép như bên phải hình 2. Nói dài dòng nhưng các bác làm không đến 1 phút 
, D! A: W: s4 K& F5 y7 w- n+ V- Bài toán 3: Có 1 dãy số được xếp ko thẳng hàng như bước 1 trong hình 3. Yêu cầu sắp xếp dãy số thẳng hàng và cách đều nhau.* \. s! i, L Q9 }
4 o j& d. ?- }% h
- Z$ n q3 }7 VHình 3
8 y0 [+ V/ u: E! @; U0 S/ R* Q2 Z( h2 X
- Gõ lệnh cdo -enter ta được dãy số xếp theo hàng như bước 2 -> Xoay hình dọc dãy số: Gõ lệnh cdt-enter, trên command yêu cầu bác nhập khoảng cách giữa các số- nhập số và enter ta được như bước 3 -> Xoay dãy số được bước 4 hoàn thành. 1 Q9 @7 j. \% I% \
) U! U$ H9 r$ Q9 a/ h! G
Kết luận: Trên đấy chỉ là 3 ví dụ đơn giản trong bộ lisp, còn rất nhiều lisp hay các bác cần tham khảo thì cố gắng đọc lisp để ứng dụng. Bác nào có cách nào hay hơn và lisp ứng dụng tốt hơn chia sẻ và góp ý hộ mình. Thanks all  6 D8 ~( e# r! H9 u) y
1 B1 V/ p$ f# y- N& B& |! k
|