求思路---什么都不说--直接上图

ysq101

这个用LISP可能办得到吗？

newer

你这个是排料问题吧，这个跟LISP无关，需要有成熟高校的算法，你要有算法，LISP实现很简单。

ysq101

newer 发表于 2013-8-9 17:52
你这个是排料问题吧，这个跟LISP无关，需要有成熟高校的算法，你要有算法，LISP实现很简单。

可怜的我只有小学文化，，，没文化的孩子伤不起啊

st788796

看图示不需要复杂算发法啊！排序+对齐来自: Android客户端

newer

楼主，你是想原图上面零件不旋转求最小包围盒？ 而是直接把他们移动到下面按一条线排齐就行？

包围盒就是包围盒，你加了个“最小”两字意思不一样了哦。

ysq101

newer 发表于 2013-8-9 18:16
楼主，你是想原图上面零件不旋转求最小包围盒？ 而是直接把他们移动到下面按一条线排齐就行？

包围盒就 ...

登录/注册后可看大图 原图上面零件不旋转 直接把他们移动到下面按一条线排齐就行 我又表达错误了。。。应该不算是最小包围盒

newer

ysq101 发表于 2013-8-9 18:20

那楼主，你的图里面那个 白色的葫芦是哪来的？ 上面里面没找到啊， 另外那些实体的顺序你是怎么定的？看你图没按上面的位置排序。

st788796

逗着玩的？来自: Android客户端

ysq101

newer 发表于 2013-8-9 18:26
那楼主，你的图里面那个 白色的葫芦是哪来的？ 上面里面没找到啊， 另外那些实体的顺序你是怎么定的？看 ...

白色的葫芦上面的图误删了~~

Love-Lisp

ysq101 发表于 2013-8-9 22:25
白色的葫芦上面的图误删了~~

按楼主所述，实现很容易！
计算物体的包围框，按左下角点逐个移到指定线上，自己用用功，代码论坛上都能找出来！

newer

1. (defun c:tt()
   
2.    (if (and (setq ss (ssget))
   
3.             (setq pt (getpoint "\n插入点<退出>:"))
   
4.        )
   
5.       (progn
   
6.          (setq ss (XD::Pickset:TableSort ss 0 0 '< '<))
   
7.          (setq mat0 (xdrx_matrix_identity 3))
   
8.          (foreach n (apply 'append ss)
   
9.            (setq box (xdrx_entity_box n)
   
10.                  p1 (car box)
    
11.                  mat (xdrx_matrix_setTransLation mat0 (mapcar '- pt p1))
    
12.                  pt (mapcar '+ pt (list (distance p1 (cadr box)) 0 0)) ;;基点改为当前盒子的右下点，作为下一个盒子插入的基点，以便实体挨着
    
13.            )
    
14.            (xdrx_entity_transform n mat)            
    
15.            (apply 'xdrx_grdraw (cons 6 (cons 1 (xdrx_entity_box n)))) ;;品红画向量
    
16.          )
    
17.       )
    
18.    )
    
19.    (princ)
    
20. )
    

(defun c:tt()<br />    (if (and (setq ss (ssget))<br />             (setq pt (getpoint "\n插入点<退出>:"))<br />        )<br />       (progn<br />          (setq ss (XD::Pickset:TableSort ss 0 0 '< '<))<br />          (setq mat0 (xdrx_matrix_identity 3))<br />          (foreach n (apply 'append ss)<br />            (setq box (xdrx_entity_box n)<br />                  p1 (car box)<br />                  mat (xdrx_matrix_setTransLation mat0 (mapcar '- pt p1))<br />                  pt (mapcar '+ pt (list (distance p1 (cadr box)) 0 0)) ;;基点改为当前盒子的右下点，作为下一个盒子插入的基点，以便实体挨着<br />            )<br />            (xdrx_entity_transform n mat)             <br />            (apply 'xdrx_grdraw (cons 6 (cons 1 (xdrx_entity_box n)))) ;;品红画向量<br />          )<br />       )<br />    )<br />    (princ)<br /> )<br />

ysq101

newer 发表于 2013-8-10 11:33

汗...都帮我写出来了...谢谢了啊

ysq101

newer 发表于 2013-8-10 11:33

好人做到底吧..XD系统的通用函数不给力啊....我下了最新版的XD通用函数并加载并不管用啊....搜索也搜索不到啊,苦命了

newer

ysq101 发表于 2013-8-10 21:35
汗...都帮我写出来了...谢谢了啊

思路你都说了啊，按着你的思路，一不小心就写完了，中间没法省了，就那么几行代码。

newer

ysq101 发表于 2013-8-10 21:48
好人做到底吧..XD系统的通用函数不给力啊....我下了最新版的XD通用函数并加载并不管用啊....搜索也搜索不 ...

你肯定是没下载最新的，你加载通用函数库后，显示的版本号是多少？