Option Strict Off
Imports System
Imports System.Collections

Imports NXOpen
Imports NXOpen.Drawings
Imports NXOpen.UF

Module add_diameter_dimensions_and_place_properly

Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim lw As ListingWindow = s.ListingWindow

Sub Main(ByVal args As String())

Dim dp As Part = s.Parts.Display()
lw.Open()

Dim drgshts As DrawingSheet() = dp.DrawingSheets.ToArray()

If drgshts.Length() > 0 Then
lw.WriteLine("Sheets found: " & drgshts.Length().ToString())
End If

Dim drgsht As DrawingSheet = Nothing
For Each thisSheet As DrawingSheet In drgshts
If thisSheet.Name = "Sheet 1" Then
drgsht = thisSheet
End If

Next
Dim drgview As BaseView = Nothing

For Each drgview1 As NXObject In drgsht.GetDraftingViews
If drgview1.Name = "Front@7" Then
drgview = drgview1
End If

Next

Dim org As Point3d = drgview.Origin
Dim ptorg1(2), ptorg2(1) As Double
ptorg1(0) = drgview.Origin.X
ptorg1(1) = drgview.Origin.Y
ptorg1(2) = drgview.Origin.Z

ufs.View.MapModelToDrawing(drgview.Tag, ptorg1, ptorg2)

For Each dftedg As NXObject In drgview.AskVisibleObjects
lw.WriteLine(dftedg.GetType().ToString)
Dim theObject As TaggedObject = dftedg

Dim objtype, objsubtype As Integer
ufs.Obj.AskTypeAndSubtype(theObject.Tag, objtype, objsubtype)

If objtype = UFConstants.UF_circle_type Then

Dim dftcurv1 As DraftingCurve = dftedg

Try

Dim ptloc As Point3d = dftcurv1.NameLocation
Dim dimpos1(2), dimpos2(1) As Double
dimpos1(0) = dftcurv1.NameLocation.X
dimpos1(1) = dftcurv1.NameLocation.Y
dimpos1(2) = dftcurv1.NameLocation.Z
lw.WriteLine(dimpos1(0) + dimpos1(1) + dimpos1(1))

ufs.View.MapModelToDrawing(drgview.Tag, dimpos1, dimpos2)
lw.WriteLine(dimpos2(0) + dimpos2(1))

Dim ufdrfobj As UFDrf.Object = New UFDrf.Object()
'Dim ufdrfobj2 As UFDrf.Object = New UFDrf.Object()
Dim uftext As UFDrf.Text = New UFDrf.Text()
ufdrfobj.object_tag = theObject.Tag
ufdrfobj.object_view_tag = drgview.Tag
ufdrfobj.object_assoc_type = UFDrf.AssocType.Intersection

Dim dimpos(2) As Double

If ptorg2(1) > dimpos2(1) Then
If ptorg2(0) > dimpos2(0) Then
dimpos2(0) = dimpos2(0) - 2
End If
If ptorg2(0) < dimpos2(0) Then
dimpos2(0) = dimpos2(0) + 2
End If
End If

Dim dimsn As Tag
ufs.Drf.CreateDiameterDim(ufdrfobj, uftext, dimpos2, dimsn)
'ufs.View.MapModelToDrawing(drgview.Tag, ptorg1, ptorg2)
Catch ex As Exception

End Try
End If

Next

For Each thisSheet As DrawingSheet In drgshts
lw.WriteLine(thisSheet.Name())
Next

End Sub

Public Function GetUnloadOption(ByVal dummy As String) As Integer
Return Session.LibraryUnloadOption.Immediately
End Function

End Module