[编程申请]：算出整台机器总重量整台机器

LUCAS

我想这网站大部份是做建筑的,但能帮忙想想如下构想,框选整台机器(所有零件都是3DSOLID)后算出总重量,因个别零件有不同的比重,现在都要个别算出重量后相加非常麻烦(因经常修改,所以用属性来做并不方便):6

cy956

但你总得有个地方记录数据啊。属性也可以，xdata也可以，分类不多连layer，color...都可以作为区分标志

LUCAS

我想用xdata来做比较好,比重,材质,表面处理,料号,零件名称……….哈哈!!我在说梦话吗!!因对xdata完全不懂,想用xdata来做,但没从下手,也没法把3dsolid的massprop用程序处理,对3dsolid在分割(or合并)后xdata还会在分割后对象上吗?都有待研究…….。
autolisp 有function 可以把list 转为string吗?

XDSoft

最初由 LUCAS 发布
[B]我想用xdata来做比较好,比重,材质,表面处理,料号,零件名称……….哈哈!!我在说梦话吗!!因对xdata完全不懂,想用xdata来做,但没从下手,也没法把3dsolid的massprop用程序处理,对3dsolid在分割(or合并)后xdata还会在分割... [/B]

3dsolid的massprop XDRX_API给你支持。

下面是给你写的表转换字符串的函数

2. 
   
3. ;|
   
4.    函数：$l2string
   
5.    参数：表
   
6.    作用：把LIST转换成字符串
   
7.    适用平台：AutoCAD任何版本
   
8.    
   
9.    欢迎到“晓东CAD空间－论坛”，[url]http://www.fspdi.com/forum[/url]
   
10.    获得更多函数
    
11. |;
    
12. (defun $l2string (pl / f str)
    
13.   (if (setq f (open "l$s.temp" "w"))
    
14.     (progn
    
15.       (princ pl f)
    
16.       (close f)
    
17.       (if (setq f (open "l$s.temp" "r"))
    
18.         (progn
    
19.           (setq str (read-line f))
    
20.           (close f)
    
21.         )
    
22.       )
    
23.     )
    
24.   )
    
25.   str
    
26. )
    

<br /> ;|<br />    函数：$l2string<br />    参数：表<br />    作用：把LIST转换成字符串<br />    适用平台：AutoCAD任何版本<br />    <br />    欢迎到“晓东CAD空间－论坛”，[url]http://www.fspdi.com/forum[/url]<br />    获得更多函数<br /> |;<br /> (defun $l2string (pl / f str)<br />   (if (setq f (open "l$s.temp" "w"))<br />     (progn<br />       (princ pl f)<br />       (close f)<br />       (if (setq f (open "l$s.temp" "r"))<br />         (progn<br />           (setq str (read-line f))<br />           (close f)<br />         )<br />       )<br />     )<br />   )<br />   str<br /> )<br />

测试结果：
命令: (setq a '((35 5 56) 24 "3ffafg"))
((35 5 56) 24 "3ffafg")

命令: ($l2string a)
"((35 5 56) 24 3ffafg)"

LUCAS

谢谢你!!以上程序马上行用

XDSoft

最初由 LUCAS 发布
[B]谢谢你!!以上程序马上行用 [/B]

不用，写好后，把程序贴到“程序库”论坛就可以了：）