[LISP函数-向量]：向量的单位向量

eachy

2. 
   
3. ;; ! ****************************************************************************
   
4. ;; ! GE_VecNormalize
   
5. ;; ! ****************************************************************************
   
6. ;; ! Function : Normalize a vector (scale to a unit length)
   
7. ;; !
   
8. ;; ! Arguments: 'v' - Vector to be normalized
   
9. ;; !
   
10. ;; ! Returns  : 'v' - The normalized vector
    
11. ;; !
    
12. ;; ! Comments:  Normalizing results in the vector being reduced to a unit length
    
13. ;; ! (C) 1999-2004, Four Dimension Technologies, Bangalore
    
14. ;; ! e-mail   : [email]rakesh.rao@4d-technologies.com[/email]
    
15. ;; ! Web      : [url]www.4d-technologies.com[/url]
    
16. ;; ! ****************************************************************************
    
17. ;; 返回向量的单位向量
    
18. (defun GE_VecNormalize (v)
    
19.   (GE_VecScale v (/ 1.0 (distance v (list 0.0 0.0 0.0))))
    
20. )

<br /> ;; ! ****************************************************************************<br /> ;; ! GE_VecNormalize<br /> ;; ! ****************************************************************************<br /> ;; ! Function : Normalize a vector (scale to a unit length)<br /> ;; !<br /> ;; ! Arguments: 'v' - Vector to be normalized<br /> ;; !<br /> ;; ! Returns  : 'v' - The normalized vector<br /> ;; !<br /> ;; ! Comments:  Normalizing results in the vector being reduced to a unit length<br /> ;; ! (C) 1999-2004, Four Dimension Technologies, Bangalore<br /> ;; ! e-mail   : [email]rakesh.rao@4d-technologies.com[/email]<br /> ;; ! Web      : [url]www.4d-technologies.com[/url]<br /> ;; ! ****************************************************************************<br /> ;; 返回向量的单位向量<br /> (defun GE_VecNormalize (v)<br />   (GE_VecScale v (/ 1.0 (distance v (list 0.0 0.0 0.0))))<br /> )

aeo

除了(distance v (list 0.0 0.0 0.0)) 等于0

eachy

2. 
   
3. 
   
4. ;;;--------------------------------------------------------------------;
   
5. ;;;       Function:  求向量的单位向量                                  ;
   
6. ;;;                                                                    ;
   
7. ;;;    Description:  This function returns the normal for the          ;
   
8. ;;;                  vector supplied.                                  ;
   
9. ;;;                                                                    ;
   
10. ;;;                  Required Functions:                               ;
    
11. ;;;                      mult-by-scalar                                ;
    
12. ;;;                                                                    ;
    
13. ;;;      Arguments:                                                    ;
    
14. ;;;               vect =  a valid vector list such as:                 ;
    
15. ;;;                       '( 5 5 5 )                                   ;
    
16. ;;;                                                                    ;
    
17. ;;; Returned Value:  If the vector supplied is not '(0 0 0 )           ;
    
18. ;;;                  A one unit vector is returned. Otherwise nil      ;
    
19. ;;;                  is returned.                                      ;
    
20. ;;;                                                                    ;
    
21. ;;;                        (unit-vector  '( 5 5 5))                       ;
    
22. ;;;                                Returns:                               ;
    
23. ;;;                                 (0.57735 0.57735 0.57735)             ;
    
24. ;;;                                                                       ;
    
25. ;;;          Usage: (unit-vector  '( 5 5 5))                           ;
    
26. ;;;--------------------------------------------------------------------;
    
27. (defun unit-vector (vect / uv TransDataA TransData)
    
28.   (if (> (vlax-variant-type vect) 8192)
    
29.     (setq vect (vlax-safearray->list (vlax-variant-value vect)))
    
30.   )
    
31. ;;; test for (0 0 0 )
    
32.   (setq
    
33.     uv (if (not (vl-every (function (lambda (x) (zerop x))) vect))
    
34.          (mult-by-scalar vect (/ 1.0 (vector-norm vect)))
    
35.          nil
    
36.        )
    
37.   )
    
38.   ;; Convert to a Variant Array of Doubles here ->
    
39.   (if uv
    
40.     (progn
    
41.       (setq TransDataA (vlax-make-safearray vlax-vbDouble (cons 0 3)))
    
42.       (vlax-safearray-fill TransDataA uv)
    
43.       (setq TransData (vlax-make-variant
    
44.                         TransDataA
    
45.                         (logior vlax-vbarray vlax-vbDouble)
    
46.                       )
    
47.       )
    
48.     )
    
49.   )
    
50. )
    

<br /> <br /> ;;;--------------------------------------------------------------------;<br /> ;;;       Function:  求向量的单位向量                                  ;<br /> ;;;                                                                    ;<br /> ;;;    Description:  This function returns the normal for the          ;<br /> ;;;                  vector supplied.                                  ;<br /> ;;;                                                                    ;<br /> ;;;                  Required Functions:                               ;<br /> ;;;                      mult-by-scalar                                ;<br /> ;;;                                                                    ;<br /> ;;;      Arguments:                                                    ;<br /> ;;;               vect =  a valid vector list such as:                 ;<br /> ;;;                       '( 5 5 5 )                                   ;<br /> ;;;                                                                    ;<br /> ;;; Returned Value:  If the vector supplied is not '(0 0 0 )           ;<br /> ;;;                  A one unit vector is returned. Otherwise nil      ;<br /> ;;;                  is returned.                                      ;<br /> ;;;                                                                    ;<br /> ;;;                        (unit-vector  '( 5 5 5))                       ;<br /> ;;;                                Returns:                               ;<br /> ;;;                                 (0.57735 0.57735 0.57735)             ;<br /> ;;;                                                                       ;<br /> ;;;          Usage: (unit-vector  '( 5 5 5))                           ;<br /> ;;;--------------------------------------------------------------------;<br /> (defun unit-vector (vect / uv TransDataA TransData)<br />   (if (> (vlax-variant-type vect) 8192)<br />     (setq vect (vlax-safearray->list (vlax-variant-value vect)))<br />   )<br /> ;;; test for (0 0 0 )<br />   (setq<br />     uv (if (not (vl-every (function (lambda (x) (zerop x))) vect))<br />          (mult-by-scalar vect (/ 1.0 (vector-norm vect)))<br />          nil<br />        )<br />   )<br />   ;; Convert to a Variant Array of Doubles here -><br />   (if uv<br />     (progn<br />       (setq TransDataA (vlax-make-safearray vlax-vbDouble (cons 0 3)))<br />       (vlax-safearray-fill TransDataA uv)<br />       (setq TransData (vlax-make-variant<br />                         TransDataA<br />                         (logior vlax-vbarray vlax-vbDouble)<br />                       )<br />       )<br />     )<br />   )<br /> )<br />