[求助]：请高手指点一下！

haijiangl

各位高手，如何在lisp中获得文字覆盖区域的四个角点坐标，谢谢！

ll_j

在明经通道有一个文本对齐的函数，是采用Vlisp求边界的，方法比较简单，如果使用Alisp就复杂一点，需要使用textbox函数求值然后根据文本转角等特性计算，以下是我在Ju.lsp中的部分代码，供参考：

2. 
   
3.   (defun ju_txt        (j72 j73)              ;Text角点，j72、j73对应文本72、73组码
   
4.     (if        (/= j73 0)
   
5.       (if (= j73 1)
   
6.         (setq j73 (/ h -3))
   
7.         (setq j73 (* (abs (- j73 1)) 0.5 h))
   
8.       )
   
9.     )
   
10.     (trans (list
    
11.              (- (+ (* lx (cos alf) j72 0.5) (car pt0)) (* j73 (sin alf)))
    
12.              (+ (* lx (sin alf) j72 0.5) (cadr pt0) (* j73 (cos alf)))
    
13.              (caddr pt0)
    
14.            )
    
15.            0
    
16.            1
    
17.     )
    
18.   )
    
19. 
    
20.   (defun ju_m_pt (sign axis tname)        ;文本边缘x、y值，sign——'MIN、'MAX，axis——'CAR、'CADR...
    
21.     (setq en  (entget tname)
    
22.           h   (cdr (assoc 40 en))
    
23.           alf (cdr (assoc 50 en))
    
24.           obl (cdr (assoc 51 en))
    
25.           pt0 (cdr (assoc 10 en))
    
26.           lx  (- (caadr (textbox en))
    
27.                  (* h (/ (sin obl) (cos obl)))
    
28.               )
    
29.     )
    
30.     (setq ptlist (list (ju_txt 0 0)
    
31.                        (ju_txt 0 3)
    
32.                        (ju_txt 2 0)
    
33.                        (ju_txt 2 3)
    
34.                  )
    
35.     )
    
36.     (apply sign (mapcar axis ptlist))
    
37.   )
    

<br />   (defun ju_txt        (j72 j73)              ;Text角点，j72、j73对应文本72、73组码<br />     (if        (/= j73 0)<br />       (if (= j73 1)<br />         (setq j73 (/ h -3))<br />         (setq j73 (* (abs (- j73 1)) 0.5 h))<br />       )<br />     )<br />     (trans (list<br />              (- (+ (* lx (cos alf) j72 0.5) (car pt0)) (* j73 (sin alf)))<br />              (+ (* lx (sin alf) j72 0.5) (cadr pt0) (* j73 (cos alf)))<br />              (caddr pt0)<br />            )<br />            0<br />            1<br />     )<br />   )<br /> <br />   (defun ju_m_pt (sign axis tname)        ;文本边缘x、y值，sign——'MIN、'MAX，axis——'CAR、'CADR...<br />     (setq en  (entget tname)<br />           h   (cdr (assoc 40 en))<br />           alf (cdr (assoc 50 en))<br />           obl (cdr (assoc 51 en))<br />           pt0 (cdr (assoc 10 en))<br />           lx  (- (caadr (textbox en))<br />                  (* h (/ (sin obl) (cos obl)))<br />               )<br />     )<br />     (setq ptlist (list (ju_txt 0 0)<br />                        (ju_txt 0 3)<br />                        (ju_txt 2 0)<br />                        (ju_txt 2 3)<br />                  )<br />     )<br />     (apply sign (mapcar axis ptlist))<br />   )<br />

aeo

最初由 ll_j 发布
[B]在明经通道有一个文本对齐的函数，是采用Vlisp求边界的，方法比较简单，如果使用Alisp就复杂一点，需要使用textbox函数求值然后根据文本转角等特性计算，以下是我在Ju.lsp中的部分代码，供参考：
[code]
  (defun ... [/B]

难道textbox还跟dxf72 dxf73有关吗?

XDSoft

建议大家看看“晓东工具箱”里面的 xdlsp.lsp  里面提供了很多LISP的通用函数，包括文字的，晓东工具箱强大的文字处理都在那里面和 txttool.lsp 里面

ll_j

最初由 aeo 发布
难道textbox还跟dxf72 dxf73有关吗?

没有关系，这里是为了求输出对齐点用的。