[已解决]求立体图统计尺寸及汇总编号的程序

金鹅起飞 · 发表于 2013-11-22 15:51:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由金鹅起飞于 2013-11-24 11:25 编辑

各位大师：小弟求一个lsp程序,框选所有的零件能够自动统计立体图的长宽高尺寸，并能够自动统计相同零件的件数。具体的见下面图片。谢谢！

st788796 · 发表于 2013-11-22 16:28:04

你这些是 Solid 还是用线组合的?

金鹅起飞 · 发表于 2013-11-22 17:18:56

图片演示的是实体抽壳后的线条图，不是实体，附件内才有实体的原文件。为了能够看得清楚，所以才变成了线条图。实际的不是这样的，是三维实体。谢谢您！

金鹅起飞 · 发表于 2013-11-22 17:19:33

st788796 发表于 2013-11-22 16:28
你这些是 Solid 还是用线组合的?

图片演示的是实体抽壳后的线条图，不是实体，附件内才有实体的原文件。为了能够看得清楚，所以才变成了线条图。实际的不是这样的，是三维实体。谢谢您！
- 本文出自晓东CAD家园-论坛，原文地址：http://bbs.xdcad.net/thread-671773-1-1.html

st788796 · 发表于 2013-11-22 17:42:36

金鹅起飞发表于 2013-11-22 17:19
图片演示的是实体抽壳后的线条图，不是实体，附件内才有实体的原文件。为了能够看得清楚，所以才变成了线 ...

XD::List:GroupByIndex 需单独加载, 1122 lisp-lib 中不包括此函数了！
文字和 Solid 没有关系，无法选择

