批量文本对齐于框格（Lisp完结版）

xiaxiang

yrgui 发表于 2011-2-26 10:45
回复 xiaxiang 的帖子

判断对象的框格用的是“boundary”命令，所以执行textalign时需要保证目标对象在当前 ...

原来这样啊，总算是弄明白了

pop159

tjuzkj

可惜没有币,下载不了!

sy100

谢谢分享，下载试用一下！

hhh454

强人，做字牌的时候也可以用到。

2005lyf

这个我以前也编过，免费给大家。

2005lyf

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;文字居中;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:wzjz ()
(princ "\n******使用命令：wzjz(文字居中)******")
(setq os(getvar "osmode")) (setvar "osmode" 0)
   (setq ss (ssget))
   (setq n (sslength ss))
   (setq k 0 )
   (setq kk 0 )
  
   (while (< k n)
      (setq name (ssname ss k))
     
      (setq a (entget name))
      (setq str (cdr (assoc 0 a)))
     (if (or (= str "TEXT") (= str "MTEXT"))
       (PROGN
   
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;获取文字中点
    (setq data (vlax-ename->vla-object name))
    (VLA-GETBOUNDINGBOX data 'minExt 'maxExt)
  (setq
      x (VLAX-SAFEARRAY-GET-ELEMENT minExt 0)
      y (VLAX-SAFEARRAY-GET-ELEMENT minExt 1)
     x1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 0)
     y1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 1)
      )
  (setq pt1 (list x y);;;;;;;;;图框块的四个交点
pt2 (list x1 y1);;;;;;;
pt3 (list x y1);;;;;;;;
pt4 (list x1 y);;;;;;;;
)
  (setq zmidx (+ x (/ (- x1 x) 2))
zmidy (+ y (/ (- y1 y) 2))
  )
      (setq zmid (list zmidx zmidy))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;创造文字外框边界   
      (command "-boundary" zmid "")
      (setq bjie (entlast))
  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 获取外框中点
    (setq data (vlax-ename->vla-object bjie))
    (VLA-GETBOUNDINGBOX data 'minExt 'maxExt)
  (setq
      x (VLAX-SAFEARRAY-GET-ELEMENT minExt 0)
      y (VLAX-SAFEARRAY-GET-ELEMENT minExt 1)
     x1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 0)
     y1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 1)
      )
  (setq pt1 (list x y);;;;;;;;;图框块的四个交点
pt2 (list x1 y1);;;;;;;
pt3 (list x y1);;;;;;;;
pt4 (list x1 y);;;;;;;;
)  
  (setq kmidx (+ x (/ (- x1 x) 2))
kmidy (+ y (/ (- y1 y) 2))
  )
      (setq kmid (list kmidx kmidy))
    ;;;(princ name)
    (command "erase" bjie "")
   
    (setq wzg (cdr (assoc 40 a)))
    (setq jiad (cdr (assoc 50 a)))
    (setq wznr (cdr (assoc 1 a)))
    (command "_MOVE" name "" zmid kmid)
           
      (setq k (+ k 1))
      (setq kk k)
      ;;;(princ k)
       )
       (progn
       (SETQ kk (+ k 1))
       (SETQ k kk)
       )
     )
    )
  (setq os(getvar "osmode")) (setvar "osmode" 173)
  (princ)
  )

2005lyf

2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;文字居中;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
3. (defun c:wzjz ()
   
4. (princ "\n******使用命令：wzjz(文字居中)******")
   
5. (setq os(getvar "osmode")) (setvar "osmode" 0)
   
6.    (setq ss (ssget))
   
7.    (setq n (sslength ss))
   
8.    (setq k 0 )
   
9.    (setq kk 0 )
   
10.   
    
11.    (while (< k n)
    
12.       (setq name (ssname ss k))
    
13.      
    
14.       (setq a (entget name))
    
15.       (setq str (cdr (assoc 0 a)))
    
16.      (if (or (= str "TEXT") (= str "MTEXT"))
    
17.        (PROGN
    
18.    
    
19. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;获取文字中点
    
20.     (setq data (vlax-ename->vla-object name))
    
21.     (VLA-GETBOUNDINGBOX data 'minExt 'maxExt)
    
22.   (setq
    
23.       x (VLAX-SAFEARRAY-GET-ELEMENT minExt 0)
    
24.       y (VLAX-SAFEARRAY-GET-ELEMENT minExt 1)
    
25.      x1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 0)
    
26.      y1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 1)
    
27.       )
    
28.   (setq pt1 (list x y);;;;;;;;;图框块的四个交点
    
29.         pt2 (list x1 y1);;;;;;;
    
30.         pt3 (list x y1);;;;;;;;
    
31.         pt4 (list x1 y);;;;;;;;
    
32.         )
    
33. 
    
34.   (setq zmidx (+ x (/ (- x1 x) 2))
    
35.         zmidy (+ y (/ (- y1 y) 2))       
    
36.   )
    
37.       (setq zmid (list zmidx zmidy))
    
38. 
    
39. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;创造文字外框边界   
    
40.       (command "-boundary" zmid "")
    
41.       (setq bjie (entlast))
    
42.   
    
43. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 获取外框中点
    
44.     (setq data (vlax-ename->vla-object bjie))
    
45.     (VLA-GETBOUNDINGBOX data 'minExt 'maxExt)
    
46.   (setq
    
47.       x (VLAX-SAFEARRAY-GET-ELEMENT minExt 0)
    
48.       y (VLAX-SAFEARRAY-GET-ELEMENT minExt 1)
    
49.      x1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 0)
    
50.      y1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 1)
    
51.       )
    
