Hello Mr. coder convert this code to vb.net

[Chandan_SharmaZ3CJW]

Sub Main
If TypeOf ThisDoc.Document Is DrawingDocument Then
Dim dwgDoc As DrawingDocument = ThisDoc.Document
For Each dwgSheet As Sheet In dwgDoc.Sheets
If dwgSheet.DrawingViews.Count > 0 Then
modelFile = dwgSheet.DrawingViews(1).ReferencedDocumentDescriptor.FullDocumentName
modelDoc = dwgSheet.DrawingViews(1).ReferencedDocumentDescriptor.ReferencedDocument
prtNumber = modelDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").ItemByPropId(5).Value
If Not String.IsNullOrEmpty(prtNumber) Then
dwgSheet.Name = prtNumber
End If
End If
Next
End If
End Sub

[A.Acheson]

That code looks like it will work in the ilogic environment. Are you finding an error? If so please post the error message of the more info tab. Are you trying to run this in visual studio?

[Chandan_SharmaZ3CJW]

[Chandan_SharmaZ3CJW]

Maybe I am not able to Declare Variable, it can be reason.
Please advise how can be solved.

[Cadkunde.nl]

I think debugging should explain what is going wrong.

But on first sight:

you declare

Dim ModelFile as Partdocument

Then you say ModelFile = .FullDocumentName (which is a string, you can see that if you hoover over it with your mouse)

you are missing Dim modeldoc as Document

you are missing Dim prtNumber as String

iLogic is filling in these missing parts for you, but in visual studio that is not the case

[Chandan_SharmaZ3CJW]

Sub Main
If TypeOf ThisDoc.Document Is DrawingDocument Then
Dim dwgDoc As DrawingDocument = ThisDoc.Document
For Each dwgSheet As Sheet In dwgDoc.Sheets
If dwgSheet.DrawingViews.Count > 0 Then
modelFile = dwgSheet.DrawingViews(1).ReferencedDocumentDescriptor.FullDocumentName
modelDoc = dwgSheet.DrawingViews(1).ReferencedDocumentDescriptor.ReferencedDocument
prtNumber = modelDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").ItemByPropId(5).Value
If Not String.IsNullOrEmpty(prtNumber) Then
dwgSheet.Name = prtNumber
End If
End If
Next
End If
End Sub

'' This is my iLogic code -Just I need to create dll file through visual studio-
so what step need to do , Please explain.

[Cadkunde.nl]

Sub Main
If TypeOf g_inventorapplication.Document Is DrawingDocument Then
Dim dwgDoc As DrawingDocument = g_inventorapplication.ActiveDocument
For Each dwgSheet As Sheet In dwgDoc.Sheets
If dwgSheet.DrawingViews.Count > 0 Then
Dim modelFile As String = dwgSheet.DrawingViews(1).ReferencedDocumentDescriptor.FullDocumentName
Dim modelDoc As Document = g_inventorapplication.Documents.Open(modelFile, False)
Dim prtNumber As String = modelDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").ItemByPropId(5).Value
If Not String.IsNullOrEmpty(prtNumber) Then
dwgSheet.Name = prtNumber
End If
End If
Next
End If
End Sub

[Cadkunde.nl]

oh and I don't know if that line "If Type Of ..... Then" works

I would use

If g_inventorapplication.ActiveDocumentType = DocumentTypeEnum.kDrawingDocumentObject Then