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

匿名用户

1级

2016-12-02 回答

;求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 周长 (