想要做一个出料单的插件 该如何写

Eltrion

如题  想要做一个出气缸料单的插件    我目前做到的提取图元里的数据后  得到一个表
("SDA25-20" "SDA20-50" "SDA35-20" "SDA25-20" "SDA25-20")
怎么样可以把里面的元素 相同的整合起来变成数量2   并且每个元素按大小排列呢

菜卷鱼

你先把所有的元素排好，数量设置为0，出现一个图元数量就加一，最后的时候只显示数量不为0的

690994

刚好做过五金模具标准件输出表，以下代码可参考

    (defun c:te ( / b1 b2 i lst lst1)
    (setq LST (list "RK 38-13-L10-9" "CB 12-25" "Msw 12" "CB 12-55"  "Msw 12"  "Msw 12"))   
    (if lst     
            (IF (> (length lst) 1)
               (progn
                   (setq lst (acad_strlsort lst)                        
                             i 1
                             lst1 (list (car lst))
                             lst (cdr lst)
                    )
                    (while lst
                        (setq b1 (last lst1)
                                b2 (car lst)
                        )
                        (if (= b1 b2)
                            (progn
                                (setq i (1+ i)
                                      lst (cdr lst)
                                 )
                                (if (= nil lst)
                                    (setq lst1 (append lst1 (list (itoa i))))
                                )
                            ) ; progn
                            (progn
                                (setq lst1 (append  lst1 (list(itoa i)))
                                      lst1 (append lst1 (list b2))
                                      lst (cdr lst)
                                      i 1
                                 )
                                (if (= nil lst)
                                    (setq lst1 (append lst1(list(itoa i))))
                                )
                            )          ; progn
                        )              ; if
                    )                  ; while
                )                      ; progn
                (setq lst1 (append  lst '("1")))
            )                          ; if
    )
lst1
)
;lst1= ("CB 12-25" "1" "CB 12-55" "1" "Msw 12" "3" "RK 38-13-L10-9" "1")

Eltrion

菜卷鱼 发表于 2019-8-31 08:34
你先把所有的元素排好，数量设置为0，出现一个图元数量就加一，最后的时候只显示数量不为0的

好的 我懂了 谢谢大神

Eltrion

690994 发表于 2019-8-31 09:20
刚好做过五金模具标准件输出表，以下代码可参考

    (defun c:te ( / b1 b2 i lst lst1)

谢谢大神的程序示例