Private Sub GridSettings_Click(sender As Object, e As EventArgs) Handles GridSettings.Click
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objDraftDoc As SolidEdgeDraft.DraftDocument
Dim objSheet As SolidEdgeDraft.Sheet
Dim objBlockOccs As SolidEdgeDraft.BlockOccurrences
Dim objBlockOcc As SolidEdgeDraft.BlockOccurrence
Dim strDisplayedText As String
Try
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
objDraftDoc = objApplication.ActiveDocument
objSheet = objDraftDoc.ActiveSheet
objDraftDoc.FilePreferences.GRIDAngle = 1.57
objDraftDoc.FilePreferences.GRIDDisplayGridMode = SolidEdgeDraft.GridDisplayOptionsConstants.igGridDisplayedAsLines
objDraftDoc.FilePreferences.GRIDMajorLine = 0.08
objDraftDoc.FilePreferences.GRIDMinorSpaces = 8
objDraftDoc.FilePreferences.GRIDSnapToGridMode = SolidEdgeDraft.GridSnapOptionsConstants.igGridSnapUsingPoints
objDraftDoc.UpdatePropertyTextDisplay()
Catch ex As Exception
MsgBox(ex.ToString)
Clipboard.SetText(ex.ToString)
End Try
End Sub