[源码] 空间三点画三维圆弧和三维圆

admin1

1. (defun c:3Darc (/ p1 p2 p3)  
   
2. 
   
3. (command "_ucs" "_w")
   
4. 
   
5. (setq p1(getpoint "Arc point #1: "))
   
6. 
   
7. (setq p2(getpoint "Arc point #2: "))
   
8. 
   
9. (setq p3(getpoint "Arc point #3: "))
   
10. 
    
11. (command "_ucs" "_3p" p1 p2 p3)
    
12. 
    
13. (command "_arc" (trans p1 0 1)(trans p2 0 1)(trans p3 0 1))
    
14. 
    
15. (command "_ucs" "_p")
    
16. 
    
17. )
    
18. 
    
19. 
    
20. 
    
21. (defun c:3Dcircle (/ p1 p2 p3)
    
22. 
    
23. (command "_ucs" "_w")
    
24. 
    
25. (setq p1(getpoint "Circle point #1: "))
    
26. 
    
27. (setq p2(getpoint "Circle point #2: "))
    
28. 
    
29. (setq p3(getpoint "Circle point #3: "))
    
30. 
    
31. (command "_ucs" "_3p" p1 p2 p3)
    
32. 
    
33. (command "_circle" "_3p"(trans p1 0 1)(trans p2 0 1)(trans p3 0 1))
    
34. 
    
35. (command "_ucs" "_p")
    
36. 
    
37. )

复制代码