（xd::geom:elevation）查询一个三维面内任意点的高程

newer

1. (defun xd::geom:elevation (3df pt / elev gface int1 gl gboundplane pts)
   
2.   (if (= (type 3df) 'ENAME)
   
3.     (setq pts (xdrx_getpropertyvalue 3df "vertices"))
   
4.     (setq pts 3df)
   
5.   )
   
6.   (setq gboundplane (xdge::constructor
   
7.                       "kboundedplane"
   
8.                       (car pts)
   
9.                       (cadr pts)
   
10.                       (caddr pts)
    
11.                     )
    
12.         gl          (xdge::constructor "kLine3d" pt (mapcar '+ pt '(0 0 1)))
    
13.         int1        (xdge::getpropertyvalue gboundplane "intersectwith" gl)
    
14.   )
    
15.   (xdge::free gl gboundplane)
    
16.   (last (car int1))
    
17. )
    

(defun xd::geom:elevation (3df pt / elev gface int1 gl gboundplane pts)<br />   (if (= (type 3df) 'ENAME)<br />     (setq pts (xdrx_getpropertyvalue 3df "vertices"))<br />     (setq pts 3df)<br />   )<br />   (setq gboundplane (xdge::constructor<br />                       "kboundedplane"<br />                       (car pts)<br />                       (cadr pts)<br />                       (caddr pts)<br />                     )<br />         gl          (xdge::constructor "kLine3d" pt (mapcar '+ pt '(0 0 1)))<br />         int1        (xdge::getpropertyvalue gboundplane "intersectwith" gl)<br />   )<br />   (xdge::free gl gboundplane)<br />   (last (car int1))<br /> )<br />