首先新建一个"SNAP Application"项目,配置好目标CPU,引用连接,及输出DLL的文件名

打开项目中的"MyProgram.VB"输入代码

MyProgram.VB的全部代码如下:

'-----------------------------------------------------------

Imports Snap, Snap.Create

Public Class MyProgram

Public Shared Sub Main()

' 实战练习(绘制五角星)

Dim myStarNum As Integer = 5 '定义多角星角数

Dim myRadius As Double = 50 '定义星顶点所在圆外圆半径

Dim myRadiusMin As Double = Math.SinD(90 / myStarNum) * myRadius / Math.CosD(180 / myStarNum) '定义并计算内圆半径

Dim myHeight As Double = 30 '定义凸起高度

Dim myAngle As Double = 90 - Math.AtanD(myHeight / myRadius) '定义并计算拔模角度以保证顶部是一个点

Dim myPosition As Position(,) = New Position(myStarNum - 1, 1) {} '定义一个数组来存储角点位置

'------------------外部点赋值给数组--------------------------------

Dim i As Integer

For i = 0 To myStarNum - 1

'给外部角点位置赋值

myPosition(i, 0) = {Math.CosD(90 + 360 * i / myStarNum) * myRadius, _

Math.SinD(90 + 360 * i / myStarNum) * myRadius, 0}

'给内部角点位置赋值

myPosition(i, 1) = {Math.CosD(90 + 180 / myStarNum + 360 * i / myStarNum) * myRadiusMin, _

Math.SinD(90 + 180 / myStarNum + 360 * i / myStarNum) * myRadiusMin, 0}

Next

'---------------------绘制直线--------------------------------

Dim myCurves As NX.ICurve() = New NX.Curve(myStarNum * 2 - 1) {} '定义一个曲线组用来存放曲线以用来拉伸

Dim j As Integer = 0

For i = 0 To myStarNum - 1

Dim myLine0 As NX.Line = Line(myPosition(i, 0), myPosition(i, 1))

myCurves(j) = myLine0

j += 1

If i < myStarNum - 1 Then

Dim myLine1 As NX.Line = Line(myPosition(i, 1), myPosition(i + 1, 0))

myCurves(j) = myLine1

j += 1

Else

Dim myLine2 As NX.Line = Line(myPosition(i, 1), myPosition(0, 0))

myCurves(j) = myLine2

j += 1

End If

Next

'---------------------拉伸曲线组生成实体--------------------------------

●●●请先 登陆 或 注册 后查看●●●

End Sub

End Class

'------------------------------------------------------------------------------------------------

生成DLL文件,在UG中使用CTRL+U 打开编译生成的dll文件,结果显示如下图