[LISP程序]：一键调ucs--也可配合ucsfollow变量使用

梦断江南

2. 
   
3.   [FONT=courier new]
   
4. ;ucs             3
   
5.                  |
   
6.              2-- 0 --4
   
7.                  |
   
8.                  1
   
9. ;
   
10. (defun c:0(/ )
    
11.   (command ".ucs" "3" "*0,0,0" "*1,0,0" "*0,1,0")
    
12. )  
    
13. 
    
14. (defun c:1(/ )
    
15.   (command ".ucs" "3" "*0,0,0" "*1,0,0" "*0,0,1")
    
16. )  
    
17.                  
    
18. (defun c:2(/ )
    
19.   (command ".ucs" "3" "*0,0,0" "*0,-1,0" "*0,0,1")
    
20. )  
    
21.                  
    
22. (defun c:3(/ )
    
23.   (command ".ucs" "3" "*0,0,0" "*-1,0,0" "*0,0,1")
    
24. )  
    
25.   
    
26. (defun c:4(/ )
    
27.   (command ".ucs" "3" "*0,0,0" "*0,1,0" "*0,0,1")
    
28. )  
    
29. (defun c:5(/ )
    
30.   (command ".ucs" "o")
    
31. )                                                                                    
    
32.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;ucs             3<br />                  | <br />              2-- 0 --4<br />                  |<br />                  1<br /> ;<br /> (defun c:0(/ )<br />   (command ".ucs" "3" "*0,0,0" "*1,0,0" "*0,1,0")<br /> )  <br /> <br /> (defun c:1(/ )<br />   (command ".ucs" "3" "*0,0,0" "*1,0,0" "*0,0,1")<br /> )  <br />                  <br /> (defun c:2(/ )<br />   (command ".ucs" "3" "*0,0,0" "*0,-1,0" "*0,0,1")<br /> )  <br />                  <br /> (defun c:3(/ )<br />   (command ".ucs" "3" "*0,0,0" "*-1,0,0" "*0,0,1")<br /> )  <br />   <br /> (defun c:4(/ )<br />   (command ".ucs" "3" "*0,0,0" "*0,1,0" "*0,0,1")<br /> )  <br /> (defun c:5(/ )<br />   (command ".ucs" "o")<br /> )                                                                                    <br />   [/FONT]<br />