关于套料（源码）

下文没句号。

网盘里的三领不知道是什么，没下载来看，  还有加一个物料相同的情况下，设置【是否镜像排版】

尘缘一生

Grgogo 发表于 2022-10-21 15:45
目前来说，这个软件，所排版的结果，还算勉强能用。不足之处也有

比如不能区分两种零件得间距。

可别说，不同零件，加以继续开发，倒是不难，就是根据一种零件，设置它的边距，这样一种种设置完后，再计算它之包容盒+边距的一半，设置完，进入。。。。。

这样就是按种类、数量、它的具体参数，一起进入排版，

原代码，考虑的是一一有这些零件的图了，一起进入的，这样子，很有启发。

• ;;!!!!!!!!!!!!!!!!!!!!!零件部分
•   (princ (slmsg "\n 选择套料零件:" "\n 選擇套料零件:" "\n Select Nested Parts:"))
•   (setq ss (ssget))
•   (repeat (setq n (sslength ss))
•     (setq nam (ssname ss (setq n (1- n))))
•     (setq plis (e-box4 nam t))
•     (setq maxp (mapcar '+ (caddr plis) (list ljj ljj)))
•     (setq minp (mapcar '- (car plis) (list ljj ljj)))
•     (mapcar 'set '(a h) (mapcar '- maxp minp))
•     (setq lst (cons (list (list (en2obj nam)) minp (max a h) (min a h) (if (>= a h) t nil)) lst))
•   )
•   (setq sumare (apply '+ (mapcar '(lambda (x) (* (caddr x) (cadddr x))) lst))) ;计算矩形框总面积
•   (setq lst  (vl-sort lst '(lambda (a b) (> (caddr a) (caddr b))))) ;按照最长边长度对零件矩形框排序
•   (if ent0 (entdel ent0))
•   ;;!!!!!!!!!!!!!!!!!!!!!零件部分
  

也就是扩容这段代码，对LJJ的研究，还可以分为左右上下4个，再加镜像与否，做完，构建 LST。。。。。，原代码已经考虑是否旋转了，可以借鉴这个思路。

尘缘一生

下文没句号。 发表于 2022-10-21 21:44
网盘里的三领不知道是什么，没下载来看，  还有加一个物料相同的情况下，设置【是否镜像排版】

因为偶尔作钢构的朋友需要我帮助作这个，我整理集成在 三领设计，链接是【三领设计V3.0】的永久下载地址，可以试用测试功能，这样子。
你提的镜像，还有一个朋友刚才说的，类别单独设置，这倒是我能写出来这部分。
没写，也能估算代码体量，需要功夫，思路我想的也差不多了。。。。

sachindkini

dear sir ,
superb ....

Grgogo

尘缘一生 发表于 2022-10-21 22:37
可别说，不同零件，加以继续开发，倒是不难，就是根据一种零件，设置它的边距，这样一种种设置完后，再计 ...

我不太懂代码，这是我人工排版的图，是可以直接投入生产使用的，不需要二次修改。如果插件，能做到这样子，我觉得对于我们这行就很完美了。

chixun99

好东西，看了不少这些，好像能用的都很贵。算法研究得高深的好像没有什么产品。

Noangler

请问大佬，这个源码里面在哪里增加启动命令。