预估字符串所占的宽度

尘缘一生

如果一个字符串，预估它所占的宽度
整体预估函数，这样即可，整体预估会不准确，

• ;;166 [功能] 预测字符长度 by st788796
• (defun XD::Stringen (sty str h scl)
•   (and (or (not sty)
•          (= sty "")
•          (not (tblsearch "style" sty))
•        )
•     (setq sty (getvar "textstyle"))
•   )
•   (abs
•     (car
•       (apply
•         'mapcar
•         (cons
•           '-
•           (textbox
•             (list (cons 1 str) (cons 7 sty) (cons 40 h) (cons 41 scl))
•           )
•         )
•       )
•     )
•   )
• )
  

准确点应该智能拆分，逐个预估求和，
以下基本都是是本坛的函数，整理下子，

2. ;将字符串拆分成单字符列表-------(一级)------
   
3. (defun sl_text:stringexplode (str / defined strdefined rtnstr pos)
   
4.   (setq defined
   
5.     (list
   
6.       "%%130" "%%131" "%%132" "%%133" "%%134" ;1~4级钢筋符号+特殊钢筋
   
7.       "%%135" "%%136" "%%137" "%%138" ;L型钢+H型钢+槽型钢+工字钢
   
8.       "%%150" "%%151" "%%152" "%%153" "%%154" "%%155" "%%156" "%%157" "%%158" "%%159" ;罗马数字
   
9.       "%%177" "%%p" "%%P" ;正负号
   
10.       "%%c" "%%C" "%%D" "%%d" "%%%";直径符号+度数符号+%
    
11.       '("%%140" "%%141") '("%%142" "%%143") ;上下标开关
    
12.       '("%%200" "%%201") '("%%202" "%%203") '("%%204" "%%205") ;圆圈数字
    
13.     )
    
14.   )
    
15.   (while (> (strlen str) 0)
    
16.     (cond
    
17.       ((setq strdefined
    
18.          (vl-some
    
19.            '(lambda (sub / strdefined) (setq strdefined (if (listp sub) (car sub) sub)) (if (eq (substr str 1 (strlen strdefined)) strdefined) sub))
    
20.            defined
    
21.          )
    
22.        )
    
23.         (if (listp strdefined)
    
24.           (if (setq pos (vl-string-search (cadr strdefined) str))
    
25.             (setq rtnstr (cons (substr str 1 (+ pos (strlen (cadr strdefined)))) rtnstr) str (substr str (+ 1 pos (strlen (cadr strdefined)))))
    
26.             (setq rtnstr (cons str rtnstr) str "")
    
27.           )
    
28.           (setq rtnstr (cons strdefined rtnstr) str (substr str (1+ (strlen strdefined))))
    
29.         )
    
30.       )
    
31.       ((> (ascii (substr str 1 1)) 128) ;大于128为汉字
    
32.         (if (and (>= (atoi (substr (ver) 13)) 2021) (/= (getvar "lispsys") 0))
    
33.           (setq rtnstr (cons (substr str 1 1) rtnstr) str (substr str 2))
    
34.           (setq rtnstr (cons (substr str 1 2) rtnstr) str (substr str 3))
    
35.         )
    
36.       )
    
37.       (t
    
38.         (setq rtnstr (cons (substr str 1 1) rtnstr) str (substr str 2))
    
39.       )
    
40.     )
    
41.   )
    
42.   (reverse rtnstr)
    
43. )
    
44. ;取字符-文字(宽度)----(一级)---
    
45. ;;str;需要检测的字符串,如果为nil则取 ent(nil)文字内码表
    
46. (defun sl_text:gettextwidth (str ent / box1 bo2)
    
47.   (if (not str) (setq str (dxf1 ent 1)))
    
48.   (setq box1 (textbox (sl:list-substassoc (list (cons 1 (strcat "m" str "m"))) ent T)))
    
49.   (setq box2 (textbox (sl:list-substassoc (list (cons 1 "mm")) ent T)))
    
50.   (- (- (caadr box1) (caar box1))
    
51.     (- (caadr box2) (caar box2))
    
52.   )
    
53. )
    
54. ;;预测字符所占宽度-----(一级)-----
    
55. ;;str 字符 "千万不要忘记阶级斗争"
    
56. ;;hi 字高 3.0  sty 文字样式 scl 文字宽高比
    
57. ;;SLdesign V3.0  Mofify-Arrange By 尘缘一生  QQ:15290049
    
58. (defun text:slstringlen (str hi sty scl / strlis ent wid)
    
59.   (setq strlis (sl_text:stringexplode str) wid 0)
    
60.   (setq ent
    
61.     (list
    
62.       (cons 40 hi)
    
63.       (cons 41 scl)
    
64.       (cons 7 sty)
    
65.     )
    
66.   )
    
67.   (while (setq str0 (car strlis))
    
68.     (setq wid (+ (sl_text:gettextwidth str0 ent) wid))
    
69.     (setq strlis (cdr strlis))
    
70.   )
    
71.   wid
    
72. )
    
