如何增加属性快中文字对齐方式修改的代码
本帖最后由 chenjieq1990 于 2019-3-4 12:05 编辑(defun C:ch(/ ) ;带属性块编号增加
(vl-load-com)
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(defun *error* (msg) ;错误处理
(setvar "cmdecho" cm)
(setvar "osmode" os)
(princ msg)
)
(setq nub (getint"\n:起始编号:"));while循环次数
(setq entbatt0(entsel"\n选带属性块:"))
(while entbatt0
(setq entbatt0(car entbatt0)) ;获得图元名
(setq wattvla0(vlax-ename->vla-object entbatt0)) ;将 AutoLISP 类型的对象名转换为 VLA 对象
(setq attlst0(vlax-safearray->list (vlax-variant-value (vla-getattributes wattvla0))))
(setq ATTOBJ (vla-get-textstring (car attlst0)))
(setq ATTOBJ(strcat "YL" "-" (itoa nub)))
(vla-put-textstring (car attlst0) ATTOBJ) ;重新赋值属性值 (setq entbatt0(entsel"\n选带属性块:"))
(setq nub(+ 1 nub))
(setq entbatt0(entsel"\n选择下一个带属性块:"))
);while
(setvar "cmdecho" cm)
(setvar "osmode" os)
)由于属性快中文字的对其方式总是有问题，请教有谁知道怎么增加修改属性快中对其方式的代码？
链接：https://pan.baidu.com/s/1wrsD7NWb7lHrJoglYI-VUQ
提取码：sbev
属性快有点大，在网盘 文字端点靠左还是靠右是有影响的，建议先把文字弄成fix后镜像，若镜像后文字为左时才把文字起始点改为左端 很好！学习中！！
页:
[1]