感谢版主们的鼓励，新手写了个小程序望指点

ysq101

2. 
   
3. (defun c:111()
   
4.         (setvar "cmdecho" 0)
   
5.    ; 1 获取点位表
   
6.    (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
7.   (if (< 300 (sslength ss))
   
8.       (exit (PRINC"\n所选对象太多"))
   
9.     )
   
10.      (setq lst-pt1 '()          ;建立空表
    
11.          lst-pt3 '()          ;建立空表
    
12.          i 0)
    
13.    (repeat (sslength ss)      ;选择集长度
    
14.     (setq e1(ssname ss i))    ;返回第几个对象的图元名
    
15.     (setq s1 (vlax-ename->vla-object e1))
    
16.    (vla-getboundingbox s1 'minpoint 'maxpoint)
    
17.    (setq pt9 (vlax-safearray->list maxpoint)                       ;取得 右上角 点
    
18.          pt1 (reverse(cdr(reverse(vlax-safearray->list minpoint))));取得 左下角 点
    
19.          pt3 (list(car pt9)(cadr pt1))                             ;取得 右下角 点
    
20.    lst-pt1 (cons pt1 lst-pt1)      ;取得 左下角 点表  
    
21.          lst-pt3 (cons pt3 lst-pt3)      ;取得 右下角 点表
    
22.          i (1+ i))
    
23.                  )   ;end repeat
    
24.   (COMMAND ".UNDO" "BE")
    
25. 
    
26.    ; 2 开始排位
    
27. (setq ss1 (ssadd))
    
28. (setq i 0)
    
29. (setq n1 0)
    
30. (setq n3 1)
    
31.    (repeat (sslength ss)
    
32.        (setq e1(ssname ss i))    ;返回第几个对象的图元名
    
33.        (ssadd e1 ss1)            ;将它加到ss1选择集中
    
34.         (command "move" ss1 "" (nth n1 (reverse lst-pt1))  (nth n3 (reverse lst-pt3)))
    
35.         (setq n1 (1+ n1))
    
36.         (setq n3 (1+ n3))
    
37.         (setq i (1+ i))
    
38.       );end repeat
    
39.       (COMMAND ".UNDO" "e")
    
40.       (PRINC"\n程序运行完毕")
    
41.   (PRINC)
    
42.    )   ;end defun
    
43. 
    
44. 
    

<br /> (defun c:111()<br />         (setvar "cmdecho" 0)<br />    ; 1 获取点位表<br />    (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />   (if (< 300 (sslength ss))<br />       (exit (PRINC"\n所选对象太多"))<br />     )<br />      (setq lst-pt1 '()          ;建立空表<br />          lst-pt3 '()          ;建立空表<br />          i 0)<br />    (repeat (sslength ss)      ;选择集长度<br />     (setq e1(ssname ss i))    ;返回第几个对象的图元名<br />     (setq s1 (vlax-ename->vla-object e1))<br />    (vla-getboundingbox s1 'minpoint 'maxpoint)<br />    (setq pt9 (vlax-safearray->list maxpoint)                       ;取得 右上角 点<br />          pt1 (reverse(cdr(reverse(vlax-safearray->list minpoint))));取得 左下角 点<br />          pt3 (list(car pt9)(cadr pt1))                             ;取得 右下角 点<br />    lst-pt1 (cons pt1 lst-pt1)      ;取得 左下角 点表  <br />          lst-pt3 (cons pt3 lst-pt3)      ;取得 右下角 点表<br />          i (1+ i))<br />                  )   ;end repeat<br />   (COMMAND ".UNDO" "BE")<br /> <br />    ; 2 开始排位<br /> (setq ss1 (ssadd))<br /> (setq i 0)<br /> (setq n1 0)<br /> (setq n3 1)<br />    (repeat (sslength ss)<br />        (setq e1(ssname ss i))    ;返回第几个对象的图元名<br />        (ssadd e1 ss1)            ;将它加到ss1选择集中<br />         (command "move" ss1 "" (nth n1 (reverse lst-pt1))  (nth n3 (reverse lst-pt3))) <br />         (setq n1 (1+ n1))<br />         (setq n3 (1+ n3))<br />         (setq i (1+ i))<br />       );end repeat<br />       (COMMAND ".UNDO" "e")<br />       (PRINC"\n程序运行完毕")<br />   (PRINC)<br />    )   ;end defun<br /> <br /> <br />

好久没发贴了，本人新手最近也在闭关修练中。。。。多得XD版主和NEWER版主鼓励重写，今天终于小有所成言归正传：   以上的程序是我上次发贴求助过的程序，贴子连接如下http://bbs.xdcad.net/thread-670063-1-1.html小部分源码摘自炫版主 （点表获取部分）
下面是我的思路：
1、几乎模拟纯手工操作，即第二个对象的左下角点移到第一个对象的右下角点，以此类推，多对象循环，
目前有还有些BUG，1 有时候不能排整齐，需要排列两次才能达到要求，还没找出原因，望高手解答一下。                 2 处理对象多于300个时很慢。所以加个判断超过300个对象时退程序另外：对于我等只会用COMMAND新手来说，写的一些程序真心不给力，（还是没学到V开头的函数）     各位大师有什么方法可以不用COMMAND吗？

st788796

1 move 受捕捉影响，所以用move的话要先关捕捉，或者用vla-move要快些
2 这个用矩阵简单，就是位移矩阵

炫翔

总的来说不错，进步不小
(reverse(cdr(reverse 这句会比较慢，其他方法有很多的
move不一定比VLA-MOVE慢，
这些可测试时间

ysq101

st788796 发表于 2013-9-12 17:55
1 move 受捕捉影响，所以用move的话要先关捕捉，或者用vla-move要快些
2 这个用矩阵简单，就是位移矩阵

别说矩阵了，就连V开头的函数都没有学会呢。。。

ysq101

炫翔 发表于 2013-9-12 18:08
总的来说不错，进步不小
(reverse(cdr(reverse 这句会比较慢，其他方法有很多的
move不一定比VLA-MOVE慢 ...

第一次捧场哦~~
对于新手来说，会用(reverse(cdr(reverse 已经很不错了。。
我想慢主要是用了MVOE吧。。。可怜我还不会其它方法

ysq101

st788796 发表于 2013-9-12 17:55
1 move 受捕捉影响，所以用move的话要先关捕捉，或者用vla-move要快些
2 这个用矩阵简单，就是位移矩阵

我试一下关捕捉   看能不能解决

ysq101

炫翔 发表于 2013-9-12 18:08
总的来说不错，进步不小
(reverse(cdr(reverse 这句会比较慢，其他方法有很多的
move不一定比VLA-MOVE慢 ...

原来是没有(reverse(cdr(reverse 的，，，
因为排序出错。。。以为是因为有了Z座标的原因。。所以去掉他

st788796

ysq101 发表于 2013-9-12 18:16
原来是没有(reverse(cdr(reverse 的，，，
因为排序出错。。。以为是因为有了Z座标的原因。。所以去掉他 ...

要是用2012+的话可以试试command-s替换command

newer

要想提升，大量的运算，一定不要用COMMAND

矩阵不难啊，你可以照猫画虎啊，主要是理解。不清楚的可以发帖问，一定要对自己严要求，过去了回头看，一切都是那么容易。

Free-Lancer

newer 发表于 2013-9-12 18:32
要想提升，大量的运算，一定不要用COMMAND

矩阵不难啊，你可以照猫画虎啊，主要是理解。不清楚的可以发 ...

照猫画虎不一定容易，也需要积淀，不说代码（没细看{:soso_e110:}），先要把猫看懂懂{:soso_e100:}

ysq101

st788796 发表于 2013-9-12 18:20
要是用2012+的话可以试试command-s替换command

模具专业一起在用2004，没考虑过新版本   

ysq101

newer 发表于 2013-9-12 18:32
要想提升，大量的运算，一定不要用COMMAND

矩阵不难啊，你可以照猫画虎啊，主要是理解。不清楚的可以发 ...

文化是我们硬伤啊~~~~小学毕业，几何几乎靠自学。。。想摆脱COMMAND看来是难上加难了

ysq101

newer 发表于 2013-9-12 18:32
要想提升，大量的运算，一定不要用COMMAND

矩阵不难啊，你可以照猫画虎啊，主要是理解。不清楚的可以发 ...

newer难道就只能将就用啦？？？？指定一二吧

ysq101

Free-Lancer 发表于 2013-9-12 19:41
照猫画虎不一定容易，也需要积淀，不说代码（没细看），先要把猫看懂懂

问题是我连猫都看不懂

newer

ysq101 发表于 2013-9-12 20:18
newer难道就只能将就用啦？？？？指定一二吧

在那个帖子里面，我都把程序给你写完了，建议也给你了，要想快，用矩阵变换，你在仔细看看那个程序，就简单的20来行代码，照猫画虎写出来。
关于矩阵的，你要有问题，你就发帖问。