水平居中

love1030312

  在论坛里翻了一晚上了  有很多少差不多的程序，可是就是没有我需要的
请G版  各位大神  在弹指间解决苦恼（现在是先测量距离除以2，然后移动的）
求求你们救救我吧

ZZXXQQ

编程思路：
1、选择要对中的外框；
2、计算框的中心点；
3、框选要居中的物体；
4、计算这些物体的包围框；
5、计算包围框的中心点；
6、沿水平方向移动物体到外框中心点垂线。
7、重复3。

love1030312

ZZXXQQ 发表于 2014-6-13 08:37
编程思路：
1、选择要对中的外框；
2、计算框的中心点；

G版  能不能麻烦你给我来个  我不会啊    谢谢了

lucas_3333

love1030312 发表于 2014-6-13 08:55
G版  能不能麻烦你给我来个  我不会啊    谢谢了

Ｇ版与Ｚ版都分不清

love1030312

lucas_3333 发表于 2014-6-13 08:57
Ｇ版与Ｚ版都分不清

打错了

edata

1. ;画出能框起选择集内所有图元的最小矩形框
   
2. (defun get_all_rectang (ss /  pt_list sn n en pt1 pt2)   
   
3.     (setq pt_list '())
   
4.     (setq sn (sslength ss))
   
5.     (setq n -1)
   
6.     (repeat sn
   
7. (setq en (ssname ss (setq n (1+ n))))
   
8. (vla-getboundingbox (vlax-ename->vla-object en) 'pt1 'pt2)
   
9. (setq pt_list (cons (vlax-safearray->list pt1) pt_list))
   
10. (setq pt_list (cons (vlax-safearray->list pt2) pt_list))
    
11.     )
    
12.     (setq pt1 (apply 'mapcar (cons 'min pt_list)))
    
13.     (setq pt2 (apply 'mapcar (cons 'max pt_list)))
    
14.     (list pt1 pt2)   
    
15. )
    
16. (defun c:tt(/ ss p0 lst p1 p2 dpt mpt)
    
17.   (if (and (setq ss(ssget))
    
18.            (setq p0(getpoint"\n选择中点:"))
    
19.            )
    
20.     (progn
    
21.       (setq bak_cmd(getvar 'cmdecho))
    
22.       (setvar 'cmdecho 0)
    
23.       (setq lst(get_all_rectang ss)
    
24.             p1 (car lst)
    
25.             p2 (cadr lst)
    
26.             mpt(mapcar '(lambda(x y)(* 0.5 (+ x y))) p1 p2)
    
27.             dpt(list(car p0)(cadr mpt))
    
28.             )
    
29.       (command "_move" ss "" "non" mpt "non" dpt)
    
30.       (and bak_cmd(setvar 'cmdecho bak_cmd))
    
31.       )
    
32.     )
    
33.   (princ)
    
34.   )

;画出能框起选择集内所有图元的最小矩形框<br /> (defun get_all_rectang (ss /  pt_list sn n en pt1 pt2)    <br />     (setq pt_list '())<br />     (setq sn (sslength ss))<br />     (setq n -1)<br />     (repeat sn<br /> (setq en (ssname ss (setq n (1+ n))))<br /> (vla-getboundingbox (vlax-ename->vla-object en) 'pt1 'pt2)<br /> (setq pt_list (cons (vlax-safearray->list pt1) pt_list))<br /> (setq pt_list (cons (vlax-safearray->list pt2) pt_list))<br />     )<br />     (setq pt1 (apply 'mapcar (cons 'min pt_list)))<br />     (setq pt2 (apply 'mapcar (cons 'max pt_list)))<br />     (list pt1 pt2)    <br /> )<br /> (defun c:tt(/ ss p0 lst p1 p2 dpt mpt)<br />   (if (and (setq ss(ssget))<br />            (setq p0(getpoint"\n选择中点:"))<br />            )<br />     (progn<br />       (setq bak_cmd(getvar 'cmdecho))<br />       (setvar 'cmdecho 0)<br />       (setq lst(get_all_rectang ss)<br />             p1 (car lst)<br />             p2 (cadr lst)<br />             mpt(mapcar '(lambda(x y)(* 0.5 (+ x y))) p1 p2)<br />             dpt(list(car p0)(cadr mpt))<br />             )<br />       (command "_move" ss "" "non" mpt "non" dpt)<br />       (and bak_cmd(setvar 'cmdecho bak_cmd))<br />       )<br />     )<br />   (princ)<br />   )

xyp1964

;; 实体居中

edata

院长的应该可以上、下、左、右、水平、垂直、中心对齐。

999999

顶一下，很有作用哦，，

zmzk

好思路，留个脚印