求框选零件后五金自动生产统计表的LSP程序

金鹅起飞 · 发表于 2013-11-27 10:49:59

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

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

×

本帖最后由金鹅起飞于 2013-11-27 10:53 编辑

大师们好！LSP文盲向您们求助。为了提高工作效率，减少出错几率，特别想有一个LSP程序实现框选零件后自动统计汇总零件上的五金配件的表格，劳驾大师出手。能否用下面的“超级统计块 KK ”更改实现。谢谢！

st788796 · 发表于 2013-11-27 11:15:24

这个是翔版主的程序吧!统计简单,就是生成表格很麻烦的,要写一堆代码!

金鹅起飞 · 发表于 2013-11-27 11:36:08

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

st788796 发表于 2013-11-27 11:15
这个是翔版主的程序吧!统计简单,就是生成表格很麻烦的,要写一堆代码!

翔版主的程序吗？但统计后出来是开金CAD呢？
导出到EXCEL简单吗？

st788796 · 发表于 2013-11-27 11:38:57

金鹅起飞发表于 2013-11-27 11:36
导出到EXCEL行不行？

导出也一样，主要是计算那些空格忒麻烦

金鹅起飞 · 发表于 2013-11-27 11:41:24

st788796 发表于 2013-11-27 11:38
导出也一样，主要是计算那些空格忒麻烦

那咋办？用附件内的程序改可不可以？

st788796 · 发表于 2013-11-27 11:45:26

金鹅起飞发表于 2013-11-27 11:41
那咋办？用附件内的程序改可不可以？

分别统计出 A B 的零件, 剩下的自己填表吧

金鹅起飞 · 发表于 2013-11-27 11:48:59

st788796 发表于 2013-11-27 11:45
分别统计出 A B 的零件, 剩下的自己填表吧

如果能的话，就好了，因为我的图纸有时上百件，自己填很费时间，又不能保证百分之百准确。

st788796 · 发表于 2013-11-27 11:59:00

金鹅起飞发表于 2013-11-27 11:48
如果能的话，就好了，因为我的图纸有时上百件，自己填很费时间，又不能保证百分之百准确。

生成部分表很快就可写出来, 但按你最终的表生成太费时间

金鹅起飞 · 发表于 2013-11-27 12:34:22

st788796 发表于 2013-11-27 11:59
生成部分表很快就可写出来, 但按你最终的表生成太费时间

st788796大师：生成部分表格，这个“部分”的表格有多大？几行几列？如果有20行20列也可以，能办到吗？我可以先统计20件零件，再统计20件，最后再手动输入，也比目前快。

st788796 · 发表于 2013-11-27 12:38:22

金鹅起飞发表于 2013-11-27 12:34
st788796大师：生成部分表格，这个“部分”的表格有多大？几行几列？如果有20行20列也可以，能办到吗？我 ...

可以将A的写一行
B 一行
………
数量不限

金鹅起飞 · 发表于 2013-11-27 12:46:30

st788796 发表于 2013-11-27 12:38
可以将A的写一行
B 一行
………

好呀！谢谢您st788796大师！

st788796 · 发表于 2013-11-27 18:06:43

金鹅起飞发表于 2013-11-27 12:46
好呀！谢谢您st788796大师！

先看看

