mahuan1279 发表于 2022-9-26 10:36:38

二维异形排样

本帖最后由 mahuan1279 于 2022-9-26 11:10 编辑

二维异形排样，有点烧脑……

mahuan1279 发表于 2022-9-27 15:51:09

;;;LCS最长公共字符串
(defun f (str1 str2)
(setq str1lst (vl-string->list str1))
(setq str2lst (vl-string->list str2))
(setq lst (vl-remove nil (apply 'append (mapcar '(lambda (x)
            (progn
                           (setq j -1)
                           (reverse(mapcar '(lambda (y) (progn (setq j (+ j 1)) (if (= x y) j nil))) str2lst))
                         ))
                         str1lst)))
)
(defun f1 (plst j num)
   (setq ij -1)
   (setq plst (mapcar '(lambda (x) (if (= (setq ij (+ ij 1)) j) num x)) plst))
)
(setq n (length lst) i 0 ans 0 vlst '(nil))
(repeat n (setq vlst (cons nil vlst)))
(while (< i n)
    (setq l 0 r ans)
      (while (< l r)
          (setq mid (/ (+ l r) 2))
          (if (<= (nth mid vlst) (nth i lst))
               (setq l (+ mid 1))
                   (setq r mid)
         )
      )
    (setq vlst (f1 vlst l (nth i lst)))
      (if (= l ans) (setq ans (+ ans 1)))
      (setq i (+ i 1))
)
(setq vlst (reverse (vl-remove nil vlst)) alst (reverse lst) blst (list (+ 1 (car vlst))))
(whilevlst
   (if (and (>= (car alst) (car vlst)) (<= (car alst) (car blst)))
             (progn
             (setq blst (cons (car alst) blst))
             (setq vlst (cdr vlst))
                         (setq alst (cdr alst))
               )
               (setq alst (cdr alst))
         )
)
(vl-list->string (mapcar '(lambda (x) (nth x str2lst)) (reverse (cdr (reverse blst)))))
)

mahuan1279 发表于 2023-2-11 10:22:17

陈小五 发表于 2023-2-10 00:06
【CAD、Tekla、RADAN插件套料排版教学 1.nc文件排版】 https://www.bilibili.com/video/BV1JY411B7gt/?shar ...

从图上看，利用率应该还可以提高些。

陈小五 发表于 2023-2-10 00:06:46

本帖最后由 陈小五 于 2023-2-10 00:07 编辑

【CAD、Tekla、RADAN插件套料排版教学 1.nc文件排版】 https://www.bilibili.com/video/BV1JY411B7gt/?share_source=copy_web排版演示

guosheyang 发表于 2022-9-26 12:32:50

大佬的超级难题！

mahuan1279 发表于 2022-9-27 16:08:08

本帖最后由 mahuan1279 于 2022-9-27 16:57 编辑

没想到碎片拼接居然用到LCS。

chixun99 发表于 2022-9-27 17:39:12

虽然看不明白，请继续

Grgogo 发表于 2022-9-27 21:26:31

世纪难题，大佬如果做出来，行业喜讯

panliang9 发表于 2022-9-28 09:39:05

用AI会不会更快点。

mahuan1279 发表于 2022-9-28 09:51:31

panliang9 发表于 2022-9-28 09:39
用AI会不会更快点。

AI太高级了，不在考虑范围。

hhh454 发表于 2022-9-28 23:32:45

精雕软件，有排样工具，可以参考一下，排样需要考虑的因素挺多的，
我们对于排样要求不高，就用的软件自带的

mahuan1279 发表于 2022-10-7 09:15:37

随机算法不知道运行速度如何？编码ing……
页: [1] 2
查看完整版本: 二维异形排样