UG爱好者
标题:
NX-snap
[打印本页]
作者:
欧阳天痕
时间:
2019-11-21 19:03
标题:
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
复制代码
欢迎光临 UG爱好者 (https://www.ugsnx.com/)
Powered by Discuz! X3.2