关于对选择集图元排列的问题

shang_123

  对选择集图元进行距离排列问题，不知道怎么弄，大侠们出出手 原图：   选择外框  输入排列距离 变为：   

版主们出处手

shang_123

怎么没人呀！！ 自己顶起来！！

shang_123

求 版主 出手！！

vlisp2012

我帮你顶了！！！！！！！！！！

Gu_xl

1. (defun c:tt (/ OS CMDECHO SS D BOXLST PT SSL BOX *error*)
   
2.   (defun *error* (s)
   
3.     (setvar 'cmdecho cmdecho)
   
4.     (setvar 'osmode os)
   
5.     (princ s)
   
6.     (princ)
   
7.   )
   
8.   (setq        os        (getvar 'osmode)
   
9.         cmdecho        (getvar 'cmdecho)
   
10.   )
    
11.   (setvar 'cmdecho 0)
    
12.   (setvar 'osmode 0)
    
13.   (setq ss (ssget '((0 . "lwpolyline"))))
    
14.   (if ss
    
15.     (progn
    
16.       (setq d (getreal "\n间距<5.0>:"))
    
17.       (if (null d)
    
18.         (setq d 5.0)
    
19.       )
    
20.       (setq ss (GXL-SEL-SS->LIST ss))
    
21.       (setq boxlst (mapcar '(lambda (x) (GXL-GETBOX x)) ss))
    
22.       (setq
    
23.         boxlst (vl-sort boxlst '(lambda (a b) (< (caar a) (caar b))))
    
24.       )
    
25.       (setq pt (caar boxlst))
    
26.       (setq ssl
    
27.              (mapcar
    
28.                '(lambda        (lw / box)
    
29.                   (list
    
30.                     (apply 'ssget (cons "c" (setq box (GXL-GETBOX lw))))
    
31.                     box
    
32.                   )
    
33.                 )
    
34.                ss
    
35.              )
    
36.       )
    
37.       (foreach s ssl
    
38.         (command "_move" (car s) "" (caadr s) pt)
    
39.         (setq pt (polar pt 0 (+ d (- (car (cadadr s)) (caaadr s)))))
    
40.       )
    
41.     )
    
42.   )
    
43.   (setvar 'cmdecho cmdecho)
    
44.   (setvar 'osmode os)
    
45. )
    
46. (defun gxl-Sel-SS->List        (ss / i s )
    
47.   (if ss
    
48.   (repeat (setq i (sslength ss))
    
49.   (setq s (cons (ssname ss (setq i (1- i))) s))
    
50.     )
    
51.     )
    
52. )
    
53. (defun gxl-getbox (e1 / obj minpoint maxpoint)
    
54.   (if (= 'ENAME (type e1))
    
55.   (setq obj (vlax-ename->vla-object e1)) ;转换图元名
    
56.     (setq obj e1)
    
57.     )
    
58.   (vla-GetBoundingBox obj 'minpoint 'maxpoint)
    
59.   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表
    
60.   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表
    
61.   (list minpoint maxpoint)
    
62. )
    

(defun c:tt (/ OS CMDECHO SS D BOXLST PT SSL BOX *error*)<br />   (defun *error* (s)<br />     (setvar 'cmdecho cmdecho)<br />     (setvar 'osmode os)<br />     (princ s)<br />     (princ)<br />   )<br />   (setq        os        (getvar 'osmode)<br />         cmdecho        (getvar 'cmdecho)<br />   )<br />   (setvar 'cmdecho 0)<br />   (setvar 'osmode 0)<br />   (setq ss (ssget '((0 . "lwpolyline"))))<br />   (if ss<br />     (progn<br />       (setq d (getreal "\n间距<5.0>:"))<br />       (if (null d)<br />         (setq d 5.0)<br />       )<br />       (setq ss (GXL-SEL-SS->LIST ss))<br />       (setq boxlst (mapcar '(lambda (x) (GXL-GETBOX x)) ss))<br />       (setq<br />         boxlst (vl-sort boxlst '(lambda (a b) (< (caar a) (caar b))))<br />       )<br />       (setq pt (caar boxlst))<br />       (setq ssl<br />              (mapcar<br />                '(lambda        (lw / box)<br />                   (list<br />                     (apply 'ssget (cons "c" (setq box (GXL-GETBOX lw))))<br />                     box<br />                   )<br />                 )<br />                ss<br />              )<br />       )<br />       (foreach s ssl<br />         (command "_move" (car s) "" (caadr s) pt)<br />         (setq pt (polar pt 0 (+ d (- (car (cadadr s)) (caaadr s)))))<br />       )<br />     )<br />   )<br />   (setvar 'cmdecho cmdecho)<br />   (setvar 'osmode os)<br /> )<br /> (defun gxl-Sel-SS->List        (ss / i s )<br />   (if ss<br />   (repeat (setq i (sslength ss))<br />   (setq s (cons (ssname ss (setq i (1- i))) s))<br />     )<br />     )<br /> )<br /> (defun gxl-getbox (e1 / obj minpoint maxpoint)<br />   (if (= 'ENAME (type e1))<br />   (setq obj (vlax-ename->vla-object e1)) ;转换图元名<br />     (setq obj e1)<br />     )<br />   (vla-GetBoundingBox obj 'minpoint 'maxpoint)<br />   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表<br />   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表<br />   (list minpoint maxpoint)<br /> )<br />

shang_123

Gu_xl 发表于 2012-4-4 10:27

感谢G版出手！ 不过 就是有点小问题， 我上传个附件,麻烦G版看看！

shang_123

shang_123 发表于 2012-4-4 20:42
感谢G版出手！ 不过 就是有点小问题， 我上传个附件,麻烦G版看看！

额。。。G版 这个难度有点高！！ 我不会！！！

shang_123

shang_123 发表于 2012-4-4 20:42
感谢G版出手！ 不过 就是有点小问题， 我上传个附件,麻烦G版看看！

恳请G版 再次出手！！ 谢谢！！！！

hhh454

找了半天，终于找到了，

pb.v@163.com

太好了，好东西呀，我自动排列时，如果能根据大小来排列就更好了