NX-snap
本帖最后由 欧阳天痕 于 2019-11-21 19:09 编辑Imports Snap, Snap.Create
Partial Public Class MyProgram
Public Shared Sub Main()
' Creates a bar shape with holes at each end
Dim length As Double = 8
Dim width As Double = 4
Dim half As Double = width/2
Line(-half, 0, -half, length) ' Left side of bar
Line( half, 0,half, length) ' Right side of bar
'
Arc(0, length, half, 0, 180) ' Top semi-circle
Arc(0, 0, half, 180, 360) ' Bottom semi-circle
'
Circle(0, length, 0.5) ' Top hole
Circle(0, 0, 0.5) ' Bottom hole
'
End Sub
End Class
页:
[1]