求一个封闭空间，面积，边长加输入高度计算立面面积的LSP

521gb174

现在计算封闭空间的LSP插件，大部分是计算面积和边长，缺少立面输入高度后计算出立面面积。
例图红色部分就是我想加的（这个就是输入一个数：比如输入2.7米=计算出立面面积）

csharp

高度一样，周长乘高度就是立面面积，如果高度不一样，就要指定特殊段的高度

brainstorm

需要xdAPI支持

1. (defun c:tt (/ AREA EN HT LTH MAT SIDEAREA SS  )
   
2. 
   
3.   (if (and (setq en (car (xdrx_entsel "选择pline线" '((0 . "*line")))))
   
4.            (setq ht (getdist "\n输入高度"))
   
5.       )
   
6.     (progn
   
7.       (setq en (vlax-ename->vla-object en))
   
8.       (setq lth             (* 1e-3 (vla-get-length en))
   
9.             area     (* 1e-6 (vla-get-area en))
   
10.             sidearea (* lth ht 1e-3)
    
11.       )
    
12.       (setq lth             (strcat "周长=" (rtos lth 2 2))
    
13.             area     (strcat "底面积=" (rtos area 2 2))
    
14.             sidearea (strcat "侧面积=" (rtos sidearea 2 2))
    
15.       )      
    
16.       (xdrx_setmark)
    
17.       (xdrx_mtext_make
    
18.         '(0 0 0)
    
19.         (strcat lth "\n" area "\n" sidearea)
    
20.         3000
    
21.         300
    
22.       )
    
23.       (setq ss (xdrx_getss))
    
24.       (if (and (setq mat
    
25.                       (xdrx_drag_move "选择文字标注点/不标注(右键)" ss '(0 0 0) 1)
    
26.                )
    
27.                (equal (type mat) 'list)
    
28.           )
    
29.         (xdrx_entity_transform ss mat)
    
30.         (xdrx_entity_delete ss)
    
31.       )
    
32.     )
    
33.   )
    
34. )

(defun c:tt (/ AREA EN HT LTH MAT SIDEAREA SS  )<br /> <br />   (if (and (setq en (car (xdrx_entsel "选择pline线" '((0 . "*line")))))<br />            (setq ht (getdist "\n输入高度"))<br />       )<br />     (progn<br />       (setq en (vlax-ename->vla-object en))<br />       (setq lth             (* 1e-3 (vla-get-length en))<br />             area     (* 1e-6 (vla-get-area en))<br />             sidearea (* lth ht 1e-3)<br />       )<br />       (setq lth             (strcat "周长=" (rtos lth 2 2))<br />             area     (strcat "底面积=" (rtos area 2 2))<br />             sidearea (strcat "侧面积=" (rtos sidearea 2 2))<br />       )      <br />       (xdrx_setmark)<br />       (xdrx_mtext_make<br />         '(0 0 0)<br />         (strcat lth "\n" area "\n" sidearea)<br />         3000<br />         300<br />       )<br />       (setq ss (xdrx_getss))<br />       (if (and (setq mat<br />                       (xdrx_drag_move "选择文字标注点/不标注(右键)" ss '(0 0 0) 1)<br />                )<br />                (equal (type mat) 'list)<br />           )<br />         (xdrx_entity_transform ss mat)<br />         (xdrx_entity_delete ss)<br />       )<br />     )<br />   )<br /> )

521gb174

brainstorm 发表于 2017-9-20 10:45

这个怎么用啊？你说的支持什么？我不大明白~~~就详细解答谢谢

brainstorm

521gb174 发表于 2017-9-22 15:21

安装一下这个

http://bbs.xdcad.net/thread-668896-1-1.html