用法
评论
建议
取 消
确 定
(defun text:gettextwidth (str edata / box1 bo2) (if (not str) (setq str (cdr (assoc 1 edata)))) (setq box1 (textbox (list-substassoc (list (cons 1 (strcat "m" str "m"))) edata t))) (setq box2 (textbox (list-substassoc (list (cons 1 "mm")) edata t))) (- (- (caadr box1) (caar box1)) (- (caadr box2) (caar box2))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新