Question

autolisp 怎么得到text类型文字的长度呢 ？然后想通过这个计算鼠标点击文字，计算点到

autolisp 怎么得到text类型文字的长度呢 ？然后想通过这个计算鼠标点击文字，计算点到文字基点的距离，实现点击文字左边就实现左对齐，右边则右对齐？

Answer 1

(defun changdu (#k / #k %k1 %k2 %k3 %k4 %k5 %k6 L);输入文字属性列表得到文字长度
 (setq %k1 (assoc 0 #k) ;文字
       %k2 (assoc 1 #k) ;文字内容
       %k3 (assoc 40 #k);文字高度
       %k4 (assoc 41 #k);文字倾斜度
       %k5 (assoc 7 #k) ;文字样式
       %k6 (assoc 51 #k);文字角度
       L (caadr (textbox (list %k1 %k2 %k3 %k4 %k5 %k6)));文字长度
 )
 L
);这个是一个子程序，输入文字属性列表就可以得到文字长度;
;;;;实例;;;;
(defun c:sx9 ( / &k1 #k L)
 (setq &k1 (entsel "\n请选择文字"));选择文字
 (setq #k (entget (car &k1)))      ;得到文字属性列表
 (setq L (changdu #k))             ;得到文字长度
 (princ L)                         ;命令行显示长度
 (prin1)
)