分享获取文字长度

13648893846 发表于 2018-6-19 06:58:49

;;[功能]获取文字长度
;;[用法](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)))))));获取块内文字长度，这段代码论坛中获取，谢谢
)

ynhh 发表于 2018-6-19 10:27:57