Lớp Quản lý chất lượng GXD
LH: Ms.Huyền Thanh 0985.099.938
Kích để đăng kí học online
Lớp Đo bóc, lập Dự toán
LH: Ms.Thu An 0975.381.900
Kích để đăng kí qua mạng
Lớp Dự toán dự thầu, đấu thầu
LH: Ms.Thanh Mai: 0974.889.500
Kích vào đây đăng kí học
Lớp Thanh quyết toán GXD
LH: Ms.Huyền Thanh 0985.099.938
Kích để đăng kí học online

Sửa giúp mình lisp tính diện tích

gha16180

Thành viên mới
Bài viết
1
Điểm thành tích
1
Lĩnh vực
Công ty tư vấn
Mình dân cầu đường hay tính diện tích mặt cắt ngang. Trước mình có dùng lisp này rất hay, tính được diện tích miền kín kể cả line và pline... Tính tổng khi pích nhiều miền liên tiếp. Nhưng nhược điểm là chưa tự thay đổi text có sẵn mà vẫn thủ công dùng lệnh edit. Vậy bạn nào giỏi về lisp sửa thêm mình chức năng thay đổi kết quả text có sẵn với. Lấy tròn sau dấu thập phân 2 số nhé. Cảm ơn!

(Defun c:a2()
(setvar "cmdecho" 0)
(initget "Heso Do")
(setq pt (getpoint "\n Chon diem:"))
(if (= pt "Heso")
(progn
(setq am (getreal "Cho he so"))
(if (and (null am) (/= ac 0))
(setq am ac)
)
(setq pt (getpoint "\n Chon diem: "))
)
(setq ac am))

(if (or (= am 0) (null am)) (setq am 1))
(setq s 0)
(progn
; (setq pt (getpoint "\n Chon diem: "))
(while pt
(setq entold (cdr (assoc 5 (entget (entlast)))))
(command "boundary" pt "")
(setq entnew (cdr (assoc 5 (entget (entlast)))))
(if (/= entold entnew)
(progn
(setq entnew (entget (entlast)))
(if (assoc 62 entnew)
(setq entnew (subst (cons 62 (+ 3 (cdr (assoc 62 entnew)))) (assoc 62 entnew) entnew))
(setq entnew (append entnew (list (cons 62 (+ 3 (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 entnew))))))))))
)


(entmod entnew)
(Command "area" "o" (entlast))
(setq s (+ s (getvar "area")))
(setq pt (getpoint "\n Chon diem: "))
(entdel (entlast))
)
(progn
(princ "chon diem sai")
(setq pt (getpoint "\n Chon diem: "))
)
)
)

)

(princ (* s 1))
(princ)
)
 

Tải bộ cài phần mềm Dự toán GXD, Đấu thầu GXD, Thanh Quyết toán GXD, Quản lý chất lượng GXD. Dành cho người mua bản quyền
Kích để xem khóa học Dự toán công trình
Kích để xem khóa học Dự toán công trình
Hãy kích để tới bài giới thiệu Khóa học Đọc bản vẽ và đo bóc khối lượng
Phần mềm quản lý chất lượng công trình QLCL GXD
Tìm hiểu khóa học Thanh Quyết toán GXD
Đủ dữ liệu Xây dựng, Lắp đặt, Khảo sát, Đường dây, Trạm biến áp, thủy lợi, thủy điện, bưu chính viễn thông, cây xanh, chiếu sáng, rác thải...
  • 38
  • 0
Đủ dữ liệu Xây dựng, Lắp đặt, Khảo sát, Đường dây, Trạm biến áp, thủy lợi, thủy điện, bưu chính viễn thông, cây xanh, chiếu sáng, rác thải, cọc khoan nhồi, giếng cát, trạm BTS... các kiểu. Gọi tên, tra mã, định mức các công việc để đưa vào làm...
Top Bottom