从图片中提取文字高度

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谢谢您的回复
我们可以从这个选择方法中提取文本高度吗

copy


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

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

当然可以，但您必须确保用户选择的是文本，而不是任何其他对象

不管怎样，它来了。

copy


(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文本

copy


(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要求的是文本高度，而不是文本字符串

[编程交流] 从图片中提取文字高度

发表回复

精选推荐