cad计算面积插件.docVIP

下载本文档

12
0
约2.41千字
约 3页
2017-08-30 发布于河南
举报
版权申诉

cad计算面积插件.doc

1、本文档共3页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

;;;--------------------------------------- ;;; File name: fa.lsp ;;; 查封闭边界内的面积 ;;; 作者:朱群 ;;; 1998.2.23. ;;; 1999.2.2 添加择构成封闭边界的目标 ;;;--------------------------------------- (defun @:fa( ff / ss1 ss pt s0 defval pmp1 pmp2 fa_area ) (setq ss nil pt nil s0 nil ) (if (or (= nil fa_xscale) (= nil fa_yscale )) (setq fa_xscale 1 fa_yscale 1 bzh_flag 1) ) (setq fa_flag (getstring 设置比例y/N)) (if (or (= fa_flag Y) (= fa_flag y)) (progn (setq pmp1 (strcat \n图形的X方向比例(只输分母): (rtos fa_xscale 2 4) : )) (setq defval (getreal pmp1)) (if (/= defval nil) (setq fa_xscale defval)) (setq pmp2 (strcat \n图形的Y方向比例(只输分母): (rtos fa_yscale 2 4) : )) (setq defval (getreal pmp2)) (if (/= defval nil) (setq fa_yscale defval)) (setq pmp3 (strcat \n在图中标注面积[1--标注，0--不标注]: (rtos bzh_flag 2 4) : )) (setq defval (getreal pmp3)) (if (/= defval nil) (setq bzh_flag defval)) )) (setq ss (ssadd) ) (if (= ff 1) (progn (princ \n请选择构成封闭边界的目标实体不选择直接按回车) (setq ss1 (ssget)) )) (while (/= nil (setq pt (getpoint\n在封闭边界内的点一点:)) ) (progn (if (/= ss1 nil) (progn ; for AutoCAD 14.0 ; (command (bpoly) a b n ss1 pt) )) (if (/= nil (bpoly pt ) ) (progn (ssadd (setq e0 (entlast)) ss) (redraw e0 3 )) (princ \n不能建封闭边界\n) ) ) ;progn ) ; while (setq l (sslength ss) a 0 fa_area 0) (repeat l (progn (setq s0 (ssname ss a)) ; (echo_off) (command _area e s0) (redraw s0 4) (setq fa_area (+ (getvar area) fa_area)) ; (echo_on) (setq a (1+ a)) )) (princ \nX比例:1/)(princ fa_xscale) (princ ,y比例:1/)(princ fa_yscale) (princ , )(princ l) (princ 个区域的面积和为:) (setq fa_area (* fa_area fa_xscale fa_yscale )) (setq fa_area (/ fa_area 1000000.0)) (princ fa_area) (princ 平方米) ;;;========================== (if (= bzh_flag 1) (progn (setq ssss (ssadd)) (command text 0,0 (strcat