73. ;;测试---
    
74. (defun c:tt (/ len)
    
75.   (setq len (text:slstringlen "千万不要忘记阶级斗争" 3.0 "standard" 0.7))
    
76.   len ;27.7812
    
77. )

;将字符串拆分成单字符列表-------(一级)------<br /> (defun sl_text:stringexplode (str / defined strdefined rtnstr pos)<br />   (setq defined <br />     (list <br />       "%%130" "%%131" "%%132" "%%133" "%%134" ;1~4级钢筋符号+特殊钢筋<br />       "%%135" "%%136" "%%137" "%%138" ;L型钢+H型钢+槽型钢+工字钢<br />       "%%150" "%%151" "%%152" "%%153" "%%154" "%%155" "%%156" "%%157" "%%158" "%%159" ;罗马数字<br />       "%%177" "%%p" "%%P" ;正负号<br />       "%%c" "%%C" "%%D" "%%d" "%%%";直径符号+度数符号+%<br />       '("%%140" "%%141") '("%%142" "%%143") ;上下标开关<br />       '("%%200" "%%201") '("%%202" "%%203") '("%%204" "%%205") ;圆圈数字<br />     )<br />   )<br />   (while (> (strlen str) 0)<br />     (cond<br />       ((setq strdefined<br />          (vl-some <br />            '(lambda (sub / strdefined) (setq strdefined (if (listp sub) (car sub) sub)) (if (eq (substr str 1 (strlen strdefined)) strdefined) sub))<br />            defined<br />          )<br />        )<br />         (if (listp strdefined)<br />           (if (setq pos (vl-string-search (cadr strdefined) str))<br />             (setq rtnstr (cons (substr str 1 (+ pos (strlen (cadr strdefined)))) rtnstr) str (substr str (+ 1 pos (strlen (cadr strdefined)))))<br />             (setq rtnstr (cons str rtnstr) str "")<br />           )<br />           (setq rtnstr (cons strdefined rtnstr) str (substr str (1+ (strlen strdefined))))<br />         )<br />       )<br />       ((> (ascii (substr str 1 1)) 128) ;大于128为汉字<br />         (if (and (>= (atoi (substr (ver) 13)) 2021) (/= (getvar "lispsys") 0))<br />           (setq rtnstr (cons (substr str 1 1) rtnstr) str (substr str 2))<br />           (setq rtnstr (cons (substr str 1 2) rtnstr) str (substr str 3))<br />         )<br />       )<br />       (t<br />         (setq rtnstr (cons (substr str 1 1) rtnstr) str (substr str 2))<br />       )<br />     )<br />   )<br />   (reverse rtnstr)<br /> )<br /> ;取字符-文字(宽度)----(一级)---<br /> ;;str;需要检测的字符串,如果为nil则取 ent(nil)文字内码表<br /> (defun sl_text:gettextwidth (str ent / box1 bo2)<br />   (if (not str) (setq str (dxf1 ent 1)))<br />   (setq box1 (textbox (sl:list-substassoc (list (cons 1 (strcat "m" str "m"))) ent T)))<br />   (setq box2 (textbox (sl:list-substassoc (list (cons 1 "mm")) ent T)))<br />   (- (- (caadr box1) (caar box1))<br />     (- (caadr box2) (caar box2))<br />   )<br /> )<br /> ;;预测字符所占宽度-----(一级)-----<br /> ;;str 字符 "千万不要忘记阶级斗争" <br /> ;;hi 字高 3.0  sty 文字样式 scl 文字宽高比 <br /> ;;SLdesign V3.0  Mofify-Arrange By 尘缘一生  QQ:15290049<br /> (defun text:slstringlen (str hi sty scl / strlis ent wid)<br />   (setq strlis (sl_text:stringexplode str) wid 0)<br />   (setq ent<br />     (list<br />       (cons 40 hi)<br />       (cons 41 scl)<br />       (cons 7 sty)<br />     )<br />   )<br />   (while (setq str0 (car strlis))<br />     (setq wid (+ (sl_text:gettextwidth str0 ent) wid))<br />     (setq strlis (cdr strlis))<br />   )<br />   wid<br /> )<br /> ;;测试---<br /> (defun c:tt (/ len)<br />   (setq len (text:slstringlen "千万不要忘记阶级斗争" 3.0 "standard" 0.7))<br />   len ;27.7812<br /> )

jenlin

这个要做笔记，应该用得上的！

hzyhzjjzh

hubeiwdlue

厉害，这也是个常用的函数。

sandyvs

我是直接写出来，再求包围盒

你有种再说一遍

虽然cad官方在.net工具类自带一个字符串宽度,
但是没有字体渲染出来的正确,
甚至我为此学会了自己渲染字体...