Tính tổng chiều dài trong Cad

Mở trình soạn thảo NotePad trong Window, copy đoạn code bên dưới dán vào rồi lưu lại dưới dạng file .LSP (AutoLisp). Mở phần mềm AutoCad rồi dùng lệnh AP để load file vừa tạo. Tiếp tục nhập lệnh TDA (Tổng dài) rồi chọn các đối tượng cần tính tổng chiều dài.

(defun c:tda     (/ tot_len ss e_name e_record e_type)

(setq tot_len 0.0)    (setq ss (ssget))

(if (null ss) (exit))

(while      (> (sslength ss) 0)

(setq e_name     (ssname ss 0))

(setq e_record (entget e_name))

(setq e_type (cdr (assoc '0 e_record)))

(cond ((wcmatch e_type "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")

(command "lengthen"  e_name "")

(setq tot_len (+ tot_len (getvar "PERIMETER")))           (ssdel e_name ss))

((wcmatch e_type "MLINE")  (add_mline))         (e_type (ssdel e_name ss))))

(prompt (strcat  "\nTong chieu dai cac doan: "          (rtos tot_len 2 2)))

(princ))

Xem video hướng dẫn !

Keywords: đo tổng chiều dài trong cad, lisp tính tổng chiều dài trong cad, cách tính tổng chiều dài trong cad, lệnh đo tổng chiều dài trong cad