怎样获取一行文本的四个角点坐标，也就是外接矩形坐标？

gzc75

我是一个初学者，请问大家怎样通过lisp语句获取cad里一行文本的四个角点坐标，也就是外接矩形坐标？谢谢。

Lisphk

[教学]：获取字符串长度----textbox

16 个回复 - 572 次查看

;| 在程序中经常用到标注文字下面画线，或者画表格时确定列宽，有的程序用 的是固定的长度这样在实际使用中在文字的多少变化或者更换字体后线长显 的不是很协调，用这个函数可以求得要标注字串的实际长度，最后再 ...

2004-4-5 12:20 - eachy - A/VLISP

konglong604

谢谢大师的回复,我也跟着学习一下.

kqqt6236

textbox                    

gzc75

textbox elist中，elist怎么使用？

newer

gzc75 发表于 2018-11-7 09:23
textbox elist中，elist怎么使用？

实体的 entget

elist= (entget ent)

marting

gzc75 发表于 2018-11-7 09:23
textbox elist中，elist怎么使用？

如何得到文字的包围框坐标？

10 个回复 - 1682 次查看

求助高手：如何得到如下测试文件中的文字的包围框坐标？ 测试文件:

2013-5-1 22:52 - Faster - A/VLISP

                               
登录/注册后可看大图

UCS下如何创建物体的包围框

5 个回复 - 4705 次查看

UCS下如何创建物体的包围框 我们知道如果要创建物体的包围框采用函数 vla-GetBoundingBox函数，但这个函数创建的物体包围框永远是WCS的，也就是说无论你当前处于什么UCS状态，它得到的包围框总是跟WCS的X轴线，Y ...

2013-5-7 22:48 - Highflybird - A/VLISP

                               
登录/注册后可看大图

gzc75

我通过获取实体后
(setq elist (entget mc1))
(textbox elist)

得到数据如下：
((0.48889 0.0 0.0) (61.9913 20.2697 0.0))

这是什么数据啊？不是坐标数据呢。如果是偏移量也不是x、y方向上的偏移量，倒像是以文本插入点为原点、以文字旋转方向为x轴的坐标系下的偏移量，那我怎么归化到外接矩形的实际坐标呢？请大家再指点一下，谢谢！

yinchuan99001

有多行文本和单行文本区别，不知楼主具体有什么用处，可否上图说明。这样比较直观。

marting

gzc75 发表于 2018-11-7 12:51
我通过获取实体后
(setq elist (entget mc1))
(textbox elist)

文字方向的矩形框的 左下和右上两个点

gzc75

谢谢大家指点，我的意思是想获取外接矩形四个角点的真实坐标。

newer

gzc75 发表于 2018-11-19 14:39
谢谢大家指点，我的意思是想获取外接矩形四个角点的真实坐标。

TEXTBOX获得左下右上两个点，
你在获得文字的角度，就能算出矩形框

dnbcgrass

2. ;单行文字矩形外框
   
3. (defun c:jxwk()
   
4.     (setq cmd (getvar "cmdecho"))
   
5.     (setq osm (getvar "osmode"))
   
6.     (setvar  "cmdecho" 0)
   
7.     (setvar "osmode" 0)
   
8.     (command "_undo" "be")
   
9.     (while (progn
   
10.                (princ "\n请选取单选文字:")
    
11.                (setq ssa (ssget ":S" '((0 . "text"))))
    
12.            )
    
13.          (setq ent (ssname ssa 0))
    
14.          (command "_ucs" "e" ent)
    
15.          (setq box (textbox (entget ent)))
    
16.          (setq p1 (car box))
    
17.          (setq p3 (cadr box))
    
18.          (setq p2 (list (car p3) (cadr p1)))
    
19.          (setq p4 (list (car p1) (cadr p3)))
    
20.          (command "_pline" p1 p2 p3 p4 "c")
    
21.     )
    
22.     (command "_ucs" "")
    
23.     (command "_undo" "e")
    
24.     (setvar "osmode" osm)
    
25.     (setvar  "cmdecho" cmd)
    
26.     (princ)
    
27. )

;单行文字矩形外框<br /> (defun c:jxwk()<br />     (setq cmd (getvar "cmdecho"))<br />     (setq osm (getvar "osmode"))<br />     (setvar  "cmdecho" 0)<br />     (setvar "osmode" 0)<br />     (command "_undo" "be")<br />     (while (progn<br />                (princ "\n请选取单选文字:")<br />                (setq ssa (ssget ":S" '((0 . "text"))))<br />            )<br />          (setq ent (ssname ssa 0))<br />          (command "_ucs" "e" ent)<br />          (setq box (textbox (entget ent)))<br />          (setq p1 (car box))<br />          (setq p3 (cadr box))<br />          (setq p2 (list (car p3) (cadr p1)))<br />          (setq p4 (list (car p1) (cadr p3)))<br />          (command "_pline" p1 p2 p3 p4 "c")<br />     )<br />     (command "_ucs" "")<br />     (command "_undo" "e")<br />     (setvar "osmode" osm)<br />     (setvar  "cmdecho" cmd)<br />     (princ)<br /> )

gzc75

非常感谢 dnbcgrass的代码，研究了一下，我改了一下，可以一次性选择很多文本，进行消隐了。