[编程申请]：将字符位置不变而将其的对齐方式改为中心对齐

lengliqun

求lsp程序，将字符位置不变而将其的对齐方式改为中心对齐。谢谢。
我将字符串的组码“72”数据改为“1”以后，字符串的位置全部变到了原点，而我希望字符串的位置不变，只改为中心对齐。

gysjy

2. 
   
3.   [FONT=courier new]
   
4. (defun c:tt (/ n l  e s p)
   
5.   ;将所选字符串对齐方式改为中心对齐
   
6.   (setq ss (ssget '((0 . "TEXT")))
   
7.         l 0 n (sslength ss)
   
8.   )
   
9.   (while (< l n)
   
10.     (setq e (entget (ssname ss l))
    
11.           s (cdr (assoc 72 e))
    
12.           p (cdr (assoc 10 e))
    
13.     )
    
14.     (setq e (subst (cons 72 1) (assoc 72 e) e))
    
15.     (if (= s 0)(setq e (subst (cons 11 p) (assoc 11 e) e)))
    
16.     (entmod e)         
    
17.     (setq l (1+ l))
    
18.   )
    
19.    (princ)
    
20. )
    
21. 
    
22.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:tt (/ n l  e s p) <br />   ;将所选字符串对齐方式改为中心对齐<br />   (setq ss (ssget '((0 . "TEXT"))) <br />         l 0 n (sslength ss) <br />   )<br />   (while (< l n) <br />     (setq e (entget (ssname ss l)) <br />           s (cdr (assoc 72 e)) <br />           p (cdr (assoc 10 e))<br />     )<br />     (setq e (subst (cons 72 1) (assoc 72 e) e))<br />     (if (= s 0)(setq e (subst (cons 11 p) (assoc 11 e) e)))<br />     (entmod e)         <br />     (setq l (1+ l))<br />   )<br />    (princ)<br /> )<br /> <br />   [/FONT]<br />

lengliqun

CAD2004 测试，运行后已改成“中心”对齐，可是若字符串较长，运行后感觉字符位置发生了变化，您写个长点的字符串试试？

可否看上去让字符串位置没发生变化呢？谢谢。

zxq0220

[php]
;改文字中心对齐,位置不变 晓东 zxq0220 2007.8.29
(DEFUN C:TEXTCEN ( / SS N ENT TXT PT ANG TB PC)
(PRINC "\nSelect text(s) :")
(IF (SETQ SS (SSGET '((0 . "TEXT"))))
  (REPEAT (SETQ N (SSLENGTH SS))
   (SETQ ENT (ENTGET (SSNAME SS (SETQ N (1- N))))
         TXT (ASSOC 1 ENT)
         PT (CDR (ASSOC 10 ENT))
         ANG (CDR (ASSOC 50 ENT))
         TB (TEXTBOX (LIST TXT))
         PC (POLAR PT ANG (/ (- (CAADR TB) (CAAR TB)) 2))
         ENT (SUBST (CONS 11 PC) (ASSOC 11 ENT) ENT)
         ENT (SUBST (CONS 72 1) (ASSOC 72 ENT) ENT))
   (ENTMOD ENT)
  )
)
(PRINC)
)
[/php]

lengliqun

cad2004测试，已将字符串改为中心对齐，多多谢楼上两位大侠。

gysjy

最初由 zxq0220 发布
[B][php]
TB (TEXTBOX (LIST TXT)) ...[/B]

学习了。

ps122

太好，好用