求多行文字包围的对角坐标

bbswen

如题，不知道有没有类似单行文字的命令，textbox的命令求包围文字的对角坐标。
；；；；；；
(textbox elist)

参数

elist

图元定义数据表，定义文字对象，其格式与 entget 函数返回的表的格式相同。

如果在 elist 表中定义文本参数（而不是文本本身）的域被省略，则使用当前值或缺省值。

textbox 函数可以接受的最小的表是文本本身。

返回值

如果成功则返回一个包括两个点的表；否则返回 nil。

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

；；；；；

这里说的文字对象也没有说不能是多行文字，是不能直接使用吗？

marting

ent --MTEXT实体名

1. (vla-getboundingbox (vlax-ename->vla-object ent) 'lr 'ur)
   
2. (setq box (mapcar '(lambda(x)(vlax-safearray->list x)) (list lr ur)))

(vla-getboundingbox (vlax-ename->vla-object ent) 'lr 'ur)<br /> (setq box (mapcar '(lambda(x)(vlax-safearray->list x)) (list lr ur)))

Lisphk

不行，TEXTBOX只适合TEXT实体。

bbswen

marting 发表于 2017-5-12 22:00

先贴一个完整的。效果和“marting”的差不多

(defun c:al-getboundingbox ()
  (vl-load-com)
  (setq        util (vla-get-utility
               (vla-get-activedocument (vlax-get-acad-object))
             )
  )
  (vla-getentity util 'obj 'ip "\nSelect Object: ")
  (vla-GetBoundingBox obj 'minpoint 'maxpoint)
                                        ;minpoint contains the minimum point of the bounding box
                                        ;maxpoint contains the maximum point of the bounding box
  (princ (vlax-safearray->list minpoint))
  (terpri)
  (princ (vlax-safearray->list maxpoint))
  (princ)
)
                                        ;defun

请教个问题，(vla-GetBoundingBox obj 'minpoint 'maxpoint)这里的参数是怎么用的?(vla-getboundingbox (vlax-ename->vla-object EntName^) 'lr 'ur)函数都一样，可是参数不一样，不知道都是什么参数
另外，文字有角度后，得到的结果就是文字的最左下和最右上了，我想得到文字的各顶点的坐标怎么办呢？

newer

bbswen 发表于 2017-5-12 23:35

(vla-getboundingbox obj 'minpt 'maxpt)

obj 是 实体的VLA对象

minpt,maxpt就是变量名，任意的，你随便，只是把左下点赋给了变量minpt,右上点赋给了maxpt而已。
你想起a,b也行

(vla-getboundingbox obj 'a 'b)

bbswen

这个明白了，刚才写成了(vla-getboundingbox  'obj 'minpt 'maxpt)，多了一个’，结果出错了，我还以为只有这几个固定的参数呢。
旋转之后得到的结果，但是和我想要的结果有出入，0度的时候可以计算出来各个点的顶点，旋转之后，各顶点怎么算呢。

newer

bbswen 发表于 2017-5-13 00:00

boundingbox 是最大的矩形框， 如果你想要MTEXT贴合的方框，就不能直接用它了，
1、先把你的MTEXT旋转到水平，算出来BOUNDINGBOX
2、根据角度，把点旋转回去。


可以用矩阵，这个简单的旋转，用三角函数也行，你自己画下，看看用什么公式旋转过去。

newer

bbswen 发表于 2017-5-13 00:00

用 XDRX_API的话，就一个函数就行了

(xdrx_mtext_box  ent)
或者
(xdrx_getpropertyvalue ent "textbox") 就行了

bbswen

只好曲线救国了，

newer

bbswen 发表于 2017-5-13 11:48

这不是曲线救国，是正路。非正交的，都需要这样进行矩阵变换。