0 Replies Latest reply on Sep 15, 2009 6:29 AM by chris_czernel

    HideByAttribute - CAMCAD Automation

    chris_czernel

      CAMCAD offers options to color components by attribute - but what if you want something hidden from view, and not just colored? There is a menu command View > Hide Data, which can either hide "top level" items or remove hiding, but this does not allow a user to specify what is to be hidden and only scratches the surface of the hide capabilities of CAMCAD.

       

      This small Visual Basic 6 utility uses the CAMCAD HideData API in the useful context of hiding based on a match to an attribute keyword & value.

       

      ScreenHunter_01 Sep. 15 09.13.gif

       

      The code is very short and should be easy to incorporate this concept into more elaborate scripts. The code is copied below and the full project is in the zip file.

      Thanks

      Chris

       

       

       

       

      Public objCAMCAD As CAMCAD.Application
      Option Explicit

       

      Private Sub cmdHide_Click()

      Dim x As Integer
      Dim y As Integer
      Dim lPosition As Long
      Dim bOnOff As Boolean
      Dim strName As String
      Dim intNumber As Integer, intMirror As Integer, intType As Integer, intGeomNum As Integer
      Dim sglScale As Single, sglx As Single, sglY As Single, sglAngle As Single
      Dim placementArray As Variant
      Dim tempArray As Variant
      Dim bVisible As Boolean

       

          ' make sure values are set in the text boxes
          If Text1.Text = "Attribute Name" Or Text2.Text = "Attribute Value" Then
              MsgBox "Please enter an attribute name and value to hide or show."
              Exit Sub
          End If
         
          ' get the active file position number
          objCAMCAD.GetActiveFile lPosition
          ' now get data for this active file, to get the intGeomNum geometry number (needed later for the hide)
          objCAMCAD.GetFile2 lPosition, strName, intNumber, bOnOff, sglx, sglY, sglScale, sglAngle, intMirror, intType, intGeomNum
         
          ' use the GetPlacementData2 function as it returns both component data positions as well as attributes in PlacementArray
          objCAMCAD.GetPlacementData2 lPosition, 3, placementArray
          ' loop through the placement array, parse it, and look for the attribute name and value
          For x = 0 To UBound(placementArray)
             tempArray = Split(placementArray(x), Chr(5))
             For y = 0 To UBound(tempArray)
                  If tempArray(y) = Text1.Text Then
                      If tempArray(y + 1) = Text2.Text Then ' this means the attribute and value were found in the data line, so take action on this component
                      ' do this
                              If optHide(1).Value = True Then ' setup a boolean to store whether the option is set to hide or show
                              bVisible = False
                              Else
                              bVisible = True
                              End If
                              ' now hide or show the part!
                              objCAMCAD.HideData intGeomNum, tempArray(11), bVisible
                              Exit For
                      End If
                  End If
             Next y
          Next x
         ' tell CAMCAD to redraw
         objCAMCAD.Redraw
         
         
      End Sub

       

      Private Sub Form_Load()
      Set objCAMCAD = New CAMCAD.Application

       

      End Sub