之前求助的问题...代码有问题.请指正

ysq101

2. (defun c:tt ()
   
3. (setq ss (ssget))
   
4.   (setq ss1 (ssadd))          ;创建空选择集
   
5.   (setq i 0)
   
6.   (setq p1 (getpoint "\n请指定起点 :"))
   
7.   (setq p2 (getpoint p1 "\n请指定方向:"))
   
8.   (setq ang (angle p1 p2))
   
9.   (setq dist (getdist "\n请输入距离:" ))
   
10. (repeat (- (sslength ss) 1)
    
11. (setq e1(ssname ss i))        ;返回选择集中的第一个图元名
    
12.   (ssadd e1 ss1)               ;将它加到ss1选择集中
    
13.         (setq i (1+ i))
    
14.   (command "move" ss1 "" p1  (polar p1 ang dist ))
    
15.   )
    
16.     )

(defun c:tt ()<br /> (setq ss (ssget))<br />   (setq ss1 (ssadd))          ;创建空选择集<br />   (setq i 0)<br />   (setq p1 (getpoint "\n请指定起点 :"))<br />   (setq p2 (getpoint p1 "\n请指定方向:"))<br />   (setq ang (angle p1 p2))<br />   (setq dist (getdist "\n请输入距离:" ))<br /> (repeat (- (sslength ss) 1)<br /> (setq e1(ssname ss i))        ;返回选择集中的第一个图元名<br />   (ssadd e1 ss1)               ;将它加到ss1选择集中 <br />         (setq i (1+ i))<br />   (command "move" ss1 "" p1  (polar p1 ang dist ))<br />   )<br />     )

这个程序有个BUG    (先对象时只能一个一个按顺序选,,好像框选时是按图元生成的顺序排列的)有什么办法解决吗??菜鸟只懂得这些简单的函数了..........其它的都没学到~~~

newer

之前是啥时候？ 怎么也得给个链接啊。

另外你这程序是想做什么的，做个动画贴论坛上来。

你上面的程序哪地方不符合你要求了，都说明白下，别人才好帮你啊。

ysq101

newer 发表于 2013-7-6 23:16
之前是啥时候？ 怎么也得给个链接啊。

另外你这程序是想做什么的，做个动画贴论坛上来。

汗...你等等先...我先搞个图来.

ysq101

如图编号所示.........要先选3号,,,,再选2号,,,再选1号  才能实现下面图所示的样子

zxq0220

从程序看，其功能是将选中的物体向一个方向散布开。
想要的是按规律自动的散布，但前提是按什么规律。

ysq101

zxq0220 发表于 2013-7-6 23:22
从程序看，其功能是将选中的物体向一个方向散布开。
想要的是按规律自动的散布，但前提是按什么规律。

规律如下:
散开距离一定相等散开方向只有四种  即正交四个方向

zxq0220

对选择集中心点排序（按要求可分成四个方向），然后再散布。

ysq101

zxq0220 发表于 2013-7-6 23:35
对选择集中心点排序（按要求可分成四个方向），然后再散布。

谢谢你的热心回答~~~这个太高级..还没学到呢~~~~~~~

XDSoft

ysq101 发表于 2013-7-6 23:22
如图编号所示.........要先选3号,,,,再选2号,,,再选1号  才能实现下面图所示的样子

newer,snsj 不是已经都帮你写好了吗？

http://bbs.xdcad.net/forum.php?m ... =669235&pid=3470540

GTJ116600

呵呵，看明白这个兄弟想要实现的目的了。他想实现框选对象后，将对象按上、下、左、右四个方向中的任一方向进行移动，
向上移动时，最下方的实体不动，其它实体移动后间距相等，都为1MM或指定距离；
向下移动时，最上方的实体不动，其它实体移动后间距相等，都为1MM或指定距离；
向左移动时，最右方的实体不动，其它实体移动后间距相等，都为1MM或指定距离；
向右移动时，最左方的实体不动，其它实体移动后间距相等，都为1MM或指定距离。

思路：1.框选对象生成选择集ss;
          2.将选择集按特征点进行排序（如最左点、最右点、最上点、最下点等）进行排序，
          3.然后，将对应的实体沿上述顺序加入到空选择集SS1中，然后再将选择集进行reverse
          4.按楼主的方式进行move。

建议楼主可参考eachy前辈“ 实体依据特征点进行行/列排序”
http://bbs.xdcad.net/thread-669129-1-1.html进行完善

ysq101

GTJ116600 发表于 2013-7-7 10:33
呵呵，看明白这个兄弟想要实现的目的了。他想实现框选对象后，将对象按上、下、左、右四个方向中的任一方向 ...

果然知我者莫你也~~~~正是这个意思.....就是我的程序只能一个一个选图元

GTJ116600

ysq101 发表于 2013-7-7 18:35
果然知我者莫你也~~~~正是这个意思.....就是我的程序只能一个一个选图元

{:soso_e113:}{:soso_e181:}