[编程申请]：点两个点求面积

baihc798

在图上点上下两个点，求这个矩形的面积。以前在晓东网找到这样的lsp，可惜重装不见了，现在网上多数都是求封闭单元的面积之和。请高手帮忙。

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;;;矩形面积
    
14. (defun c:test ()
    
15.   (CMDLA0)
    
16.   (JZHZ)
    
17.   (MKLA "面积标注" 4)
    
18.   (COMMAND "OSNAP" "INT,ENDP")
    
19.   (while (not (setq pt1 (getpoint "\n矩形第一角点 :"))))
    
20.   (while (not (setq pt2 (getcorner pt1 "\n对角点 :"))))
    
21.   (setvar "OSmode" 0)
    
22.   (setq        Sa  (rtos (abs (* (- (car pt2) (car pt1)) (- (cadr pt2) (cadr pt1)))) 2 2)
    
23.         pt3 (_MIDP pt1 pt2)
    
24.   )
    
25.   (command "text" "j" "m" pt3 (* 300 sc) "0" Sa)
    
26.   (CMDLA1)
    
27. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;;;矩形面积<br /> (defun c:test ()<br />   (CMDLA0)<br />   (JZHZ)<br />   (MKLA "面积标注" 4)<br />   (COMMAND "OSNAP" "INT,ENDP")<br />   (while (not (setq pt1 (getpoint "\n矩形第一角点 :"))))<br />   (while (not (setq pt2 (getcorner pt1 "\n对角点 :"))))<br />   (setvar "OSmode" 0)<br />   (setq        Sa  (rtos (abs (* (- (car pt2) (car pt1)) (- (cadr pt2) (cadr pt1)))) 2 2)<br />         pt3 (_MIDP pt1 pt2)<br />   )<br />   (command "text" "j" "m" pt3 (* 300 sc) "0" Sa)<br />   (CMDLA1)<br /> )[/FONT]

Rainieliuna

有个弱智的问题，代码怎么搞成LISP的，见了家园里很多代码，不知道怎么做？呵呵

dabingrain

难为楼上还是“白银长老”了，怎么混的呢？

zhynt

将上面的＂代码＂复制，粘贴到记事本中，保存为ＬＳＰ文件．

letch

其实求面积的命令很多  如果是矩形 我觉的用list 命令也比较块啊。