cad面积累计lisp怎么用_求一个cad的lisp：一次计算多个封闭线框的面积，并显示每个面积和总面积...

2019-02-17 回答

;求spline,polyline,lwpolyline,arc面积

(defun c:ss ()

(setq 总面积 0)

(setq 总亩数 0)

(setq 面积 0)

(setq 总周长 0)

(setq 周长 0)

(setq k 0)

(setq a nil)

(setq a (ssget))

(setq len (sslength a))

(repeat len

(setq name (ssname a k))

(setq ent1 (entget name))

(setq na (assoc 0 ent1))

(setq na (cdr na))

(if (= na "spline")

(progn

(command "area" "o" name)

(setq 面积 (getvar "area"))

(setq 总面积 (+ 总面积 面积))

(setq 周长 (getvar "perimeter"))

(setq 总周长 (+ 总周长 周长))

)

)

(if (= na "polyline")

(progn

(command "area" "o" name)

(setq 面积 (getvar "area"))

(setq 总面积 (+ 总面积 面积))

(setq 周长 (getvar "perimeter