(obtxtwid)获取指定格式文字长度

;;说明:获取指定格式文字长度
;;参数:txt:文字内容
;;参数:hig:文字高度
;;参数:wid:文字比例因子
;;参数:fontsty:文字字体样式
;;返回:返回文字长度
(defun obtxtwid(txt hig wid fontsty / ptlst)
    (setq ptlst (textbox (list '(0 . "TEXT") (cons 1 txt) (cons 10 '(0 0 0)) (cons 40 hig) (cons 41 wid) (cons 7 fontsty))))
    (abs (- (caadr ptlst) (caar ptlst)))
)