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 22:44 编辑
下文没句号。 发表于 2022-10-21 21:44
网盘里的三领不知道是什么，没下载来看，还有加一个物料相同的情况下，设置【是否镜像排版】
因为偶尔作钢构的朋友需要我帮助作这个，我整理集成在 三领设计，链接是【三领设计V3.0】的永久下载地址，可以试用测试功能，这样子。
你提的镜像，还有一个朋友刚才说的，类别单独设置，这倒是我能写出来这部分。
没写，也能估算代码体量，需要功夫，思路我想的也差不多了。。。。
dear sir ,
superb .... 尘缘一生 发表于 2022-10-21 22:37
可别说，不同零件，加以继续开发，倒是不难，就是根据一种零件，设置它的边距，这样一种种设置完后，再计 ...
我不太懂代码，这是我人工排版的图，是可以直接投入生产使用的，不需要二次修改。如果插件，能做到这样子，我觉得对于我们这行就很完美了。 好东西，看了不少这些，好像能用的都很贵。算法研究得高深的好像没有什么产品。 请问大佬，这个源码里面在哪里增加启动命令。
页:
1
[2]