对象排列~~~~~移动

ysq101

框选对象,,让它们一次性移形指点距离
求个思路~~~~~~~
先谢谢大侠们了

newer

原图都是挨着的？  那这个距离相当于间距吧。

ysq101

newer 发表于 2013-7-6 21:40
原图都是挨着的？  那这个距离相当于间距吧。

是的..可以这么理解

newer

ysq101 发表于 2013-7-6 21:41
是的..可以这么理解

1、 实体按X排序，确定顺序

2、 每个实体求包围盒，固定实体的位置

3、 就是设置间距了。

ysq101

newer 发表于 2013-7-6 21:49
1、 实体按X排序，确定顺序

2、 每个实体求包围盒，固定实体的位置

太高级了...自己写不来.......来点简单点的思路?

st788796

选择要移动的物体，基点(0. 0. 0.) 到点(1. 0. 0.)

ysq101

st788796 发表于 2013-7-6 21:58
选择要移动的物体，基点(0. 0. 0.) 到点(1. 0. 0.)

第二个呢??

st788796

ysq101 发表于 2013-7-6 22:04
第二个呢??

取每个实体的中心点，将实体和中心点构造一个表然后用排序函数，排好后依次移动
排序函数在“函数发布”里有好多个

newer

1. (setq el (XD::Pickset:TableSort ss 1 0 '< '<))
   

(setq el (XD::Pickset:TableSort ss 1 0 '< '<))<br />

不用你写，知道怎么做就行了， 函数现成的
SS是你选的实体，上面一行代码后，el 里面就是排好序的实体了。
实体排序的函数见LISPBOY的帖子

http://bbs.xdcad.net/thread-669165-1-1.html

ysq101

谢谢大侠们的热心回答.......入们级的新手还不知道现成函数怎么用

ysq101

我先说说我的思路吧......从大到小我分别给他们编号1-2-3
先选3号移动1mm  再选23号移动1mm  

newer

ysq101 发表于 2013-7-6 22:30
我先说说我的思路吧......从大到小我分别给他们编号1-2-3
先选3号移动1mm  再选23号移动1mm

理解下面代码，加载XDRX API 晓东通用LISP函数库

下面是可以对任意实体水平方向设置间距的，不管挨着不挨着，间距输入0，就挨上了。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq ss (xdrx_ssget "\n选取要排列的实体<退出>:"))
   
4.         (setq dis (getreal "\n间距<退出>:"))
   
5.       )
   
