新人第一帖，求助massprop获取体积 （已解决）

dwp@hamco

这个我还真不太清楚。最简单的解决办法：把第12行的alert函数，改成prompt函数，这样结果会出现在命令行里，你就可以直接把体积数 ctrl+c 复制下来了。

rsent

2. (vl-load-com)
   
3. (defun clipstring (STR / HTML RESULT)
   
4. (and (= (type STR) 'STR)(setq HTML (vlax-create-object "htmlfile"))(setq RESULT (vlax-invoke(vlax-get(vlax-get
   
5. 
   
6. HTML 'PARENTWINDOW)'CLIPBOARDDATA)'SETDATA"Text"STR))(vlax-release-object HTML)))
   
7. 
   
8. (defun c:vv(/ ss v-sum i ent)
   
9.   (setq ss(ssget '((0 . "3DSOLID"))))
   
10.   (setq v-sum 0 i 0)
    
11.   (repeat (sslength ss)
    
12.     (setq ent(ssname ss i))
    
13.     (setq ent(vlax-ename->vla-object ent))
    
14.     (setq v-sum(+ (vla-get-volume ent) v-sum))
    
15.     (setq i (1+ i))
    
16.   )
    
17. (setq vol (rtos v-sum 2 2))
    
18. (setq txtcon vol)
    
19. (clipstring txtcon)
    
20. (princ)
    
21. )
    

(vl-load-com)<br /> (defun clipstring (STR / HTML RESULT)<br /> (and (= (type STR) 'STR)(setq HTML (vlax-create-object "htmlfile"))(setq RESULT (vlax-invoke(vlax-get(vlax-get <br /> <br /> HTML 'PARENTWINDOW)'CLIPBOARDDATA)'SETDATA"Text"STR))(vlax-release-object HTML)))<br /> <br /> (defun c:vv(/ ss v-sum i ent)<br />   (setq ss(ssget '((0 . "3DSOLID"))))<br />   (setq v-sum 0 i 0)<br />   (repeat (sslength ss)<br />     (setq ent(ssname ss i))<br />     (setq ent(vlax-ename->vla-object ent))<br />     (setq v-sum(+ (vla-get-volume ent) v-sum))<br />     (setq i (1+ i))<br />   )<br /> (setq vol (rtos v-sum 2 2))<br /> (setq txtcon vol)<br /> (clipstring txtcon)<br /> (princ)<br /> )<br />