access solidworks thro vb.net

hai, i've found the answer..here is the code Dim swApp As SldWorks.SldWorks Dim part As SldWorks.PartDoc Dim swModel As SldWorks.ModelDoc2 Dim swDispDim As SldWorks.DisplayDimension Dim swDim As SldWorks.Dimension Dim swAnn As SldWorks.Annotation Dim feat As SldWorks.Feature swApp = CreateObject("SldWorks.Application")

With swApp .Visible = True .UserControl = True End With MsgBox("connection established")

'open a part document part = swApp.OpenDoc("C:\Documents an Settings\Solidworks\ref.sldprt", 1) part = swApp.ActiveDoc MsgBox("part doc opened")

swModel = swApp.ActiveDoc feat = swModel.FirstFeature

swDispDim = feat.GetFirstDisplayDimension

Do While Not swDispDim Is Nothing

swAnn = swDispDim.GetAnnotation swDim = swDispDim.GetDimension

MsgBox(" DimFullName = " & swDim.FullName) MsgBox(" DimName = " & swDim.Name) 'MsgBox(" DrivenState = " & swDim.DrivenState) 'MsgBox(" ReadOnly = " & swDim.ReadOnly) MsgBox(" Value = " & swDim.GetSystemValue2("" & "m") 'MsgBox(" Arrowside = " & swDispDim.ArrowSide)

Select Case swDispDim.GetType Case 2 MsgBox("linear dimension") Case 5 MsgBox("radial dimension") End Select swDispDim = feat.GetNextDisplayDimension(swDispDim)

Loop

thanks to al

Message posted using

Glad to see you found your answer.

The best SW API help I've found is on the SW web site form.solidworks.com. There are other discussion boards, but that one seems most responsive to API issues.