[LISP函数-Text]：获取text实体的实际外框

eachy

2. 
   
3. (setq _pi2 (/ pi 2)
   
4.       _pi4 (/ pi 4)
   
5.       _2pi (* pi 2)
   
6.       _3pi (* 1.5 pi)
   
7. )
   
8. (defun xd-ZeroSmallNum (num)
   
9.   (setq num (rtos num 2 24))
   
10.   (distof
    
11.     (if        (or (wcmatch num "*e-*")
    
12.             (wcmatch num "*E-*")
    
13.         )
    
14.       "0.0"
    
15.       num
    
16.     )
    
17.   )
    
18. )
    
19. (defun xd-dxf (code el) (cdr (assoc code el)))
    
20. ;; e = text dxf list
    
21. (defun xd-GetTextBox (e / box ang pt p1)
    
22.   (if (or (= (xd-dxf e 0) "TEXT")
    
23.           (= (xd-dxf e 0) "ATTRIB")
    
24.       )
    
25.     (progn (setq box (textbox (entget e))
    
26.                  ang (xd-dxf e 50)
    
27.                  pt  (xd-dxf e 10)
    
28.            )
    
29.            (setq box
    
30.                   (mapcar '(lambda (x)
    
31.                              (mapcar '(lambda (y) (xd-ZEROSMALLNUM y)) x)
    
32.                            )
    
33.                           box
    
34.                   )
    
35.            )
    
36.            (list pt
    
37.                  (setq p1 (polar pt ang (car (last box))))
    
38.                  (polar p1 (+ ang _pi2) (cadr (last box)))
    
39.                  (polar pt (+ ang _pi2) (cadr (last box)))
    
40.            )
    
41.     )
    
42.   )
    
43. )

<br /> (setq _pi2 (/ pi 2)<br />       _pi4 (/ pi 4)<br />       _2pi (* pi 2)<br />       _3pi (* 1.5 pi)<br /> )<br /> (defun xd-ZeroSmallNum (num)<br />   (setq num (rtos num 2 24))<br />   (distof<br />     (if        (or (wcmatch num "*e-*")<br />             (wcmatch num "*E-*")<br />         )<br />       "0.0"<br />       num<br />     )<br />   )<br /> )<br /> (defun xd-dxf (code el) (cdr (assoc code el)))<br /> ;; e = text dxf list<br /> (defun xd-GetTextBox (e / box ang pt p1)<br />   (if (or (= (xd-dxf e 0) "TEXT")<br />           (= (xd-dxf e 0) "ATTRIB")<br />       )<br />     (progn (setq box (textbox (entget e))<br />                  ang (xd-dxf e 50)<br />                  pt  (xd-dxf e 10)<br />            )<br />            (setq box<br />                   (mapcar '(lambda (x)<br />                              (mapcar '(lambda (y) (xd-ZEROSMALLNUM y)) x)<br />                            )<br />                           box<br />                   )<br />            )<br />            (list pt<br />                  (setq p1 (polar pt ang (car (last box))))<br />                  (polar p1 (+ ang _pi2) (cadr (last box)))<br />                  (polar pt (+ ang _pi2) (cadr (last box)))<br />            )<br />     )<br />   )<br /> )

aeo

肯定不对!
光看第一点:
pt  --> (ea:dxf e 10)
(textbox (entget e))  ;;得出的第一点不一定刚好 '(0 0)
所以后面(list pt ...肯定错.

应该：
textbox求出box
把box绕 '(0 0)转dxf50
再从'(0 0)移到dxf10.

它山之石

[php]
(defun xd-dxf (code el) (cdr (assoc code el)))
[/php]
应该是：
[php]
(defun xd-dxf (el code) (cdr (assoc code (entget el))))
[/php]
;; e = text dxf list也有误
应该是e为实体名

或者增加个判断
[php]  (defun dxf (ent i)
    (if        (= (type ent) 'ename)
      (setq ent (entget ent))
    ) ;_ 结束if
    (cdr (assoc i ent))
  ) ;_ 结束defun
[/php]

一般程序中已开始就会 (entget ent) ，没必要两次 entget    eachy