(XD::UCS:CoordSys)返回UCS 坐标系 (原点 X轴 Y轴 Z轴)

newer

1. ;|
   
2. 返回UCS 坐标系 (原点 X轴 Y轴 Z轴)
   
3. 程序中可以如下获得：(mapcar 'set '(ori xAxis yAxis zAxis) (XD::UCS:CoordSys))
   
4. |;
   
5. (defun XD::UCS:CoordSys ()
   
6.   (list (getvar "ucsorg") (getvar "ucsxdir") (getvar "ucsydir")
   
7.         (XD::UCS:ZDir)
   
8.   )
   
9. )
   
10. 
    

;|<br /> 返回UCS 坐标系 (原点 X轴 Y轴 Z轴)<br /> 程序中可以如下获得：(mapcar 'set '(ori xAxis yAxis zAxis) (XD::UCS:CoordSys))<br /> |;<br /> (defun XD::UCS:CoordSys ()<br />   (list (getvar "ucsorg") (getvar "ucsxdir") (getvar "ucsydir")<br />         (XD::UCS:ZDir)<br />   )<br /> )<br /> <br />

yjf247606

这个很有用，谢谢版主了{:soso_e163:}