[求助]属性块文字的居中对齐

shadowofwind

请问一下，怎样实现属性块中文字的居中对齐？

我之前找了一个，但好像实现不了，有这方面的源码的发一下好吗？

谢谢了！！！

hb198075

3. (setq alatt_al "M") ;控制对齐方式的全局变量
4. (defun alatt (/ ss ent na tmp al e72 e66 attent n att attpt)
5.   (initget "L R M ")
6.   (if (setq tmp
7.       (getkword
8.         (strcat "\n请选择对齐方式[左(L)/中(M)/右(R)]<" alatt_al ">")
9.       )
10.       )
11.     (setq alatt_al tmp)
12.   ) ;_IF
13.   (cond ((= alatt_al "L") (setq e72 0))
14. ((= alatt_al "M") (setq e72 1))
15. ((= alatt_al "R") (setq e72 2))
16.   ) ;将对齐方式转换成对齐的组码值
17.   (setq ss (ssget '((0 . "INSERT"))))
18.   (if ss
19.     (progn
20.       (setq n 0)
21.       (repeat (sslength ss)
22. (setq na  (ssname ss n)
23.        att na
24.        ent (entget na)
25.        n   (1+ n)
26. )
27. (if (and (setq e66 (assoc 66 ent)) (= (cdr e66) 1)) ;判断是否为属性块
28.    (while
29.      (and
30.        (setq att (entnext att))
31.        (/= (cdr (assoc 0 (setq attent (entget att)))) "SEQEND")
32.      )
33.       (setq attpt (alatt-startPt attent)) ;获得文字的插入点
34.       (setq attent (subst (cons 10 attpt) (assoc 10 attent) attent)
35.      attent (subst (cons 11 attpt) (assoc 11 attent) attent)
36.       )
37.       (if (assoc 72 attent)
38.         (setq attent (subst (cons 72 e72) (assoc 72 attent) attent)
39.         )
40.         (setq attent (REVERSE attent)
41.        attent (cons (cons 72 e72) attent)
42.        attent (REVERSE attent)
43.         )
44.       )
45.       (entmod attent)
46.       (entupd na)
47.    ) ;遍历属性块的属性图元，进行对齐操作
48. ) ;_IF
49.       ) ;_REPEAT
50.     )
51.   ) ;_IF
52.   (princ)
53. ) ;_END_DEFUN
54. ;;;判断当前文字的对齐方式，返回文字的插入点
55. (defun alatt-startPt (ent / rel e72 e74)
56.   (setq e72 (assoc 72 ent)
57. e74 (assoc 74 ent)
58.   )
59.   (if (or (and e72 (/= (cdr e72) 0))
60.    (and e74 (/= (cdr e74) 0))
61.       )
62.     (setq rel (cdr (assoc 11 ent)))
63.     (setq rel (cdr (assoc 10 ent)))
64.   )
65.   rel
66. )

(setq alatt_al "M") ;控制对齐方式的全局变量 (defun alatt (/ ss ent na tmp al e72 e66 attent n att attpt)   (initget "L R M ")   (if (setq tmp       (getkword         (strcat "\n请选择对齐方式[左(L)/中(M)/右(R)]<" alatt_al ">")       )       )     (setq alatt_al tmp)   ) ;_IF   (cond ((= alatt_al "L") (setq e72 0)) ((= alatt_al "M") (setq e72 1)) ((= alatt_al "R") (setq e72 2))   ) ;将对齐方式转换成对齐的组码值   (setq ss (ssget '((0 . "INSERT"))))   (if ss     (progn       (setq n 0)       (repeat (sslength ss) (setq na  (ssname ss n)        att na        ent (entget na)        n   (1+ n) ) (if (and (setq e66 (assoc 66 ent)) (= (cdr e66) 1)) ;判断是否为属性块    (while      (and        (setq att (entnext att))        (/= (cdr (assoc 0 (setq attent (entget att)))) "SEQEND")      )       (setq attpt (alatt-startPt attent)) ;获得文字的插入点       (setq attent (subst (cons 10 attpt) (assoc 10 attent) attent)      attent (subst (cons 11 attpt) (assoc 11 attent) attent)       )       (if (assoc 72 attent)         (setq attent (subst (cons 72 e72) (assoc 72 attent) attent)         )         (setq attent (REVERSE attent)        attent (cons (cons 72 e72) attent)        attent (REVERSE attent)         )       )       (entmod attent)       (entupd na)    ) ;遍历属性块的属性图元，进行对齐操作 ) ;_IF       ) ;_REPEAT     )   ) ;_IF   (princ) ) ;_END_DEFUN ;;;判断当前文字的对齐方式，返回文字的插入点 (defun alatt-startPt (ent / rel e72 e74)   (setq e72 (assoc 72 ent) e74 (assoc 74 ent)   )   (if (or (and e72 (/= (cdr e72) 0))    (and e74 (/= (cdr e74) 0))       )     (setq rel (cdr (assoc 11 ent)))     (setq rel (cdr (assoc 10 ent)))   )   rel )

chixun99

确实有用，好东西谢谢了。