复杂的计算

meflying

按剩余量、能切个数、材料规格排了出来，按剩余量大小排列顺序，剩余量是所剩材料的面积（没记厚度，不同厚度应该不能使用吧）至于用哪个，你自己选吧

2. (defun An_Sta(sta / i strtmp data ch)
3.    (setq i 1)
4.    (setq strtmp "" data "")
5.    (repeat (strlen sta)
6.        (setq ch (substr sta i 1))
7.        (if (or (= ch "-") (= ch "x"))
8.            (progn
9.   (setq data (strcat data strtmp " "))
10.   (setq strtmp "")
11.            )
12.            (setq strtmp (strcat strtmp ch))
13.        )
14.        (setq i (1+ i))
15.    )
16.    (setq data (strcat data strtmp))
17.    (read (strcat "(" data ")"))
18. )
19. (defun c:mat( / lib sta seldata res)
20.    (setq lib '("-2100x20x9000" "-2200x20x8500" "-2300x20x7000" "-2250x20x8700"))
21.    (setq s 2);切割系数
22.    (while (not (wcmatch (setq sta (getstring "输入规格:")) "*x*")))
23.    (setq lib (mapcar 'an_sta lib))
24.    (setq sta (an_sta sta))
25.    (setq seldata (mapcar '(lambda(e) (if (and (= (cadr e) (cadr sta)) (>= (last e) (last sta))) e nil)) lib))
26.    (if (setq seldata (vl-remove nil seldata))
27.        (progn
28.            (setq res (mapcar '(lambda(e / re1 re2 n)
29.            (setq re1 (- (car e) (* (setq n (fix (/ (car e) (+ s (car sta))))) (+ s (car sta)))))
30.            (setq re2 (- (last e) (* (fix (/ (last e) (+ s (last sta)))) (+ s (last sta)))))
31.            (list (* re1 re2) n (strcat "-" (rtos (car e)) "x" (rtos (cadr e)) "x" (rtos (caddr e))))
32.        )
33.    seldata)
34.            )
35.            (setq res (vl-sort res '(lambda(e1 e2) (< (car e1) (car e2)))))
36.            (prin1 res)
37.        )
38.        (princ "没有符合要求的材料规格!")
39.    )
40.    (princ)
41. )

(defun An_Sta(sta / i strtmp data ch)    (setq i 1)    (setq strtmp "" data "")    (repeat (strlen sta)        (setq ch (substr sta i 1))        (if (or (= ch "-") (= ch "x"))            (progn   (setq data (strcat data strtmp " "))   (setq strtmp "")            )            (setq strtmp (strcat strtmp ch))        )        (setq i (1+ i))    )    (setq data (strcat data strtmp))    (read (strcat "(" data ")")) ) (defun c:mat( / lib sta seldata res)    (setq lib '("-2100x20x9000" "-2200x20x8500" "-2300x20x7000" "-2250x20x8700"))    (setq s 2);切割系数    (while (not (wcmatch (setq sta (getstring "输入规格:")) "*x*")))    (setq lib (mapcar 'an_sta lib))    (setq sta (an_sta sta))    (setq seldata (mapcar '(lambda(e) (if (and (= (cadr e) (cadr sta)) (>= (last e) (last sta))) e nil)) lib))    (if (setq seldata (vl-remove nil seldata))        (progn            (setq res (mapcar '(lambda(e / re1 re2 n)            (setq re1 (- (car e) (* (setq n (fix (/ (car e) (+ s (car sta))))) (+ s (car sta)))))            (setq re2 (- (last e) (* (fix (/ (last e) (+ s (last sta)))) (+ s (last sta)))))            (list (* re1 re2) n (strcat "-" (rtos (car e)) "x" (rtos (cadr e)) "x" (rtos (caddr e))))        )    seldata)            )            (setq res (vl-sort res '(lambda(e1 e2) (< (car e1) (car e2)))))            (prin1 res)        )        (princ "没有符合要求的材料规格!")    )    (princ) )

CADghost

老版,谢谢你,哥们再研究研究,有问题再请教!