如何块大小和文字高度一致

wzs07

这段代码，插入屏幕的块的高度和文字高度时常会严重失调，如何调整

2.   ; 统计并插入一个图块和数量文字
   
3.   (if ss
   
4.     (progn
   
5.       (setq cnt (sslength ss))
   
6.       (setq insertPt (getpoint "\n指定图块插入点: "))
   
7.       (if (> cnt 0)
   
8.         (progn
   
9.           ; 插入一个图块
   
10.           (command "_.INSERT" blkname "_S" 1 "_R" 0 insertPt)
    
11.           ; 计算文字插入点（图块右侧）
    
12.           (setq textPt (polar insertPt 0 50))  ; 50单位向右
    
13.           (setq txt (strcat (itoa cnt)))       ; 仅显示数量
    
14.           (setq txtheight (* (getvar "viewsize") 0.05)) ; 动态计算文字高度
    
15.           ; 使用 entmake 创建文字
    
16.           (entmake (list '(0 . "TEXT")                  ; 实体类型
    
17.                          '(100 . "AcDbEntity")          ; 实体基类
    
18.                          '(100 . "AcDbText")            ; 文字子类
    
19.                          (cons 10 textPt)               ; 插入点
    
20.                          (cons 40 txtheight)            ; 文字高度
    
21.                          (cons 1 txt)                   ; 文字内容
    
22.                          (cons 50 0)                    ; 旋转角度
    
23.                          (cons 72 0)                    ; 水平对齐 (0 = 左对齐)
    
24.                          (cons 73 0)                    ; 垂直对齐 (0 = 基线)
    
25.                          )
    
26.                    )
    
27.           (princ (strcat "\n已插入一个 '" blkname "' 图块，并显示数量: " (itoa cnt)))
    
28.         )
    
29.         (princ "\n未找到匹配的图块！")
    
30.       )
    
31.     )
    
32.     (princ "\n未选择任何图块！")
    
33.   )
    
34. 
    
35.   (princ)
    
36. )
    
37. 
    
38. (princ "\n命令: BlockCount - 插入一个图块并显示数量")
    
39. (princ)

  ; 统计并插入一个图块和数量文字<br />   (if ss<br />     (progn<br />       (setq cnt (sslength ss))<br />       (setq insertPt (getpoint "\n指定图块插入点: "))<br />       (if (> cnt 0)<br />         (progn<br />           ; 插入一个图块<br />           (command "_.INSERT" blkname "_S" 1 "_R" 0 insertPt)<br />           ; 计算文字插入点（图块右侧）<br />           (setq textPt (polar insertPt 0 50))  ; 50单位向右<br />           (setq txt (strcat (itoa cnt)))       ; 仅显示数量<br />           (setq txtheight (* (getvar "viewsize") 0.05)) ; 动态计算文字高度<br />           ; 使用 entmake 创建文字<br />           (entmake (list '(0 . "TEXT")                  ; 实体类型<br />                          '(100 . "AcDbEntity")          ; 实体基类<br />                          '(100 . "AcDbText")            ; 文字子类<br />                          (cons 10 textPt)               ; 插入点<br />                          (cons 40 txtheight)            ; 文字高度<br />                          (cons 1 txt)                   ; 文字内容<br />                          (cons 50 0)                    ; 旋转角度<br />                          (cons 72 0)                    ; 水平对齐 (0 = 左对齐)<br />                          (cons 73 0)                    ; 垂直对齐 (0 = 基线)<br />                          )<br />                    )<br />           (princ (strcat "\n已插入一个 '" blkname "' 图块，并显示数量: " (itoa cnt)))<br />         )<br />         (princ "\n未找到匹配的图块！")<br />       )<br />     )<br />     (princ "\n未选择任何图块！")<br />   )<br /> <br />   (princ)<br /> )<br /> <br /> (princ "\n命令: BlockCount - 插入一个图块并显示数量")<br /> (princ)

kozmosovia

插入块后计算一下块包围盒，再根据包围盒确定合适的文本大小。

xyp1964

1. (defun c:tt ()
   
2.   "统计并插入一个图块和数量文字"
   
3.   (or bk (setq bk"251"))
   
4.   (setq bk (Ustr 1 "图块名" bk nil))
   
5.   (if (and (setq ss (ssget "x" (list '(0 . "insert") (cons 2 bk))))
   
6.            (setq p0 (getpoint "\n指定图块插入点: "))
   
7.       )
   
8.     (progn
   
9.       (setq nn (sslength ss))
   
10.       (command "INSERT" bk p0 1 1 0)
    
11.       (setq pt (polar p0 0 50) ; 50单位向右
    
12.             tx (strcat (itoa nn))
    
13.       )
    
14.       (command "zoom" "o" (entlast) "")
    
15.       (setq th (* (getvar "viewsize") 0.05)) ; 动态计算文字高度
    
16.       (entmake (list '(0 . "TEXT")
    
17.                      '(100 . "AcDbEntity")
    
18.                      '(100 . "AcDbText")
    
19.                      (cons 10 pt)
    
20.                      (cons 40 th)
    
21.                      (cons 1 tx)
    
22.                      (cons 50 0)
    
23.                      (cons 72 0)
    
24.                      (cons 73 0)
    
25.                )
    
26.       )
    
27.       (princ (strcat "\n已插入一个 '"bk"' 图块，并显示数量: "(itoa nn)))
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

(defun c:tt ()<br />   "统计并插入一个图块和数量文字"<br />   (or bk (setq bk"251"))<br />   (setq bk (Ustr 1 "图块名" bk nil))<br />   (if (and (setq ss (ssget "x" (list '(0 . "insert") (cons 2 bk))))<br />            (setq p0 (getpoint "\n指定图块插入点: "))<br />       )<br />     (progn<br />       (setq nn (sslength ss))<br />       (command "INSERT" bk p0 1 1 0)<br />       (setq pt (polar p0 0 50) ; 50单位向右<br />             tx (strcat (itoa nn))<br />       )<br />       (command "zoom" "o" (entlast) "")<br />       (setq th (* (getvar "viewsize") 0.05)) ; 动态计算文字高度<br />       (entmake (list '(0 . "TEXT")<br />                      '(100 . "AcDbEntity")<br />                      '(100 . "AcDbText")<br />                      (cons 10 pt)<br />                      (cons 40 th)<br />                      (cons 1 tx)<br />                      (cons 50 0)<br />                      (cons 72 0)<br />                      (cons 73 0)<br />                )<br />       )<br />       (princ (strcat "\n已插入一个 '"bk"' 图块，并显示数量: "(itoa nn)))<br />     )<br />   )<br />   (princ)<br /> )