(defun c:tt (/ ss el)
(if (setq ss (ssget '((0 . "3dsolid"))))
(progn
(setq
el
(mapcar
'(lambda (x)
(list
(mapcar
'(lambda (a) (fix (abs a)))
(apply
'mapcar
(cons '- (xdrx_getpropertyvalue x "Boundingbox"))
)
)
x
)
)
(xdrx_pickset->ents ss)
)
)
(XD::LIST:GROUPBYINDEX el 0)
)
)
)

金鹅起飞 · 发表于 2013-11-23 19:33:36

st788796 发表于 2013-11-22 17:42
XD:ist:GroupByIndex 需单独加载, 1122 lisp-lib 中不包括此函数了！
文字和 Solid 没有关系，无法选 ...

st788796大师：谢谢您的程序。我刚才试了一下，不能统计尺寸及汇总。我又下载了XD::List:GroupByIndex ，加载之后又试了试，还是错误，提示是：错误: no function definition: XDRX_PICKSET->ENTS，请指教！

st788796 · 发表于 2013-11-23 19:47:33

金鹅起飞发表于 2013-11-23 19:33
st788796大师：谢谢您的程序。我刚才试了一下，不能统计尺寸及汇总。我又下载了XD:ist:GroupByIndex ， ...

加载 XDRXAPI

金鹅起飞 · 发表于 2013-11-23 19:57:44

本帖最后由金鹅起飞于 2013-11-23 19:58 编辑

st788796 发表于 2013-11-23 19:47
加载 XDRXAPI

st788796大师好！谢谢回复！下载了XDRXAPI函数，加载试了试，命令行出现：
选择对象: 指定对角点: 找到 2 个
选择对象: (((1515 435 8) <图元名: 7efa3570> <图元名: 7efa3528>))，还是没有出现尺寸统计的数字。
请指教。谢谢！

金鹅起飞 · 发表于 2013-11-23 20:00:37

st788796 发表于 2013-11-23 19:47
加载 XDRXAPI

我又在立体图表面写了部件的名称，再试，还是不行，请指教。

st788796 · 发表于 2013-11-23 20:00:51

金鹅起飞发表于 2013-11-23 19:57
st788796大师好！谢谢回复！下载了XDRXAPI函数，加载试了试，命令行出现：
选择对象: 指定对角点: 找到 ...

子表第一项就是你的零件尺寸，后面的是计数实体

金鹅起飞 · 发表于 2013-11-23 20:04:16

st788796 发表于 2013-11-23 20:00
子表第一项就是你的零件尺寸，后面的是计数实体

不可以统计后，点击一下，出现在屏幕上吗？

金鹅起飞 · 发表于 2013-11-23 20:08:55

st788796 发表于 2013-11-23 20:00
子表第一项就是你的零件尺寸，后面的是计数实体

零件尺寸与统计后的尺寸不符，我刚才去量了一下，实际是1483*436*8，而统计出来的是：1515*435*8，请指教。

st788796 · 发表于 2013-11-23 20:09:26

金鹅起飞发表于 2013-11-23 20:00
我又在立体图表面写了部件的名称，再试，还是不行，请指教。

(defun c:tt (/ ss el h v)
(if (and (setq ss (ssget '((0 . "3dsolid"))))
(setq p (getpoint "\nOutput Point: "))
)
(progn
(setq
el
(mapcar
'(lambda (x)
(list
(mapcar
'(lambda (a) (fix (abs a)))
(apply
'mapcar
(cons '- (xdrx_getpropertyvalue x "Boundingbox"))
)
)
x
)
)
(xdrx_pickset->ents ss)
)
)
(setq h (getvar "textsize")
v (mapcar '* (list h h 0.) '(1.5 1.5 0.))
)
(mapcar
'(lambda (x)
(xdrx_text_make
p
(strcat (xdrx_string_join (mapcar 'itoa (car x)) "x")
"="
(itoa (length (cdr x)))
)
h
0.
)
(setq p (mapcar '+ p v))
)
(XD::LIST:GROUPBYINDEX el 0)
)
)
)
(princ)
)

(defun c:tt (/ ss el h v) 
  (if (and (setq ss (ssget '((0 . "3dsolid")))) 
           (setq p (getpoint "\nOutput Point: ")) 
      ) 
    (progn 
      (setq 
        el 
         (mapcar 
           '(lambda (x) 
              (list 
                (mapcar 
                  '(lambda (a) (fix (abs a))) 
                  (apply 
                    'mapcar 
                    (cons '- (xdrx_getpropertyvalue x "Boundingbox")) 
                  ) 
                ) 
                x 
              ) 
            ) 
           (xdrx_pickset->ents ss) 
         ) 
      ) 
      (setq h (getvar "textsize") 
            v (mapcar '* (list h h 0.) '(1.5 1.5 0.)) 
      ) 
      (mapcar 
        '(lambda (x) 
           (xdrx_text_make 
             p 
             (strcat (xdrx_string_join (mapcar 'itoa (car x)) "x") 
                     "=" 
                     (itoa (length (cdr x))) 
             ) 
             h 
             0. 
           ) 
           (setq p (mapcar '+ p v)) 
         ) 
        (XD::LIST:GROUPBYINDEX el 0) 
      ) 
    ) 
  ) 
  (princ) 
)

金鹅起飞 · 发表于 2013-11-23 20:20:25

st788796 发表于 2013-11-23 20:09

ST788796大师，试了您刚才写的新程序，命令行出现：

选择对象: 指定对角点: 找到 2 个 (2 个重复)，总计 2 个
选择对象:
Output Point:
命令:

我选择了输出点，它又重复出现了，不知何解。要求输入输出点时，我在屏幕上点了一下，不行；输入坐标也不行，请指教，谢谢！

st788796 · 发表于 2013-11-23 20:25:53

金鹅起飞发表于 2013-11-23 20:20
ST788796大师，试了您刚才写的新程序，命令行出现：

选择对象: 指定对角点: 找到 2 个 (2 个重复)，总 ...

换到顶视图

账号		自动登录	找回密码
密码			立即注册

[已解决] [已解决]求立体图统计尺寸及汇总编号的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评