空间三点画三维圆弧和三维圆

ynhh

;;;空间三点画三维圆弧和三维圆

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

(defun c:3Darc (/ p1 p2 p3)  <br /> <br /> (command "_ucs" "_w")<br /> <br /> (setq p1(getpoint "Arc point #1: "))<br /> <br /> (setq p2(getpoint "Arc point #2: "))<br /> <br /> (setq p3(getpoint "Arc point #3: "))<br /> <br /> (command "_ucs" "_3p" p1 p2 p3)<br /> <br /> (command "_arc" (trans p1 0 1)(trans p2 0 1)(trans p3 0 1))<br /> <br /> (command "_ucs" "_p")<br /> <br /> )<br /> <br /> <br /> <br /> (defun c:3Dcircle (/ p1 p2 p3)<br /> <br /> (command "_ucs" "_w")<br /> <br /> (setq p1(getpoint "Circle point #1: "))<br /> <br /> (setq p2(getpoint "Circle point #2: "))<br /> <br /> (setq p3(getpoint "Circle point #3: "))<br /> <br /> (command "_ucs" "_3p" p1 p2 p3)<br /> <br /> (command "_circle" "_3p"(trans p1 0 1)(trans p2 0 1)(trans p3 0 1))<br /> <br /> (command "_ucs" "_p")<br /> <br /> )

shirker

沙发支持一下

vormittag

向量叉积定法向，向量与法向叉积定径向，中点、径向定中垂线，中垂线交点定圆心，全都是代数运算，比用command 要好。