（XD::Pnt:ToBox）给点，宽度，高度，方向生成矩形框

newer

1. ;|
   
2. 给点，宽度，高度，方向生成矩形框
   
3. |;
   
4. (defun XD::Pnt:ToBox (pnt h w ang / direc norm v1 v1- v2 v2- x yAxis)
   
5.   (setq norm (XD::UCS:zDir)
   
6.         direc (xdrx_vector_rotate '(1 0 0) ang norm)
   
7.         direc (xdrx_vector_normalize direc)
   
8.         yAxis (xdrx_vector_perpVector direc)
   
9.         v1 (mapcar
   
10.              '+
    
11.              (xdrx_vector_product direc (/ w 2.0))
    
12.              (xdrx_vector_product yAxis (/ h 2.0))
    
13.            )
    
14.         v1- (xdrx_vector_negate v1)
    
15.         v2 (xdrx_vector_mirror v1 yAxis)
    
16.         v2- (xdrx_vector_negate v2)
    
17.   )
    
18.   (mapcar
    
19.     '(lambda (x)
    
20.        (mapcar
    
21.          '+
    
22.          pnt
    
23.          x
    
24.        )
    
25.      )
    
26.     (list v1- v2- v1 v2)
    
27.   )
    
28. )

;|<br /> 给点，宽度，高度，方向生成矩形框<br /> |;<br /> (defun XD::Pnt:ToBox (pnt h w ang / direc norm v1 v1- v2 v2- x yAxis)<br />   (setq norm (XD::UCS:zDir)<br />         direc (xdrx_vector_rotate '(1 0 0) ang norm)<br />         direc (xdrx_vector_normalize direc)<br />         yAxis (xdrx_vector_perpVector direc)<br />         v1 (mapcar<br />              '+<br />              (xdrx_vector_product direc (/ w 2.0))<br />              (xdrx_vector_product yAxis (/ h 2.0))<br />            )<br />         v1- (xdrx_vector_negate v1)<br />         v2 (xdrx_vector_mirror v1 yAxis)<br />         v2- (xdrx_vector_negate v2)<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (mapcar<br />          '+<br />          pnt<br />          x<br />        )<br />      )<br />     (list v1- v2- v1 v2)<br />   )<br /> )

ysq101

我想问一下  这些xdrx_vector_product  是开源的吗？？

newer

ysq101 发表于 2013-10-24 13:37
我想问一下  这些xdrx_vector_product  是开源的吗？？

xdrx 开头的函数是XDRX_API里面的。

Free-Lancer

这几个函数可以看高飞鸟版主那个LISP矩阵库

pxt2015

可惜这个函数XD::Pnt:ToBox不能正常运行了