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

st788796 · 发表于 2013-11-27 21:28:00

金鹅起飞发表于 2013-11-27 21:25
st788796大师：不好意思，忘了告诉您：统计时对零件的外轮廓不管，只是对零件里面的块进行统计汇总。零件 ...

需要轮廓来选择内部块, 所以这个轮廓要确定!

金鹅起飞 · 发表于 2013-11-27 21:31:04

st788796 发表于 2013-11-27 21:28
需要轮廓来选择内部块, 所以这个轮廓要确定!

实际的图的图层也是“轮廓层”。

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

st788796 发表于 2013-11-27 21:28
需要轮廓来选择内部块, 所以这个轮廓要确定!

实际的图的图层也是“轮廓层”。

st788796 · 发表于 2013-11-27 21:32:08

金鹅起飞发表于 2013-11-27 21:31
实际的图的图层也是“轮廓层”。

(setq ss (ssget '((8 . "轮廓"))))
->
(setq ss (ssget '((8 . "轮廓层"))))

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

st788796 发表于 2013-11-27 21:32
(setq ss (ssget '((8 . "轮廓"))))
->
(setq ss (ssget '((8 . "轮廓层"))))

st788796大师：刚才替换了“轮廓”和“轮廓层”

分别加载后，都是相同的提示：

命令: tt

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

st788796 · 发表于 2013-11-27 21:47:08

金鹅起飞发表于 2013-11-27 21:41
st788796大师：刚才替换了“轮廓”和“轮廓层”

分别加载后，都是相同的提示：

按样图表格生成的文字位置

金鹅起飞 · 发表于 2013-11-27 21:54:22

st788796 发表于 2013-11-27 21:47
按样图表格生成的文字位置

st788796大师：看不到您上传的图片。

金鹅起飞 · 发表于 2013-11-28 08:11:42

st788796 发表于 2013-11-27 21:47
按样图表格生成的文字位置

喔，今天可以看到图片，昨晚不知咋的，看不到。从演示的结果看，st788796大师的程序可以统计出零件A和零件B的五金配件了。我忽然有个想法：请问st788796大师：可不可以这样，不用表格了，框选所有零件，能把相同名称的五金配件数量汇总，这个能够实现吗？

st788796 · 发表于 2013-11-28 08:13:47

金鹅起飞发表于 2013-11-28 08:11
喔，今天可以看到图片，昨晚不知咋的，看不到。从演示的结果看，st788796大师的程序可以统计出零件A和零 ...

这样比现在代码要省一些

st788796 · 发表于 2013-11-28 09:10:57

金鹅起飞发表于 2013-11-28 08:11
喔，今天可以看到图片，昨晚不知咋的，看不到。从演示的结果看，st788796大师的程序可以统计出零件A和零 ...

这种统计方法太多了，用 XD::List:GroupByIndex的标准写法

(defun c:tt (/ ss ll p)
(if (setq ss (ssget '((0 . "insert"))))
(progn
(setq ll (mapcar
'(lambda (x /)
(list
(car (xdrx_getpropertyvalue
x
"BlockTableRecord"
)
)
x
)
)
(xdrx_pickset->ents ss)
)
ll (mapcar '(lambda (x)
(list (car x) (itoa (length (cdr x))))
)
(XD::List:GroupByIndex ll 0)
)
)
(if (setq p (getpoint "\nPosition: "))
(mapcar '(lambda (x /)
(xdrx_text_make p (car x) 18. 0.)
(xdrx_text_make
(mapcar '+ p '(21. 75. 0.))
(cadr x)
18.
(* pi 0.5)
)
(setq p (polar p 0. 75.))
)
ll
)
)
)
)
(princ)
)

(defun c:tt (/ ss ll p) 
  (if (setq ss (ssget '((0 . "insert")))) 
    (progn 
      (setq ll (mapcar 
                 '(lambda (x /) 
                    (list 
                      (car (xdrx_getpropertyvalue 
                             x 
                             "BlockTableRecord" 
                           ) 
                      ) 
                      x 
                    ) 
                  ) 
                 (xdrx_pickset->ents ss) 
               ) 
            ll (mapcar '(lambda        (x) 
                          (list (car x) (itoa (length (cdr x)))) 
                        ) 
                       (XD::List:GroupByIndex ll 0) 
               ) 
      ) 
      (if (setq p (getpoint "\nPosition: ")) 
        (mapcar        '(lambda (x /) 
                   (xdrx_text_make p (car x) 18. 0.) 
                   (xdrx_text_make 
                     (mapcar '+ p '(21. 75. 0.)) 
                     (cadr x) 
                     18. 
                     (* pi 0.5) 
                   ) 
                   (setq p (polar p 0. 75.)) 
                 ) 
                ll 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

金鹅起飞 · 发表于 2013-11-29 12:38:45

st788796 发表于 2013-11-28 09:10
这种统计方法太多了，用 XD:ist:GroupByIndex的标准写法

st788796大师好！昨天太忙，没有时间来试您的程序，今天中午抽时间来试试。发现文字全部重叠在一起，不像您的文字是竖的，我试的时候是横着的，请看图片，那个地方出了问题呢？

st788796 · 发表于 2013-11-29 12:55:46

金鹅起飞发表于 2013-11-29 12:38
st788796大师好！昨天太忙，没有时间来试您的程序，今天中午抽时间来试试。发现文字全部重叠在一起，不像 ...

把后面的 (car x) 和 (cadr x) 写反了，换个位置

金鹅起飞 · 发表于 2013-11-29 13:06:56

st788796 发表于 2013-11-29 12:55
把后面的 (car x) 和 (cadr x) 写反了，换个位置

换了之后出现“

选择对象: 指定对角点: 找到 24 个
选择对象: ; 错误: 参数类型错误: listp "五金9999999"

金鹅起飞 · 发表于 2013-11-29 13:09:17

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

st788796 发表于 2013-11-29 12:55
把后面的 (car x) 和 (cadr x) 写反了，换个位置

把后面的 (car x) 和 (cadr x) 写反了，换个位置
是这样换吗：
(list (cadr x) (itoa (length (car x))))

金鹅起飞 · 发表于 2013-11-29 13:23:26

st788796 发表于 2013-11-29 12:55
把后面的 (car x) 和 (cadr x) 写反了，换个位置

谢谢！我刚才终于换对了，已经可以了。{:soso_e179:}谢谢st788796大师！

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评