二维异形排样

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))))
(while  vlst
   (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排版演示[/url]

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……

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

[自我挑战] 二维异形排样

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源