购买与咨询 NX 二次开发视频教程，请联系微信号：13890821008  QQ号：85585969  

Public Class MyProgram

Public Shared Sub Main()

Dim ap1 As New Position(0, 0, -100) '轴点1

Dim av1 As Vector=Vector.AxisZ '轴向1

Dim h1, h2 As Number '高度1.2

Dim d1, d2 As Number '直径1.2

Dim cy1, cy2 As NX.Cylinder '圆柱1.2

h1=8

h2=200

d2=8

d1=13

cy1=Cylinder(ap1, av1, h1, d1) '圆柱1

cy1=Cylinder(ap1, av1, h2, d2) '圆柱2

Dim BB1 As NX.Boolean = Unite(cy1, cy2)

BB1.Color = System.Drawing.Color.Green

BB1.Layer = 70

End Sub

End Class