多行文字 包围盒

yaojing38

kozmosovia 发表于 2024-8-28 18:07
直接获取文本框四点坐标
(Defun MTEXTBOX        (obj / B ENX H J N O R W)
  (if (and (= "MTEXT" (cdr ...

问下怎么得到世界坐标的包围盒？发现这个包围盒是0点附近的

yaojing38

advksf 发表于 2024-8-29 23:33
楼上的代码要要怎样运行的？lisp吗

是的，，cad

kozmosovia

yaojing38 发表于 2024-8-30 12:18
问下怎么得到世界坐标的包围盒？发现这个包围盒是0点附近的

完整的函数
https://zhuanlan.zhihu.com/p/25228344

yaojing38

kozmosovia 发表于 2024-8-30 13:54
完整的函数
https://zhuanlan.zhihu.com/p/25228344

谢谢您的代码！

2. <div class="blockcode"><blockquote>;Example
   
3. ;(AQX: GETMTEXTBOX (car(entsel)) 0.0)
   
4. ;((97346.9291.883)(61132.620869.7)(56983.413567.6)(93197.6-7010.23))
   
5. ;直接获取文本框四点坐标
   
6. (Defun AQX:GETMTEXTBOX (obj off / MXV B ENX H J L M N O P R W)
   
7.   (Defun mxv (m v)
   
8.     (mapcar '(lambda (r) (apply '+ (mapcar '* r v))) m)
   
9.   )
   
10.   (setq enx (entget obj))
    
11.   (if (null off)
    
12.     (setq off 0.0)
    
13.   )
    
14.   (if
    
15.     (setq l
    
16.      (cond
    
17.        ((= "TEXT" (cdr (assoc 0 enx)))
    
18.         (setq b (cdr (assoc 10 enx))
    
19.         r (cdr (assoc 50 enx))
    
20.         l (textbox enx)
    
21.         )
    
22.         (list
    
23.         (list (- (caar l) off) (- (cadar l) off))
    
24.         (list (+ (caadr l) off) (- (cadar l) off))
    
25.         (list (+ (caadr l) off) (+ (cadadr l) off))
    
26.         (list (- (caar l) off) (+ (cadadr l) off))
    
27.         )
    
28.        )
    
29.        ((= "MTEXT" (cdr (assoc 0 enx)))
    
30.         (setq n (cdr (assoc 210 enx))
    
31.         b (trans (cdr (assoc 10 enx)) 0 n)
    
32.         r (angle '(0.0 0.0 0.0) (trans (cdr (assoc 11 enx)) 0 n))
    
33.         w (cdr (assoc 42 enx))
    
34.         h (cdr (assoc 43 enx))
    
35.         j (cdr (assoc 71 enx))
    
36.         o (list
    
37.       (cond
    
38.         ((member j '(2 5 8)) (/ w -2.0))
    
39.         ((member j '(3 6 9)) (- w))
    
40.         (0.0)
    
41.       )
    
42.       (cond
    
43.         ((member j '(1 2 3)) (- h))
    
44.         ((member j '(4 5 6)) (/ h -2.0))
    
45.         (0.0)
    
46.       )
    
47.           )
    
48.         )
    
49.         (list
    
50.         (list (- (car o) off) (- (cadr o) off))
    
51.         (list (+ (car o) w off) (- (cadr o) off))
    
52.         (list (+ (car o) w off) (+ (cadr o) h off))
    
53.         (list (- (car o) off) (+ (cadr o) h off))
    
54.         )
    
55.        )
    
56.      )
    
57.     )
    
58.   ((lambda (m)
    
59.    (mapcar '(lambda (p) (mapcar '+ (mxv m p) b)) l))
    
60.    (list
    
61.    (list (cos r) (sin (- r)) 0.0)
    
62.    (list (sin r) (cos r) 0.0)
    
63.    '(0.0 0.0 1.0)
    
64.    )
    
65.   )
    
66.   )
    
67. )

<div class="blockcode"><blockquote>;Example<br /> ;(AQX: GETMTEXTBOX (car(entsel)) 0.0)<br /> ;((97346.9291.883)(61132.620869.7)(56983.413567.6)(93197.6-7010.23))<br /> ;直接获取文本框四点坐标<br /> (Defun AQX:GETMTEXTBOX (obj off / MXV B ENX H J L M N O P R W)<br />   (Defun mxv (m v)<br />     (mapcar '(lambda (r) (apply '+ (mapcar '* r v))) m)<br />   )<br />   (setq enx (entget obj))<br />   (if (null off)<br />     (setq off 0.0)<br />   )<br />   (if<br />     (setq l<br />      (cond<br />        ((= "TEXT" (cdr (assoc 0 enx)))<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" (cdr (assoc 0 enx)))<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 />    (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 /> )