52.   (setq pt1 (list x y);;;;;;;;;图框块的四个交点
    
53.         pt2 (list x1 y1);;;;;;;
    
54.         pt3 (list x y1);;;;;;;;
    
55.         pt4 (list x1 y);;;;;;;;
    
56.         )  
    
57. 
    
58.   (setq kmidx (+ x (/ (- x1 x) 2))
    
59.         kmidy (+ y (/ (- y1 y) 2))       
    
60.   )
    
61.       (setq kmid (list kmidx kmidy))
    
62.     ;;;(princ name)
    
63.     (command "erase" bjie "")
    
64. 
    
65.    
    
66.     (setq wzg (cdr (assoc 40 a)))
    
67.     (setq jiad (cdr (assoc 50 a)))
    
68.     (setq wznr (cdr (assoc 1 a)))
    
69.     (command "_MOVE" name "" zmid kmid)
    
70.            
    
71.       (setq k (+ k 1))
    
72.       (setq kk k)
    
73.       ;;;(princ k)
    
74.        )
    
75. 
    
76.        (progn
    
77.        (SETQ kk (+ k 1))
    
78.        (SETQ k kk)
    
79.        )
    
80.      )
    
81.     )
    
82.   (setq os(getvar "osmode")) (setvar "osmode" 173)
    
83.   (princ)
    
84.   )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;文字居中;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun c:wzjz ()<br /> (princ "\n******使用命令：wzjz(文字居中)******")<br /> (setq os(getvar "osmode")) (setvar "osmode" 0)<br />    (setq ss (ssget))<br />    (setq n (sslength ss))<br />    (setq k 0 )<br />    (setq kk 0 )<br />   <br />    (while (< k n)<br />       (setq name (ssname ss k))<br />      <br />       (setq a (entget name))<br />       (setq str (cdr (assoc 0 a)))<br />      (if (or (= str "TEXT") (= str "MTEXT"))<br />        (PROGN<br />     <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;获取文字中点<br />     (setq data (vlax-ename->vla-object name))<br />     (VLA-GETBOUNDINGBOX data 'minExt 'maxExt)<br />   (setq<br />       x (VLAX-SAFEARRAY-GET-ELEMENT minExt 0)<br />       y (VLAX-SAFEARRAY-GET-ELEMENT minExt 1)<br />      x1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 0)<br />      y1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 1)<br />       )<br />   (setq pt1 (list x y);;;;;;;;;图框块的四个交点<br />         pt2 (list x1 y1);;;;;;;<br />         pt3 (list x y1);;;;;;;;<br />         pt4 (list x1 y);;;;;;;;<br />         )<br /> <br />   (setq zmidx (+ x (/ (- x1 x) 2))<br />         zmidy (+ y (/ (- y1 y) 2))        <br />   )<br />       (setq zmid (list zmidx zmidy))<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;创造文字外框边界   <br />       (command "-boundary" zmid "")<br />       (setq bjie (entlast))<br />   <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 获取外框中点<br />     (setq data (vlax-ename->vla-object bjie))<br />     (VLA-GETBOUNDINGBOX data 'minExt 'maxExt)<br />   (setq<br />       x (VLAX-SAFEARRAY-GET-ELEMENT minExt 0)<br />       y (VLAX-SAFEARRAY-GET-ELEMENT minExt 1)<br />      x1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 0)<br />      y1 (VLAX-SAFEARRAY-GET-ELEMENT maxExt 1)<br />       )<br />   (setq pt1 (list x y);;;;;;;;;图框块的四个交点<br />         pt2 (list x1 y1);;;;;;;<br />         pt3 (list x y1);;;;;;;;<br />         pt4 (list x1 y);;;;;;;;<br />         )  <br /> <br />   (setq kmidx (+ x (/ (- x1 x) 2))<br />         kmidy (+ y (/ (- y1 y) 2))        <br />   )<br />       (setq kmid (list kmidx kmidy))<br />     ;;;(princ name)<br />     (command "erase" bjie "")<br /> <br />     <br />     (setq wzg (cdr (assoc 40 a)))<br />     (setq jiad (cdr (assoc 50 a)))<br />     (setq wznr (cdr (assoc 1 a)))<br />     (command "_MOVE" name "" zmid kmid)<br />            <br />       (setq k (+ k 1))<br />       (setq kk k)<br />       ;;;(princ k)<br />        )<br /> <br />        (progn<br />        (SETQ kk (+ k 1))<br />        (SETQ k kk)<br />        )<br />      )<br />     )<br />   (setq os(getvar "osmode")) (setvar "osmode" 173)<br />   (princ)<br />   )

yrgui

回复 2005lyf 的帖子

如果仅仅是简单的文本居中，早就有人做过，代码也很简单
但那些，包括你这个根本就不实用。

我这个 TextAlign 结合实际需要做的，可以批量居中对齐和居左对齐，并且文本内容更改后也能保持对齐特性

yrgui

tjuzkj 发表于 2011-3-2 12:14
可惜没有币,下载不了!

高级会员还没币啊？积分可以换明经币的，难倒 tjuzkj 您不知道
fas程序已经免费放出，注册会员就可以下载的
lsp代码不想随便就放出去了，呵呵，请原谅，
再说了一个明经币也就等值一块人民币，很便宜了
想研究代码的都付得起，嘻嘻