NX-snap

欧阳天痕

1. Imports Snap, Snap.Create
   
2. 
   
3. Partial Public Class MyProgram
   
4. 
   
5.    Public Shared Sub Main()
   
6. 
   
7.       ' Creates a bar shape with holes at each end
   
8.       Dim length As Double = 8
   
9.       Dim width As Double = 4
   
10.       Dim half As Double = width/2
    
11. 
    
12.       Line(-half, 0, -half, length)      ' Left side of bar
    
13.       Line( half, 0,  half, length)      ' Right side of bar
    
14.                                                                                                                                           '
    
15.       Arc(0, length, half, 0, 180)       ' Top semi-circle
    
16.       Arc(0, 0, half, 180, 360)          ' Bottom semi-circle
    
17.                                                                                                                                           '
    
18.       Circle(0, length, 0.5)             ' Top hole
    
19.       Circle(0, 0, 0.5)                  ' Bottom hole
    
20.                                                                                                                                           '
    
21.    End Sub
    
22. 
    
23. End Class
    

复制代码