文本包围盒

/db_自贡黄明儒_

读Lee Mac的关联包围盒，觉得这个程序没什么用处，不过其内的文本包围盒，倒是可以提取出来作为通用函数使用

2. ;; Matrix x Vector  -  Vladimir Nesterovsky
   
3. ;; Args: m - nxn matrix, v - vector in R^n
   
4. (defun mxv (m v)
   
5.   (mapcar '(lambda (r) (apply '+ (mapcar '* r v))) m)
   
6. )
   
7. ;; The following function is based on code by gile
   
8. ;;文本包围盒(tbox:textbox (car(entsel)) 2)
   
9. (defun tbox:textbox (enx off / B H J L M N O P R STR W)
   
10.   (setq str (cdr (assoc 0 enx)))
    
11.   (if
    
12.     (setq l
    
13.            (cond
    
14.              ((or (= "TEXT" str) (= "ATTDEF" str))
    
15.               (setq b (cdr (assoc 10 enx))
    
16.                     r (cdr (assoc 50 enx))
    
17.                     l (textbox enx)
    
18.               )
    
19.               (list
    
20.                 (list (- (caar l) off) (- (cadar l) off))
    
21.                 (list (+ (caadr l) off) (- (cadar l) off))
    
22.                 (list (+ (caadr l) off) (+ (cadadr l) off))
    
23.                 (list (- (caar l) off) (+ (cadadr l) off))
    
24.               )
    
25.              )
    
26.              ((= "MTEXT" str)
    
27.               (setq n (cdr (assoc 210 enx))
    
28.                     b (trans (cdr (assoc 10 enx)) 0 n)
    
29.                     r (angle '(0.0 0.0 0.0) (trans (cdr (assoc 11 enx)) 0 n))
    
30.                     w (cdr (assoc 42 enx))
    
31.                     h (cdr (assoc 43 enx))
    
32.                     j (cdr (assoc 71 enx))
    
33.                     o (list
    
34.                         (cond
    
35.                           ((member j '(2 5 8)) (/ w -2.0))
    
36.                           ((member j '(3 6 9)) (- w))
    
37.                           (0.0)
    
38.                         )
    
39.                         (cond
    
40.                           ((member j '(1 2 3)) (- h))
    
41.                           ((member j '(4 5 6)) (/ h -2.0))
    
42.                           (0.0)
    
43.                         )
    
44.                       )
    
45.               )
    
46.               (list
    
47.                 (list (- (car o) off) (- (cadr o) off))
    
48.                 (list (+ (car o) w off) (- (cadr o) off))
    
49.                 (list (+ (car o) w off) (+ (cadr o) h off))
    
50.                 (list (- (car o) off) (+ (cadr o) h off))
    
51.               )
    
52.              )
    
53.            )
    
54.     )
    
55.      ((lambda (m)
    
56.         (mapcar '(lambda (p) (mapcar '+ (mxv m p) b)) l)
    
57.       )
    
58.        (list
    
59.          (list (cos r) (sin (- r)) 0.0)
    
60.          (list (sin r) (cos r) 0.0)
    
61.          '(0.0 0.0 1.0)
    
62.        )
    
63.      )
    
64.   )
    
65. )

;; Matrix x Vector  -  Vladimir Nesterovsky<br /> ;; Args: m - nxn matrix, v - vector in R^n<br /> (defun mxv (m v)<br />   (mapcar '(lambda (r) (apply '+ (mapcar '* r v))) m)<br /> )<br /> ;; The following function is based on code by gile<br /> ;;文本包围盒(tbox:textbox (car(entsel)) 2)<br /> (defun tbox:textbox (enx off / B H J L M N O P R STR W)<br />   (setq str (cdr (assoc 0 enx)))<br />   (if<br />     (setq l<br />            (cond<br />              ((or (= "TEXT" str) (= "ATTDEF" str))<br />               (setq b (cdr (assoc 10 enx))<br />                     r (cdr (assoc 50 enx))<br />                     l (textbox enx)<br />               )<br />               (list<br />                 (list (- (caar l) off) (- (cadar l) off))<br />                 (list (+ (caadr l) off) (- (cadar l) off))<br />                 (list (+ (caadr l) off) (+ (cadadr l) off))<br />                 (list (- (caar l) off) (+ (cadadr l) off))<br />               )<br />              )<br />              ((= "MTEXT" str)<br />               (setq n (cdr (assoc 210 enx))<br />                     b (trans (cdr (assoc 10 enx)) 0 n)<br />                     r (angle '(0.0 0.0 0.0) (trans (cdr (assoc 11 enx)) 0 n))<br />                     w (cdr (assoc 42 enx))<br />                     h (cdr (assoc 43 enx))<br />                     j (cdr (assoc 71 enx))<br />                     o (list<br />                         (cond<br />                           ((member j '(2 5 8)) (/ w -2.0))<br />                           ((member j '(3 6 9)) (- w))<br />                           (0.0)<br />                         )<br />                         (cond<br />                           ((member j '(1 2 3)) (- h))<br />                           ((member j '(4 5 6)) (/ h -2.0))<br />                           (0.0)<br />                         )<br />                       )<br />               )<br />               (list<br />                 (list (- (car o) off) (- (cadr o) off))<br />                 (list (+ (car o) w off) (- (cadr o) off))<br />                 (list (+ (car o) w off) (+ (cadr o) h off))<br />                 (list (- (car o) off) (+ (cadr o) h off))<br />               )<br />              )<br />            )<br />     )<br />      ((lambda (m)<br />         (mapcar '(lambda (p) (mapcar '+ (mxv m p) b)) l)<br />       )<br />        (list<br />          (list (cos r) (sin (- r)) 0.0)<br />          (list (sin r) (cos r) 0.0)<br />          '(0.0 0.0 1.0)<br />        )<br />      )<br />   )<br /> )

hh_lj007

跟着大神的总结，好好学习

qqqincccken

謝謝提供分享學習瞭

tigcat

感谢黄大师分享

qxlonmsn

这个好  我需要  感谢黄大师

hbabc

感谢楼主分享！！！

tigcat

lee-mac的数学很好,我也用到了他的矩阵变换,用于在ucs求文字包围盒,比ucs "e"方便。

yoyoho

谢谢楼主分享!!!!!!!!