(XD::Table:Direction)获得表格的X轴方向向量

Lispboy

1. (defun XD::Table:Direction (tb / direc typ)
   
2.   (setq typ (XD::Table:TYPE tb))
   
3.   (cond
   
4.     ((= typ "X")
   
5.       (setq direc (car (xdrx_object_getxdata tb "direction")))
   
6.     )
   
7.     ((= typ "A")
   
8.       (setq direc (xdrx_table_direction tb))
   
9.     )
   
10.   )
    
11.   direc
    
12. )
    
13. 
    

(defun XD::Table:Direction (tb / direc typ)<br />   (setq typ (XD::Table:TYPE tb))<br />   (cond<br />     ((= typ "X")<br />       (setq direc (car (xdrx_object_getxdata tb "direction")))<br />     )<br />     ((= typ "A")<br />       (setq direc (xdrx_table_direction tb))<br />     )<br />   )<br />   direc<br /> )<br /> <br />