能不能实现图元批量对齐，请大师们指教了

lidaxiu

daidong013

顶G版的！~~

xiaxiang

回帖只为看贴回帖只为看贴回帖只为看贴回帖只为看贴回帖只为看贴
灌水，不要惩罚我。。。

Gu_xl

;;批量物体对齐

1. (defun c:pldq ()
   
2.   ;;选择集转表
   
3.   (defun gxl-Sel-SS->List        (ss / i s )
   
4.   (if ss
   
5.   (repeat (setq i (sslength ss))
   
6.   (setq s (cons (ssname ss (setq i (1- i))) s))
   
7.     )
   
8.     )
   
9. )
   
10.   ;;计算物体中心点
    
11.   (defun gxl-getboxCenter (e1 / obj minpoint maxpoint)
    
12.   (if (= 'ENAME (type e1))
    
13.   (setq obj (vlax-ename->vla-object e1)) ;转换图元名
    
14.     (setq obj e1)
    
15.     )
    
16.   (vla-GetBoundingBox obj 'minpoint 'maxpoint)
    
17.                                         ;取得包容图元的最大点和最小点
    
18.   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表
    
19.   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表
    
20.   (setq p (mapcar '+ minpoint maxpoint))
    
21.     (mapcar '(lambda (x) (* 0.5 x)) p)
    
22. )
    
23.   ;;主程序
    
24.   (setq cmdecho (getvar 'cmdecho))
    
25.   (setq osmode (getvar 'osmode))
    
26.   (setvar 'osmode 0)
    
27.   (setvar 'cmdecho 0)
    
28.   (princ "\n选择基准物体:")
    
29.   (setq s1 (ssget))
    
30.   (princ "\n选择要对齐物体:")
    
31.   (setq s2 (ssget))
    
32.   (setq s1 (GXL-SEL-SS->LIST s1)
    
33.         s2 (GXL-SEL-SS->LIST s2)
    
34.         )
    
35.   (setq s1 (mapcar '(lambda (x) (list x (GXL-GETBOXCENTER x))) s1))
    
36.   (setq s1 (vl-sort s1 '(lambda (a b) (> (cadadr a) (cadadr b))) )) ;_ 按Y从大到小排序
    
37.   (setq s2 (mapcar '(lambda (x) (list x (GXL-GETBOXCENTER x))) s2))
    
38.   (setq s2 (vl-sort s2 '(lambda (a b) (> (cadadr a) (cadadr b))) )) ;_ 按Y从大到小排序
    
39.   (setq n 0)
    
40.   (repeat (length s1)
    
41.     (setq e1 (car (nth n s1))
    
42.           p1 (cadr (nth n s1))
    
43.           )
    
44.     (if (setq e2 (car (nth n s2)))
    
45.       (progn
    
46.         (setq p2 (cadr (nth n s2)))
    
47.         (setq p3 (list (car p2) (cadr p1) (caddr p2)))
    
48.         (command "move" e2 "" p2 p3)
    
49.         )
    
50.       )
    
51.     (setq n (1+ n))
    
52.     )
    
53.     (setvar 'osmode osmode)
    
54.     (setvar 'cmdecho cmdecho)
    
55. (princ)
    
56.   )
    

(defun c:pldq ()<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 />   ;;计算物体中心点<br />   (defun gxl-getboxCenter (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 />                                         ;取得包容图元的最大点和最小点<br />   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表<br />   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表<br />   (setq p (mapcar '+ minpoint maxpoint))<br />     (mapcar '(lambda (x) (* 0.5 x)) p)<br /> )<br />   ;;主程序<br />   (setq cmdecho (getvar 'cmdecho))<br />   (setq osmode (getvar 'osmode))<br />   (setvar 'osmode 0)<br />   (setvar 'cmdecho 0)<br />   (princ "\n选择基准物体:")<br />   (setq s1 (ssget))<br />   (princ "\n选择要对齐物体:")<br />   (setq s2 (ssget))<br />   (setq s1 (GXL-SEL-SS->LIST s1)<br />         s2 (GXL-SEL-SS->LIST s2)<br />         )<br />   (setq s1 (mapcar '(lambda (x) (list x (GXL-GETBOXCENTER x))) s1))<br />   (setq s1 (vl-sort s1 '(lambda (a b) (> (cadadr a) (cadadr b))) )) ;_ 按Y从大到小排序<br />   (setq s2 (mapcar '(lambda (x) (list x (GXL-GETBOXCENTER x))) s2))<br />   (setq s2 (vl-sort s2 '(lambda (a b) (> (cadadr a) (cadadr b))) )) ;_ 按Y从大到小排序<br />   (setq n 0)<br />   (repeat (length s1)<br />     (setq e1 (car (nth n s1))<br />           p1 (cadr (nth n s1))<br />           )<br />     (if (setq e2 (car (nth n s2)))<br />       (progn<br />         (setq p2 (cadr (nth n s2)))<br />         (setq p3 (list (car p2) (cadr p1) (caddr p2)))<br />         (command "move" e2 "" p2 p3)<br />         )<br />       )<br />     (setq n (1+ n))<br />     )<br />     (setvar 'osmode osmode)<br />     (setvar 'cmdecho cmdecho)<br /> (princ)<br />   )<br />

lidaxiu

想做程序，实现框选一个图元集合，然后批量对齐另一个图元集合，也就是上面的图能不能批量 先选 左边图元集，再选右边图元集， 一步就全步搞定，上面的程序是MSTEEL里的，我稍加改动而已

psdcdr

求此LSP，谢谢

自贡黄明儒

lidaxiu 发表于 2012-3-13 09:44
想做程序，实现框选一个图元集合，然后批量对齐另一个图元集合，也就是上面的图能不能批量 先选 左边图元集 ...

可以参考一下我写的
http://bbs.mjtd.com/forum-3-1.html

xotoo

批量对齐不错不错

hao3ren

看G版的程序

xujinhua

G版的....样样精华啊