FindFirstGraphicAnnSQItem Method

'Declaration
 
Public Function FindFirstGraphicAnnSQItem() As DicomElement

Public Sub GraphicAnnSequenceSample()
      'Make sure to initialize the DICOM engine, this needs to be done only once 
      'In the whole application
      DicomEngine.Startup()

      Dim dicomDataset As DicomDataSet = New DicomDataSet()
      Using (dicomDataset)
         ' We can also initialize in here the "Grayscale Softcopy Presentation State" class
         dicomDataset.Initialize(DicomClassType.Undefined, DicomDataSetInitializeType.ExplicitVRLittleEndian)

         dicomDataset.CreateGraphicAnnSQItem(0, "Layer0")
         Dim firstGraphicAnnSQItem As DicomElement = dicomDataset.FindFirstGraphicAnnSQItem()
         Debug.Assert(Not firstGraphicAnnSQItem Is Nothing)
         'If there was more than one item we can use 
         'FindNextGraphicAnnSQItem to enumerate these items

         dicomDataset.SetLayerName(firstGraphicAnnSQItem, "Layer1")
         Debug.Assert(dicomDataset.GetLayerName(firstGraphicAnnSQItem) = "Layer1")

         ' We can also call RemoveAllImageRefFromAllLayers or call 
         ' RemoveImageRefFromLayer to remove the referenced images one by one.
         ' In any case this is for demonstration purposes only, since the dataset
         ' doesn't have any referenced images right now.
         dicomDataset.RemoveAllImageReferencesFromLayer(firstGraphicAnnSQItem)

         dicomDataset.AddPresentationStateImageReference(Path.Combine(LEAD_VARS.ImagesDir, "IMAGE2.dcm"), Nothing, 0)
         ' We know that the SOP instance UID for the dataset IMAGE2.dcm is
         ' 1.2.840.114257.3.6.5.5.18900282
         dicomDataset.AddLayerImageReference(firstGraphicAnnSQItem, "1.2.840.114257.3.6.5.5.18900282")
         Debug.Assert(dicomDataset.GetLayerImageReferenceCount(firstGraphicAnnSQItem) = 1)
         Debug.Assert(dicomDataset.GetLayerImageReferenceSOPInstance(firstGraphicAnnSQItem, 0) = "1.2.840.114257.3.6.5.5.18900282")
         Debug.Assert(Not dicomDataset.GetLayerImageReferenceElement(firstGraphicAnnSQItem, "1.2.840.114257.3.6.5.5.18900282") Is Nothing)

         '//////This section is for DICOM Graphic Object///////////////////


         Dim graphicObject As DicomGraphicObject = New DicomGraphicObject()
         Dim annotationPoints As DicomAnnotationPoint() = New DicomAnnotationPoint(4) {}
         annotationPoints(0).X = 480.0F
         annotationPoints(0).Y = 226.0F
         annotationPoints(1).X = 480.0F
         annotationPoints(1).Y = 418.0F
         annotationPoints(2).X = 488.0F
         annotationPoints(2).Y = 418.0F
         annotationPoints(3).X = 488.0F
         annotationPoints(3).Y = 226.0F
         annotationPoints(4).X = 480.0F
         annotationPoints(4).Y = 226.0F
         graphicObject.SetAnnotationPoints(annotationPoints, 5)
         graphicObject.Filled = False
         graphicObject.Type = DicomAnnotationType.Polyline
         graphicObject.LayerName = "Layer1"
         graphicObject.Units = DicomAnnotationUnitsRelativityType.Pixel
         Debug.Assert(graphicObject.AnnotationPointCount = 5)

         'Start Clean!
         'Can also call RemoveGraphicObject to remove individual objects
         dicomDataset.RemoveAllGraphicObjects(firstGraphicAnnSQItem)

         dicomDataset.CreateGraphicObject(firstGraphicAnnSQItem, graphicObject, False)
         Debug.Assert(dicomDataset.GetGraphicObjectCount(firstGraphicAnnSQItem) = 1)
         Debug.Assert(Not dicomDataset.GetGraphicObjElement(firstGraphicAnnSQItem, 0) Is Nothing)
         Debug.Assert(dicomDataset.GetGraphicObjPointCount(firstGraphicAnnSQItem, 0) = 5)

         Dim graphicObject1 As DicomGraphicObject = dicomDataset.GetGraphicObjectInformation(firstGraphicAnnSQItem, 0)
         Debug.Assert(Not graphicObject1 Is Nothing)
         graphicObject1.Filled = True
         dicomDataset.SetGraphicObjectInformation(firstGraphicAnnSQItem, 0, graphicObject1)


         '//////This section is for DICOM Text Object///////////////////
         'Can also call RemoveTextObject to remove individual objects
         dicomDataset.RemoveAllTextObjects(firstGraphicAnnSQItem)

         Dim textObject As DicomTextObject = New DicomTextObject()
         textObject.AnchorPointVisible = True
         textObject.AnchorPoint = New DicomAnnotationPoint(1.1F, 1.1F)
         textObject.BRHCorner = New DicomAnnotationPoint(521.251343F, 328.190216F)
         textObject.TLHCorner = New DicomAnnotationPoint(466.642242F, 300.443268F)
         textObject.TextValue = "Text Value 1"
         textObject.AnchorPointUnits = DicomAnnotationUnitsRelativityType.Pixel
         textObject.BoundingBoxUnits = DicomAnnotationUnitsRelativityType.Pixel
         textObject.LayerName = "Layer1"
         textObject.TextJustification = TextAnnotationJustificationType.Left

         dicomDataset.CreateTextObject(firstGraphicAnnSQItem, textObject, False)
         Debug.Assert(dicomDataset.GetTextObjectCount(firstGraphicAnnSQItem) = 1)
         Debug.Assert(Not dicomDataset.GetTextObjElement(firstGraphicAnnSQItem, 0) Is Nothing)

         Dim textObject1 As DicomTextObject = dicomDataset.GetTextObjectInformation(firstGraphicAnnSQItem, 0)
         Debug.Assert(Not textObject1 Is Nothing)
         textObject1.TextJustification = TextAnnotationJustificationType.Right
         dicomDataset.SetTextObjectInformation(firstGraphicAnnSQItem, 0, textObject1)


         dicomDataset.Save(Path.Combine(LEAD_VARS.ImagesDir, "GraphicAnnSequence.dcm"), DicomDataSetSaveFlags.None)
      End Using

      DicomEngine.Shutdown()
   End Sub


Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class