[分享]：将选定的对象左对齐、右对齐或对中

lsy

本程序不单只对文字对象有效，而且对所有对象均有效。

2. [font=courier new]
   
3. ;;程序名称：对象水平对齐程序
   
4. ;;执行命令：ahobj
   
5. ;;程序功能：将选定的对象左对齐、右对齐或对中。
   
6. ;;
   
7. ;;
   
8. (defun c:ahobj (/ selobjs oldcmdecho)
   
9.   (setq oldcmdecho (getvar "cmdecho"))
   
10.   (setvar "cmdecho" 0)
    
11.   (setq selobjs (ssget))
    
12.   (if (or (not selobjs) (= (sslength selobjs) 1))
    
13.     (princ "\n你必须选定两个或两个以上的对象")
    
14.     (process selobjs)
    
15.   )
    
16.   (setvar "cmdecho" oldcmdecho)
    
17.   (princ)
    
18. )
    
19. (defun process (selobjs          /            amode     apnt        apnt_x
    
20.                 apnt_y          count            objname   vlaxobj        MinPoint
    
21.                 MaxPoint  minext   maxext   ext_l        ext_r
    
22.                 ext_m          tpnt
    
23.                )
    
24.   (initget "L M R")
    
25.   (setq        amode (getkword
    
26.                 "\n选择对齐方式[左对齐(L)/对中(M)/右对齐(R)]<左对齐>:"
    
27.               )
    
28.   )
    
29.   (if (not amode)
    
30.     (setq amode "L")
    
31.   )
    
32.   (initget 1)
    
33.   (setq apnt (getpoint "\n选择水平对齐方向的对齐点："))
    
34.   (setq        apnt_x (car apnt)
    
35.         apnt_y (cadr apnt)
    
36.   )
    
37.   (vl-load-com)
    
38.   (setq count 0)
    
39.   (repeat (sslength selobjs)
    
40.     (setq objname (ssname selobjs count))
    
41.     (setq vlaxobj (vlax-ename->vla-object objname))
    
42.     (setq MinPoint (vlax-make-variant))
    
43.     (setq MaxPoint (vlax-make-variant))
    
44.     (vla-GetBoundingBox vlaxobj 'MinPoint 'MaxPoint)
    
45.     (setq minext (vlax-safearray->list MinPoint))
    
46.     (setq maxext (vlax-safearray->list MaxPoint))
    
47.     (setq ext_l (car minext))
    
48.     (setq ext_r (car maxext))
    
49.     (setq ext_m (+ (/ (abs (- ext_l ext_r)) 2) ext_l))
    
50.     (cond
    
51.       ((= amode "L")
    
52.        (setq tpnt (list ext_l apnt_y))
    
53.       )
    
54.       ((= amode "M")
    
55.        (setq tpnt (list ext_m apnt_y))
    
56.       )
    
57.       ((= amode "R")
    
58.        (setq tpnt (list ext_r apnt_y))
    
59.       )
    
60.     )
    
61.     (if        tpnt
    
62.       (command "_move" objname "" "non" tpnt "non" apnt)
    
63.     )
    
64.     (setq count (1+ count))
    
65.   )
    
66. )
    
67. (princ"\n对象对齐程序已加载，输入ahobj命令执行。)
    
68. 
    
69. [/font]

[font=courier new]<br /> ;;程序名称：对象水平对齐程序<br /> ;;执行命令：ahobj<br /> ;;程序功能：将选定的对象左对齐、右对齐或对中。<br /> ;;<br /> ;;<br /> (defun c:ahobj (/ selobjs oldcmdecho)<br />   (setq oldcmdecho (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq selobjs (ssget))<br />   (if (or (not selobjs) (= (sslength selobjs) 1))<br />     (princ "\n你必须选定两个或两个以上的对象")<br />     (process selobjs)<br />   )<br />   (setvar "cmdecho" oldcmdecho)<br />   (princ)<br /> )<br /> (defun process (selobjs          /            amode     apnt        apnt_x<br />                 apnt_y          count            objname   vlaxobj        MinPoint<br />                 MaxPoint  minext   maxext   ext_l        ext_r<br />                 ext_m          tpnt<br />                )<br />   (initget "L M R")<br />   (setq        amode (getkword<br />                 "\n选择对齐方式[左对齐(L)/对中(M)/右对齐(R)]<左对齐>:"<br />               )<br />   )<br />   (if (not amode)<br />     (setq amode "L")<br />   )<br />   (initget 1)<br />   (setq apnt (getpoint "\n选择水平对齐方向的对齐点："))<br />   (setq        apnt_x (car apnt)<br />         apnt_y (cadr apnt)<br />   )<br />   (vl-load-com)<br />   (setq count 0)<br />   (repeat (sslength selobjs)<br />     (setq objname (ssname selobjs count))<br />     (setq vlaxobj (vlax-ename->vla-object objname))<br />     (setq MinPoint (vlax-make-variant))<br />     (setq MaxPoint (vlax-make-variant))<br />     (vla-GetBoundingBox vlaxobj 'MinPoint 'MaxPoint)<br />     (setq minext (vlax-safearray->list MinPoint))<br />     (setq maxext (vlax-safearray->list MaxPoint))<br />     (setq ext_l (car minext))<br />     (setq ext_r (car maxext))<br />     (setq ext_m (+ (/ (abs (- ext_l ext_r)) 2) ext_l))<br />     (cond<br />       ((= amode "L")<br />        (setq tpnt (list ext_l apnt_y))<br />       )<br />       ((= amode "M")<br />        (setq tpnt (list ext_m apnt_y))<br />       )<br />       ((= amode "R")<br />        (setq tpnt (list ext_r apnt_y))<br />       )<br />     )<br />     (if        tpnt<br />       (command "_move" objname "" "non" tpnt "non" apnt)<br />     )<br />     (setq count (1+ count))<br />   )<br /> )<br /> (princ"\n对象对齐程序已加载，输入ahobj命令执行。)<br /> <br /> [/font]

zq22

好用！！我也想学lisp！！

horse

我用过了，但是对齐效果不对，不知能否提供详细一点的使用说明。

zhynt

这个程序我可能用不上。对于使大量文字对齐倒是蛮不错的。

venus

再某些标注样式设置下好像不太好用。

ranran86

是不是要加载应用程序啊？

daidong013

我看看！~好用不！~~

DYWE

好东西，支持

sunshinejwt

要是能改为一个对象也能对齐就好了。

snow15338

要是能补充一下垂直对齐就更完美了

sicky111

谢谢分享。