cad计算面积插件

《cad计算面积插件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、;;;---------------------------------------;;;Filename:fa.lsp;;;查封闭边界内的面积;;;作者:朱群;;;1998.2.23.;;;1999.2.2添加"择构成封闭边界的目标";;;---------------------------------------(defun@:fa(ff/ss1sspts0defvalpmp1pmp2fa_area)(setqssnilptnils0nil)(if(or(=nilfa_xscale)(=nilfa_yscale))(setqfa_xsca

2、le1fa_yscale1bzh_flag1))(setqfa_flag(getstring"设置比例"))(if(or(=fa_flag"Y")(=fa_flag"y"))(progn(setqpmp1(strcat"图形的X方向比例(只输分母):<"(rtosfa_xscale24)">:"))(setqdefval(getrealpmp1))(if(/=defvalnil)(setqfa_xscaledefval))(setqpmp2(strcat"图形的Y方向比例(只输分母):<"(rtosfa_yscale24)">

3、:"))(setqdefval(getrealpmp2))(if(/=defvalnil)(setqfa_yscaledefval))(setqpmp3(strcat"在图中标注面积[1--标注，0--不标注]:<"(rtosbzh_flag24)">:"))(setqdefval(getrealpmp3))(if(/=defvalnil)(setqbzh_flagdefval))))(setqss(ssadd))(if(=ff1)(progn(princ"请选择构成封闭边界的目标实体<不选择直接按回车>")(setqss1(ssget

4、))))(while(/=nil(setqpt(getpoint"在封闭边界内的点一点:")))(progn(if(/=ss1nil)(progn;forAutoCAD14.0;(command(bpoly)"a""b""n"ss1pt)))(if(/=nil(bpolypt))(progn(ssadd(setqe0(entlast))ss)(redrawe03))(princ"不能建封闭边界")));progn);while(setql(sslengthss)a0fa_area0)(repeatl(progn(setqs0(ssn

5、amessa));(echo_off)(command"_area""e"s0)(redraws04)(setqfa_area(+(getvar"area")fa_area));(echo_on)(setqa(1+a))))(princ"X比例:1/")(princfa_xscale)(princ",y比例:1/")(princfa_yscale)(princ",")(princl)(princ"个区域的面积和为:")(setqfa_area(*fa_areafa_xscalefa_yscale))(setqfa_area(/fa_area

6、1000000.0))(princfa_area)(princ"平方米");;;==========================(if(=bzh_flag1)(progn(setqssss(ssadd))(command"text""0,0"""""(strcat"面积:"(rtosfa_area22)"m2"))(ssadd(entlast)ssss)(setvar"orthomode"0)(command"move"ssss"""0,0"pause)));;;=========================(command"erase

7、"ss"");eraseobjects(princ))(defunc:fa()(@:fa0)(princ));;;========================================(princ"查封闭边界内的面积.ver1.01命令:FA.")(princ);;;------------endoffa.lsp--------------新建文本文档复制以上内容，另存为FA.LSP