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

最新推荐文章于 2023-09-18 15:04:08 发布

weixin_39747975

最新推荐文章于 2023-09-18 15:04:08 发布

阅读量927

点赞数

文章标签： cad面积累计lisp怎么用

本文链接：https://blog.csdn.net/weixin_39747975/article/details/111764592

版权

这是一个用于CAD的Lisp程序，能够自动计算并累加Spline、Polyline、LWPolyline、Arc等封闭图形的面积和周长。用户只需运行Lisp命令，程序会依次获取选中图形的面积和周长，最后输出总面积和总周长。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

匿名用户

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 周长 (getvar "perimeter"))

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

)

(if(= na "ARC")

(progn

(command "area" "o" name)

(setq 面积 (getvar "area"))

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

(setq 周长 (getvar "perimeter"))

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

)

(if(= na "CIRCLE")

(progn

(command "area" "o" name)

(setq 面积 (getvar "area"))

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

(setq 周长 (getvar "perimeter"))

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

)

(if(= na "ELLIPSE")

(progn

(command "area" "o" name)

(setq 面积 (getvar "area"))

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

(setq 周长 (getvar "perimeter"))

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

)

(if(= na "LINE")

(progn

(command "area" "o" name)

(setq 面积 (getvar "area"))

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

(setq 周长 (getvar "perimeter"))

复制以下内容到记事本：

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

)

(if(= na "LWPOLYLINE")

(progn

(command "area" "o" name)

(setq 面积 (getvar "area"))

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

(setq 周长 (getvar "perimeter"))

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

)

(setq k (+ k 1))

(setq 总亩数 (/ 总面积 666.667))

)

(print (list "总周长=" 总周长))

(print (list "总面积=" 总面积 "平方米" 总亩数 "亩"))

(princ)

)

结束复制，保存文件。将文件后缀.txt更改为.lsp。OK。完成，加载应用程序(CAD快捷命令AP)。本lisp的快捷命令为：SS