(XD::Text:Box)求TEXT实体的实际包围盒（适合UCS）

Lispboy · 发表于 2013-7-26 01:20:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2013-7-26 01:53 编辑

;|
求TEXT实体的实际包围盒
参数：
e --- 实体名
返回值：
包围盒（UCS点）
|;
(defun XD::Text:Box (e / ang cosrot p0 p1 p2 p3 p4 sinrot t1 t2 textent)
(xdrx_setenttodb e)
(setq p0 (trans (xdrx_getentdxf 10) e 0)
ang (xdrx_getentdxf 50)
sinrot (sin ang)
cosrot (cos ang)
textent (entget e)
t1 (car (textbox textent))
t2 (cadr (textbox textent))
p1 (list (+ (car p0) (- (* (car t1) cosrot) (* (cadr t1) sinrot))) (+ (cadr p0) (+ (* (car t1) sinrot)
(* (cadr t1) cosrot)
)
)
)
p2 (list (+ (car p0) (- (* (car t2) cosrot) (* (cadr t1) sinrot))) (+ (cadr p0) (+ (* (car t2) sinrot)
(* (cadr t1) cosrot)
)
)
)
p3 (list (+ (car p0) (- (* (car t2) cosrot) (* (cadr t2) sinrot))) (+ (cadr p0) (+ (* (car t2) sinrot)
(* (cadr t2) cosrot)
)
)
)
p4 (list (+ (car p0) (- (* (car t1) cosrot) (* (cadr t2) sinrot))) (+ (cadr p0) (+ (* (car t1) sinrot)
(* (cadr t2) cosrot)
)
)
)
)
(list (trans p1 0 1) (trans p2 0 1) (trans p3 0 1) (trans p4 0 1))
)

;| 
求TEXT实体的实际包围盒 
参数： 
   e  ---  实体名 
返回值： 
   包围盒（UCS点） 
|; 
(defun XD::Text:Box (e / ang cosrot p0 p1 p2 p3 p4 sinrot t1 t2 textent) 
  (xdrx_setenttodb e) 
  (setq p0 (trans (xdrx_getentdxf 10) e 0) 
        ang (xdrx_getentdxf 50) 
        sinrot (sin ang) 
        cosrot (cos ang) 
        textent (entget e) 
        t1 (car (textbox textent)) 
        t2 (cadr (textbox textent)) 
        p1 (list (+ (car p0) (- (* (car t1) cosrot) (* (cadr t1) sinrot))) (+ (cadr p0) (+ (* (car t1) sinrot) 
                                                                                           (* (cadr t1) cosrot) 
                                                                                        ) 
                                                                           ) 
           ) 
        p2 (list (+ (car p0) (- (* (car t2) cosrot) (* (cadr t1) sinrot))) (+ (cadr p0) (+ (* (car t2) sinrot) 
                                                                                           (* (cadr t1) cosrot) 
                                                                                        ) 
                                                                           ) 
           ) 
        p3 (list (+ (car p0) (- (* (car t2) cosrot) (* (cadr t2) sinrot))) (+ (cadr p0) (+ (* (car t2) sinrot) 
                                                                                           (* (cadr t2) cosrot) 
                                                                                        ) 
                                                                           ) 
           ) 
        p4 (list (+ (car p0) (- (* (car t1) cosrot) (* (cadr t2) sinrot))) (+ (cadr p0) (+ (* (car t1) sinrot) 
                                                                                           (* (cadr t2) cosrot) 
                                                                                        ) 
                                                                           ) 
           ) 
  ) 
  (list (trans p1 0 1) (trans p2 0 1) (trans p3 0 1) (trans p4 0 1)) 
)

Free-Lancer · 发表于 2013-7-26 06:37:18

文字前面有空格时，这个box是不是期望的？来自: Android客户端

Lispboy · 发表于 2013-7-26 09:28:15

Free-Lancer 发表于 2013-7-26 06:37
文字前面有空格时，这个box是不是期望的？

你的想法是前面有空格要把空格去掉吧，我认为这个应该在前期处理，想不要空格的时候在调用函数前加个TIRM。

Free-Lancer · 发表于 2013-7-26 11:38:05

把DXF CODE 1 的string subst后再 textbox 即可来自: Android客户端

ll_j · 发表于 2013-7-26 12:33:52

如果有倾斜角，或者文字反向等，情况会怎样？

Lispboy · 发表于 2013-7-26 14:05:42

ll_j 发表于 2013-7-26 12:33
如果有倾斜角，或者文字反向等，情况会怎样？

倾角肯定不会，我觉得这不是包围盒了，要考虑倾角，叫外轮廓比较好。包围盒有包围盒的应用。

这个函数在大多数情况下表现良好，记得以前好像对镜像的文字时候在某个角度时候有些问题。

cxjzxf · 发表于 2013-7-26 16:42:17

有一定的实际意义，支持一个。

账号		自动登录	找回密码
密码			立即注册

[文本] (XD::Text:Box)求TEXT实体的实际包围盒（适合UCS）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评