14 lines
368 B
VB.net
14 lines
368 B
VB.net
Imports CodeStack.Examples.CreateGeometryAddIn
|
|
Imports SolidWorks.Interop.sldworks
|
|
|
|
Module Module1
|
|
|
|
Sub Main()
|
|
Dim app As ISldWorks = GetObject("", "SldWorks.Application")
|
|
Dim geomAddIn As IGeometryAddIn = app.GetAddInObject("CodeStack.GeometryAddIn")
|
|
Dim feat As IFeature = geomAddIn.CreateCylinder(0.2, 0.2)
|
|
feat.Name = "MyCylinder"
|
|
End Sub
|
|
|
|
End Module
|