如何增加属性快中文字对齐方式修改的代码

chenjieq1990

2. (defun C:ch(/ )   ;带属性块编号增加
   
3.   (vl-load-com)
   
4.   (setq cm (getvar "cmdecho"))
   
5.   (setvar "cmdecho" 0)
   
6.   (setq os (getvar "osmode"))
   
7.   (setvar "osmode" 0)
   
8.   (defun *error* (msg) ;错误处理
   
9.     (setvar "cmdecho" cm)
   
10.     (setvar "osmode" os)
    
11.     (princ msg)
    
12.     )
    
13.   (setq nub (getint"\n:起始编号:"));while循环次数
    
14.   (setq entbatt0(entsel"\n选带属性块:"))
    
15.   (while entbatt0
    
16.     (setq entbatt0(car entbatt0))     ;获得图元名
    
17.     (setq wattvla0(vlax-ename->vla-object entbatt0))   ;将 AutoLISP 类型的对象名转换为 VLA 对象
    
18.     (setq attlst0(vlax-safearray->list (vlax-variant-value (vla-getattributes wattvla0))))
    
19.     (setq ATTOBJ (vla-get-textstring (car attlst0)))  
    
20. 
    
21.     (setq ATTOBJ(strcat "YL" "-" (itoa nub)))
    
22.     (vla-put-textstring (car attlst0) ATTOBJ)   ;重新赋值属性值 (setq entbatt0(entsel"\n选带属性块:"))
    
23.   (setq nub(+ 1 nub))
    
24. (setq entbatt0(entsel"\n选择下一个带属性块:"))
    
25.     );while
    
26.   (setvar "cmdecho" cm)
    
27.   (setvar "osmode" os)
    
28.   )

(defun C:ch(/ )   ;带属性块编号增加<br />   (vl-load-com)<br />   (setq cm (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (defun *error* (msg) ;错误处理<br />     (setvar "cmdecho" cm)<br />     (setvar "osmode" os)<br />     (princ msg)<br />     )<br />   (setq nub (getint"\n:起始编号:"));while循环次数 <br />   (setq entbatt0(entsel"\n选带属性块:"))<br />   (while entbatt0<br />     (setq entbatt0(car entbatt0))     ;获得图元名<br />     (setq wattvla0(vlax-ename->vla-object entbatt0))   ;将 AutoLISP 类型的对象名转换为 VLA 对象<br />     (setq attlst0(vlax-safearray->list (vlax-variant-value (vla-getattributes wattvla0)))) <br />     (setq ATTOBJ (vla-get-textstring (car attlst0)))  <br /> <br />     (setq ATTOBJ(strcat "YL" "-" (itoa nub)))<br />     (vla-put-textstring (car attlst0) ATTOBJ)   ;重新赋值属性值 (setq entbatt0(entsel"\n选带属性块:"))<br />   (setq nub(+ 1 nub))<br /> (setq entbatt0(entsel"\n选择下一个带属性块:"))<br />     );while<br />   (setvar "cmdecho" cm)<br />   (setvar "osmode" os)<br />   )

由于属性快中文字的对其方式总是有问题，请教有谁知道怎么增加修改属性快中对其方式的代码？

chenjieq1990

链接：https://pan.baidu.com/s/1wrsD7NWb7lHrJoglYI-VUQ
提取码：sbev
属性快有点大，在网盘

alexmai

文字端点靠左还是靠右是有影响的，建议先把文字弄成fix后镜像，若镜像后文字为左时才把文字起始点改为左端

guankuiwu

很好！学习中！！