6.     (progn
   
7.       (setq el (XD::Pickset:TableSort ss 1 0 '< '<)
   
8.             el (mapcar 'car el )
   
9.       )
   
10.       (setq box1 (XD::Entity:Box (car el))
    
11.             pj1 (cadr box1)
    
12.             el (cdr el)
    
13.             mat0 (xdrx_matrix_identity 3)
    
14.       )
    
15.       (while el
    
16.         (setq e (car el)
    
17.               box2 (XD::Entity:Box e)
    
18.               pj2 (car box2)
    
19.               vec2 (mapcar '- pj1 pj2)
    
20.               vec2 (list (car vec2) 0.0 0.0)
    
21.               mat (xdrx_matrix_setTransLation mat0 (mapcar '+ vec2 (list dis 0.0 0.0)))
    
22.         )
    
23.         (xdrx_entity_transform e mat)
    
24.         (setq box2 (XD::Entity:Box e))
    
25.         (setq el (cdr el)
    
26.               pj1 (cadr box2)
    
27.         )
    
28.       )
    
29.     )
    
30.   )
    
31.   (princ)
    
32. )
    
33. 
    

(defun c:tt ()<br />   (if (and<br />         (setq ss (xdrx_ssget "\n选取要排列的实体<退出>:"))<br />         (setq dis (getreal "\n间距<退出>:"))<br />       )<br />     (progn<br />       (setq el (XD::Pickset:TableSort ss 1 0 '< '<)<br />             el (mapcar 'car el )<br />       )<br />       (setq box1 (XD::Entity:Box (car el))<br />             pj1 (cadr box1)<br />             el (cdr el)<br />             mat0 (xdrx_matrix_identity 3)<br />       )<br />       (while el<br />         (setq e (car el)<br />               box2 (XD::Entity:Box e)<br />               pj2 (car box2)<br />               vec2 (mapcar '- pj1 pj2)<br />               vec2 (list (car vec2) 0.0 0.0)<br />               mat (xdrx_matrix_setTransLation mat0 (mapcar '+ vec2 (list dis 0.0 0.0)))<br />         )<br />         (xdrx_entity_transform e mat)<br />         (setq box2 (XD::Entity:Box e))<br />         (setq el (cdr el)<br />               pj1 (cadr box2)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

newer

上面的程序稍加改进，就可以变为排版工具。

snsj

正好我也做了一个,练练手

1. ;;;snsj 2013.7.6
   
2. (defun c:cs (/ a b c d aa bb i  ii obj kj px)
   
3. (ssget)
   
4. (setq aa(vlax-make-safearray vlax-vbDouble '(1 . 3))
   
5.       bb(vlax-make-variant aa)i 1 kj nil)(setq i(getint  "\n输入距离数值(如果输入空值则默认距离为1MM):"))
   
6. (setq ii i)
   
7. (vlax-for obj (vla-get-activeselectionset(vla-get-ActiveDocument(vlax-get-acad-object)))
   
8. (setq kj(cons obj kj))
   
9.   )
   
10. (defun c-mid (/ cen pt)
    
11.   (setq pt(mapcar 'vlax-safearray->list(list ll ur)))
    
12.   (setq cen (mapcar '(lambda(z)(* z 0.5))
    
13.                 (mapcar '+(car pt)(cadr pt))
    
14.                   )
    
15.           )cen
    
16.   )
    
17. (setq px(vl-sort kj '(lambda(s1 s2)
    
18.    (setq a(vla-getboundingbox s1 'll 'ur)b(c-mid)
    
19.          c(vla-getboundingbox s2 'll 'ur)d(c-mid)
    
20.          )(<(car b)(car d))
    
21.             )
    
22.          )
    
23.       )
    
24. (mapcar '(lambda(x)
    
25.   (vla-move x bb(vlax-make-variant aa))
    
26.   (vlax-safearray-put-element aa 1 i)
    
27.   (setq i(+ i ii))
    
28.            )px
    
29.         )(princ)
    
30.   )
    

;;;snsj 2013.7.6<br /> (defun c:cs (/ a b c d aa bb i  ii obj kj px)<br /> (ssget)<br /> (setq aa(vlax-make-safearray vlax-vbDouble '(1 . 3))<br />       bb(vlax-make-variant aa)i 1 kj nil)(setq i(getint  "\n输入距离数值(如果输入空值则默认距离为1MM):"))<br /> (setq ii i)<br /> (vlax-for obj (vla-get-activeselectionset(vla-get-ActiveDocument(vlax-get-acad-object)))<br /> (setq kj(cons obj kj))<br />   )<br /> (defun c-mid (/ cen pt)<br />   (setq pt(mapcar 'vlax-safearray->list(list ll ur)))<br />   (setq cen (mapcar '(lambda(z)(* z 0.5))<br />                 (mapcar '+(car pt)(cadr pt))<br />                   )<br />           )cen<br />   )<br /> (setq px(vl-sort kj '(lambda(s1 s2)<br />    (setq a(vla-getboundingbox s1 'll 'ur)b(c-mid)<br />          c(vla-getboundingbox s2 'll 'ur)d(c-mid)<br />          )(<(car b)(car d))<br />             )<br />          )<br />       )<br /> (mapcar '(lambda(x)<br />   (vla-move x bb(vlax-make-variant aa))<br />   (vlax-safearray-put-element aa 1 i)<br />   (setq i(+ i ii))<br />            )px<br />         )(princ)<br />   )<br />

XDSoft

snsj 发表于 2013-7-6 23:37
正好我也做了一个,练练手

TO NEWER:TO SNSJ:

都是快枪手啊。