motee-z 发表于 2022-7-5 22:28:16

从图片中提取文字高度

当我选择单行文字时，知道如何获得文字高度吗

Tharwat 发表于 2022-7-5 22:40:22

你好
 
试试这个。

(if (setq s (ssget "_+.:S" '((0 . "TEXT,MTEXT"))))
(setq hgt (cdr (assoc 40 (entget (ssname s 0)))))
)

motee-z 发表于 2022-7-5 22:45:42

您好tharwat谢谢您的回复
我们可以从这个选择方法中提取文本高度吗

(setq 1pt(entget (car (entsel "\nSelect text: "))))

Tharwat 发表于 2022-7-5 22:58:15

 
当然可以，但您必须确保用户选择的是文本，而不是任何其他对象
 
不管怎样，它来了。

(setq hgt (cdr (assoc 40 1pt)))

motee-z 发表于 2022-7-5 23:03:58

谢谢你的好意

Tharwat 发表于 2022-7-5 23:16:25

 
随时欢迎你。
 
阅读此文件，其中包括单行文本的所有相关DXF代码

BIGAL 发表于 2022-7-5 23:22:50

VL示例相同，没有测试if文本
 

(setq obj (vlax-ename->vla-object(car (entsel "\nSelect text: "))))
(vla-get-textstring obj) ; text entered
(vla-get-height obj) ; height of text
(vla-get-rotation obj) ; text angle
; to mention a few if you want more download Dumpit.lsp this will produce list
; or
(entget (car (entsel))) ; this will show dxf code numbers like 40 above

Tharwat 发表于 2022-7-5 23:32:29

BIGAL，OP要求的是文本高度，而不是文本字符串
页: [1]
查看完整版本: 从图片中提取文字高度