[求助]：请问有关" textbox " 函数的疑问!

xgwl

为什么用 textbox  求得的文字的两个角点, 用"line" 命令试着把它们连起来,却发现线段在字的外面??   出现这样的问题, 那么用组码找到文字插入点后, 又怎么样求得四个角点呢?  一定要转换"ucs" 吗?

困惑~~~~

Free-Lancer

仔细看看联机帮助，里面说的很详细
测量一个指定文本对象的尺寸，并返回围住该文本的一个矩形框的对角坐标
(textbox elist)

参数

elist

图元定义数据表，定义文字对象，其格式与 entget 函数返回的表的格式相同。
如果在 elist 表中定义文本参数（而不是文本本身）的域被省略，则使用当前值或缺省值。
textbox 函数可以接受的最小的表是文本本身。

返回值

如果成功则返回一个包括两个点的表；否则返回 nil。
textbox 函数返回的点描述了文本对象的边框，假定该文本对象的插入点是 (0,0,0)，而旋转角度是 0。通常，除非该文本对象是倾斜的、或者是垂直书写的、或者它包含的字符串中有下行字符（如 g 和 p），否则函数返回的第一个子表是点 (0.0 0.0 0.0)。第一个点表的值指定从文本的插入点到围住该文本的最小矩形的左下角的偏移量。第二个点表的值指定该矩形框的右上角。无论被测量文本的方向怎样，返回的两个点表总是描述围住文本的矩形框的左下角和右上角。

样例

下面的命令提供文字，并使用其他参数的当前缺省设置：

命令：(textbox '((1 . "Hello world.")))

((0.000124126 -0.00823364 0.0) (3.03623 0.310345 0.0))

oyxx_1023

你的TEXT不在WCS里面吧？

xgwl

联机帮助 说的好象就是要保证插入点即为坐标原点,才能有正确结果!  但如果转动ucs, 很麻烦!不喜欢!   求文字四个角点问题, 刚刚终于领悟! 应该通过组码"50" 可以求出!

Free-Lancer

最初由 xgwl 发布
[B]联机帮助 说的好象就是要保证插入点即为坐标原点,才能有正确结果!  但如果转动ucs, 很麻烦!不喜欢!   求文字四个角点问题, 刚刚终于领悟! 应该通过组码"50" 可以求出! [/B]

aidraft

联机帮助 说的好象就是要保证插入点即为坐标原点,才能有正确结果! 但如果转动ucs, 很麻烦!不喜欢! 求文字四个角点问题, 刚刚终于领悟! 应该通过组码"50" 可以求出!

CODE 50  is just the rotation angle. Textbox is the only way to get the four corners of a text.

lijiao

楼上各位的方法好像有问题，用下面的方法比较合适：

2. 
   
3.   [FONT=courier new]
   
4. (setq txt (vlax-ename->vla-object (car (entsel))))
   
5. (vla-GetBoundingBox txt 'p1 'p2)
   
6. (setq p1 (vlax-safearray->list p1)
   
7.       p2 (vlax-safearray->list p2))
   
8.   [/FONT]
   

<br />   [FONT=courier new]<br /> (setq txt (vlax-ename->vla-object (car (entsel))))<br /> (vla-GetBoundingBox txt 'p1 'p2)<br /> (setq p1 (vlax-safearray->list p1)<br />       p2 (vlax-safearray->list p2))<br />   [/FONT]<br />

梦断江南

有角度或者不是wcs时，不能直接用getboundingbox

urljit

(setq pt10(cdr (assoc 10 elist)))取得的就是文字的左下角点（零度文字），之后，以 textbox 的第一个点为基准点，取得textbox第二个点的距离(dist)和角度(ang)，(polar pt10  ang dist)即为右上角点。