(defun c:tt (/ ss box ll lst p0)
(if (setq ss (ssget '((8 . "轮廓"))))
(progn
(setq box (xdrx_entity_box ss))
(if (apply 'xdrx_document_isptoutscreen box)
(xdrx_document_zoomw (car box) (nth 2 box))
)
(xdrx_sysvar_push '("osmode" 0))
(mapcar
'(lambda (x / box s)
(setq box (xdrx_entity_box x))
(if (setq
s (ssget "W" (car box) (nth 2 box) '((0 . "Insert")))
)
(setq ll (cons (xdrx_pickset->ents s) ll))
)
)
(xdrx_pickset->ents ss)
)
(xdrx_sysvar_pop)
(if (and ll
(setq p0 (getpoint "\nPosition: "))
)
(progn
(setq
lst (mapcar
'(lambda (x)
(mapcar '(lambda (b)
(list (car b) (length (cdr b)))
)
(XD::List:GroupByIndex
(mapcar
'(lambda (a)
(list
(car (xdrx_getpropertyvalue
a
"BlockTableRecord"
)
)
a
)
)
x
)
0
)
)
)
ll
)
)
(setq i 1)
(mapcar '(lambda (x / zl nl h)
(setq zl (mapcar 'car x)
nl (mapcar 'itoa (mapcar 'cadr x))
p p0
h (+ 100 (XD::String:MaxActualWidth zl "" 18 1.))
)
(xdrx_text_make (polar p pi 120.) (itoa i) 18. 0.)
(mapcar '(lambda (a b)
(xdrx_text_make p b 18. 0.)
(xdrx_text_make
(mapcar '+ p '(21. 75. 0.))
a
18.
(* pi 0.5)
)
(setq p (polar p 0. 75.))
)
zl
nl
)
(setq i (1+ i))
(setq p0 (mapcar '+ p0 (list 0. (- h 0.))))
)
lst
)
)
)
)
)
(princ)
)

(defun c:tt (/ ss box ll lst p0) 
  (if (setq ss (ssget '((8 . "轮廓")))) 
    (progn 
      (setq box (xdrx_entity_box ss)) 
      (if (apply 'xdrx_document_isptoutscreen box) 
        (xdrx_document_zoomw (car box) (nth 2 box)) 
      ) 
      (xdrx_sysvar_push '("osmode" 0)) 
      (mapcar 
        '(lambda (x / box s) 
           (setq box (xdrx_entity_box x)) 
           (if (setq 
                 s (ssget "W" (car box) (nth 2 box) '((0 . "Insert"))) 
               ) 
             (setq ll (cons (xdrx_pickset->ents s) ll)) 
           ) 
         ) 
        (xdrx_pickset->ents ss) 
      ) 
      (xdrx_sysvar_pop) 
      (if (and ll 
               (setq p0 (getpoint "\nPosition: ")) 
          ) 
        (progn 
          (setq 
            lst        (mapcar 
                  '(lambda (x) 
                     (mapcar '(lambda (b) 
                                (list (car b) (length (cdr b))) 
                              ) 
                             (XD::List:GroupByIndex 
                               (mapcar 
                                 '(lambda (a) 
                                    (list 
                                      (car (xdrx_getpropertyvalue 
                                             a 
                                             "BlockTableRecord" 
                                           ) 
                                      ) 
                                      a 
                                    ) 
                                  ) 
                                 x 
                               ) 
                               0 
                             ) 
                     ) 
                   ) 
                  ll 
                ) 
          ) 
          (setq i 1) 
          (mapcar '(lambda (x / zl nl h) 
                     (setq zl (mapcar 'car x) 
                           nl (mapcar 'itoa (mapcar 'cadr x)) 
                           p  p0 
                           h  (+ 100 (XD::String:MaxActualWidth zl "" 18 1.)) 
                     ) 
                     (xdrx_text_make (polar p pi 120.) (itoa i) 18. 0.) 
                     (mapcar '(lambda (a b) 
                                (xdrx_text_make p b 18. 0.) 
                                (xdrx_text_make 
                                  (mapcar '+ p '(21. 75. 0.)) 
                                  a 
                                  18. 
                                  (* pi 0.5) 
                                ) 
                                (setq p (polar p 0. 75.)) 
                              ) 
                             zl 
                             nl 
                     ) 
                     (setq i (1+ i)) 
                     (setq p0 (mapcar '+ p0 (list 0. (- h 0.)))) 
                   ) 
                  lst 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

金鹅起飞 · 发表于 2013-11-27 19:52:20

st788796 发表于 2013-11-27 18:06
先看看

st788796大师：感谢您的程序！我刚才试了一下。出现：

命令: AP
APPLOAD 已成功加载统计五金配件程序.lsp。
命令: TT
选择对象: 指定对角点: 找到 0 个

求解。

st788796 · 发表于 2013-11-27 21:16:50

金鹅起飞发表于 2013-11-27 19:52
st788796大师：感谢您的程序！我刚才试了一下。出现：

命令: AP

样图的零件外框线为 "轮廓" 图层，提供样图时请提供实际图

金鹅起飞 · 发表于 2013-11-27 21:25:38

st788796 发表于 2013-11-27 21:16
样图的零件外框线为 "轮廓" 图层，提供样图时请提供实际图

st788796大师：不好意思，忘了告诉您：统计时对零件的外轮廓不管，只是对零件里面的块进行统计汇总。零件里面的孔其实是块，五金配件的名称其实就是块名。

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

[求助] 求框选零件后五金自动生产统计表的LSP程序

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

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评