日志
获取文字长度
热度 1 |
;;[功能]获取文字长度
;;[用法](LC-TEXT-length (car(nentsel "\n请选择文字")))
;;[作者]BY 老仓测绘上班记
;;;(setq e (car(nentsel "\n请选择文字")))
(defun LC-TEXT-length (e / textlength)
(setq textlength (car (apply 'mapcar (cons '- (reverse (textbox (entget e)))))))
