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

rsent

(defun c:vv()
(setq a (ssget))
(setq Volume (vla-get-Volume a))
(princ Volume)
)


代码是不是不对，感觉a好像是值，不是对象。刚刚学lsp，请大家帮帮我。好人一生平安。。


感谢newer版主和dwp@hamco的帮助。。非常感谢你们。。
最后自己东凑西凑总算把 可以把得出的体积复制到 剪贴板，不容易。。
完整代码在17楼

newer

你说的对，(ssget)返回的是选择集，不是OBJ对象，你要把实体转换成VLA对象，然后做

1. (defun c:vv ()
   
2.   (if (and
   
3.         (setq a (car (entsel)))
   
4.         (setq ob (vlax-ename->vla-object a))
   
5.       )
   
6.     (progn
   
7.       (setq Volume (vla-get-Volume ob))
   
8.       (princ Volume)
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )
    

(defun c:vv ()<br />   (if (and<br />         (setq a (car (entsel)))<br />         (setq ob (vlax-ename->vla-object a))<br />       )<br />     (progn<br />       (setq Volume (vla-get-Volume ob))<br />       (princ Volume)<br />     )<br />   )<br />   (princ)<br /> )<br />

令: vv
选择对象: 4.89581e+006

炫翔

昨天，我好像在群里回答过你:):)

rsent

newer 发表于 2014-12-4 23:06
你说的对，(ssget)返回的是选择集，不是OBJ对象，你要把实体转换成VLA对象，然后做

谢谢了。。代码是对的。只是还有一点点的问题。就是现在只能选择一个。可以设置为框选吗？得到框选里所有实体的体积。

Lisphk

rsent 发表于 2014-12-5 09:03
谢谢了。。代码是对的。只是还有一点点的问题。就是现在只能选择一个。可以设置为框选吗？得到框选里所有 ...

要框选，那你就建个选集，然后循环提出每个实体重复做上面的操作了
(setq ss (ssget))
(setq len (sslength ss))
(repeat len
     (setq ent (ssname ss i)
              i (1+ i)
     )
     .....做你上面那个函数
)

dwp@hamco

技术上当然不是问题，代码稍作修改就可以。问题是，你一次选了一堆实体，电脑给你报出一堆体积数据，你知道哪个是哪个？是张三还是李四脸上长麻子？

rsent

Lisphk 发表于 2014-12-5 09:07
要框选，那你就建个选集，然后循环提出每个实体重复做上面的操作了
(setq ss (ssget))
(setq len (ssle ...

是得到最后 总的体积吗？  可以直接由框选目标得到总体积吗？

Lisphk

rsent 发表于 2014-12-5 09:10
是得到最后 总的体积吗？  可以直接由框选目标得到总体积吗？

哦，你要得总体积，那你应该在循环外面设个累加和的初始值，然后在循环体里面累加就是了，让你填的代码不是返回一个面积嘛，你把它累加到总和的变量上。

rsent

dwp@hamco 发表于 2014-12-5 09:08
技术上当然不是问题，代码稍作修改就可以。问题是，你一次选了一堆实体，电脑给你报出一堆体积数据，你知道 ...

我只要总体积。单个的体积对我没用。想知道这个零件的总体积，算出重量。可以帮我修改下吗。我改为ssget   ,显示总是错误的。{:soso_e179:}

st788796

Lisphk 发表于 2014-12-5 09:15
哦，你要得总体积，那你应该在循环外面设个累加和的初始值，然后在循环体里面累加就是了，让你填的代码不 ...

求列表值，最后apply + 也可以

Lisphk

rsent 发表于 2014-12-5 09:27
我只要总体积。单个的体积对我没用。想知道这个零件的总体积，算出重量。可以帮我修改下吗。我改为ssget  ...

上面我基本上代码都替你写了啊，你是怎么改的，你贴下。

rsent

Lisphk 发表于 2014-12-5 09:30
上面我基本上代码都替你写了啊，你是怎么改的，你贴下。

(defun c:vv ()
(if (and        
(setq a (ssget))     
(setq ob (vlax-ename->vla-object a))      )   
(progn      (setq Volume (vla-get-Volume ob))     
(princ Volume)    )  )  
(princ))


我是新手。。刚刚开始学。。就把原来楼上的代码改了下。发现改错了。。- -

rsent

感觉你说的读。。要把所以的值加在一起。。我一次性得不出总体积？

以前我都是直接massprop

选择对象: 指定对角点: 找到 17 个

选择对象:
----------------   实体    ----------------

质量:                    60930558.0000
体积:                    60930558.0000
边界框:               X: 37723.3028  --  38873.3028
                      Y: 413.5535  --  1463.5535
                      Z: -350.0000  --  33.0000

再复制体积。 可以提取这个体积的数值啊。。massprop  已经计算出来了。

dwp@hamco

1. (vl-load-com)
   
2. (defun c:vv(/ ss v-sum i ent)
   
3.   (setq ss(ssget '((0 . "3DSOLID"))))
   
4.   (setq v-sum 0 i 0)
   
5.   (repeat (sslength ss)
   
6.     (setq ent(ssname ss i))
   
7.     (setq ent(vlax-ename->vla-object ent))
   
8.     (setq v-sum(+ (vla-get-volume ent) v-sum))
   
9.     (setq i (1+ i))
   
10.     )
    
11. 
    
12.   (alert (strcat "\n一共选择了" (itoa (sslength ss)) "个实体，总体积是：" (rtos v-sum 2 2)))  
    
13.   (princ)
    
14. )

(vl-load-com)<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 /> <br />   (alert (strcat "\n一共选择了" (itoa (sslength ss)) "个实体，总体积是：" (rtos v-sum 2 2)))  <br />   (princ)<br /> )

rsent

dwp@hamco 发表于 2014-12-5 09:58

非常棒！！ 很完美解决我的问题。。非常感觉你。。还想问一下。lisp里有没有 把文字复制到粘贴板的功能。。 我的意思是把体积直接ctrl+c复制。。我再复制到其他的地方。{:soso_e179:}{:soso_e179:}