http://bbs.mjtd.com/forum.php?mod=viewthread&tid=899&highlight=%CE%C4%D7%D6%B3%A4%B6%C8

    1. (defun TextLength ( String / Tbox)
    2.   (setq Tbox (textbox (list (cons 1 String))))
    3.   (distance (car Tbox) (cadr Tbox))
    4.   )
    6. 示例: (TextLength "YourStringHere")
    8. 如果你想通过选定文字可使用以下语句
    10. (TextLength (cdr (assoc 1 (entget (car (entsel "\n选择文字: "))))))
    12. 以下假定 ENT 为文字对象...
    14. (setq ENTLIST (entget ENT))
    15. (setq textlength (car (nth 1 (textbox ENTLIST))))
    18. 对于单行文字(非多行文字):
    20. (defun GetTextLength (Ent / TxtBox TxtLgt)
    21. (command "_UCS" "_OBJ" Ent)
    22. (setq TxtBox (textbox (entget Ent))
    23.        TxtLgt (distance (car TxtBox) (list (caadr TxtBox) (cadar TxtBox)))
    24. )
    25. (command "_UCS" "_PRE")
    26. TxtLgt
    27. )
    29. 用法:
    30. (if (and
    31.      (setq CurEnt (car (entsel "\nSelect Text: ")))
    32.      (= (cdr (assoc 0 (entget CurEnt))) "TEXT")
    33.     )
    34. (setq TxtLgt (GetTextLength CurEnt))
    35. )