Костыли для создания примечаний на чертеже читаемых надстройкой ЕСКД
« предыдущая тема следующая тема »
Страницы: [1]   Вниз

Автор Тема: Костыли для создания примечаний на чертеже читаемых надстройкой ЕСКД  (Прочитано 1958 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн anton.gorschnevАвтор темы

  • ADN OPEN
  • **
  • Сообщений: 53
  • Карма: 3
Костыли для создания примечаний на чертеже читаемых надстройкой ЕСКД
« : 17-02-2020, 16:58:33 »
В виду отсутствия времени, как всегда, не удается написать свой аналог надстройки ЕСКД и чтобы сильно не шокировать пользователя отсутствием привычного функционала были созданы ниже представленные костыли. Возможно кто то уже занимался данной тематикой и успел создать какой нибудь монуал (что за что отвичае и т.д.)  прошу поделиться.

Выноска сварки
Код - vb.net [Выбрать]
  1.  ''' <summary>
  2.     ''' Выноска обозначения сварного шва
  3.     ''' </summary>
  4.     ''' <param name="k"></param>
  5.     ''' <param name="oDrawDoc"></param>
  6.     ''' <param name="oLeaderPoints"></param>
  7.     ''' <param name="sText1"></param>
  8.     Public Sub WeldCallout(k As Integer, oDrawDoc As DrawingDocument, oLeaderPoints As ObjectCollection, sText1 As String)
  9.  
  10.         Dim oTG As TransientGeometry
  11.         oTG = g_inventorApplication.TransientGeometry
  12.  
  13.         Dim oSheet As Sheet
  14.         oSheet = oDrawDoc.ActiveSheet
  15.  
  16.         Dim oSketchSymDef As SketchedSymbolDefinition
  17.         Dim oSketch As DrawingSketch
  18.         oSketchSymDef = oDrawDoc.SketchedSymbolDefinitions.Add("Обозначение сварки:" & k)
  19.  
  20.         Call oSketchSymDef.Edit(oSketch)
  21.  
  22.  
  23.         Dim sText As String
  24.         sText = "<StyleOverride FontSize='0,1'>" & sText1 & "</StyleOverride>"
  25.  
  26.  
  27.  
  28.         Dim oTextBox As TextBox
  29.         oTextBox = oSketch.TextBoxes.AddFitted(oTG.CreatePoint2d(0.02, 0.04), sText)
  30.         oTextBox.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextLower
  31.         Dim oSketchLine As SketchLine
  32.         oSketchLine = oSketch.SketchLines.AddByTwoPoints(oTG.CreatePoint2d(0, 0), oTG.CreatePoint2d(oTextBox.RangeBox.MaxPoint.X, 0))
  33.         oSketchLine.LineWeight = 0.025
  34.         oSketchLine.StartSketchPoint.InsertionPoint = True
  35.         Call oSketchSymDef.ExitEdit(True)
  36.  
  37.  
  38.         Dim oSketchedSymbol As SketchedSymbol
  39.  
  40.         oSketchedSymbol = oSheet.SketchedSymbols.AddWithLeader(oSketchSymDef, oLeaderPoints, , 3.5)
  41.  
  42.  
  43.             Dim oAttributeSet As AttributeSet
  44.         Try
  45.             oAttributeSet = oSketchedSymbol.AttributeSets.Add("com_autodesk_MSD_AIS_Gost")
  46.         Catch ex As Exception
  47.             oAttributeSet = oSketchedSymbol.AttributeSets.Item("com_autodesk_MSD_AIS_Gost")
  48.         End Try
  49.  
  50.         Dim oAttr As Inventor.Attribute
  51.         oAttr = oAttributeSet.Add("Symbol_Type", ValueTypeEnum.kStringType, "Welding_Symbol")
  52.         oAttr = oAttributeSet.Add("Version", ValueTypeEnum.kIntegerType, 3)
  53.         oAttr = oAttributeSet.Add("WeldAnnotation", ValueTypeEnum.kStringType, "")
  54.         oAttr = oAttributeSet.Add("BackSideWeldSymbols", ValueTypeEnum.kStringType, "")
  55.         oAttr = oAttributeSet.Add("EditBoxStringWithTTItem", ValueTypeEnum.kStringType, "")
  56.         oAttr = oAttributeSet.Add("Number", ValueTypeEnum.kStringType, sText1)
  57.         oAttr = oAttributeSet.Add("Count", ValueTypeEnum.kStringType, "")
  58.         oAttr = oAttributeSet.Add("Control", ValueTypeEnum.kStringType, "")
  59.         oAttr = oAttributeSet.Add("Mount", ValueTypeEnum.kIntegerType, 0)
  60.         oAttr = oAttributeSet.Add("Close", ValueTypeEnum.kIntegerType, 0)
  61.         oAttr = oAttributeSet.Add("BackSide", ValueTypeEnum.kIntegerType, 0)
  62.         oAttr = oAttributeSet.Add("Flipped", ValueTypeEnum.kIntegerType, 0)
  63.         oAttr = oAttributeSet.Add("Offset", ValueTypeEnum.kIntegerType, 0)
  64.         oAttr = oAttributeSet.Add("TTItem", ValueTypeEnum.kStringType, "")
  65.         oAttr = oAttributeSet.Add("TTItemTextPos", ValueTypeEnum.kIntegerType, -1)
  66.         oAttr = oAttributeSet.Add("UpSurfaceTexture", ValueTypeEnum.kStringType, "")
  67.         oAttr = oAttributeSet.Add("DownSurfaceTexture", ValueTypeEnum.kStringType, "")
  68.         oAttr = oAttributeSet.Add("IsShortForm", ValueTypeEnum.kIntegerType, 0)
  69.         oAttr = oAttributeSet.Add("IsIndexOnHorizontalLine", ValueTypeEnum.kIntegerType, 0)
  70.         oAttr = oAttributeSet.Add("StacksInfoXML", ValueTypeEnum.kStringType, "")
  71.         oAttr = oAttributeSet.Add("StackPosition", ValueTypeEnum.kIntegerType, 25603)
  72.         oAttr = oAttributeSet.Add("SaveVersion", ValueTypeEnum.kIntegerType, 1)
  73.  
  74.         Dim oLeader As Leader
  75.         oLeader = oSketchedSymbol.Leader
  76.         oLeader.ArrowheadType = ArrowheadTypeEnum.kHalf2FilledArrowheadType
  77.  
  78.         Dim oNativeBrowserNodeDef As NativeBrowserNodeDefinition
  79.         Dim oTopBrowserNode As BrowserNode
  80.         Dim oNode As BrowserNode
  81.  
  82.         oNativeBrowserNodeDef = oDrawDoc.BrowserPanes.GetNativeBrowserNodeDefinition(oSketchSymDef)
  83.         oTopBrowserNode = oDrawDoc.BrowserPanes.ActivePane.TopNode
  84.         oNode = oTopBrowserNode.AllReferencedNodes(oNativeBrowserNodeDef).Item(1)
  85.         oNode.Visible = False
  86.  
  87.         oNativeBrowserNodeDef = oDrawDoc.BrowserPanes.GetNativeBrowserNodeDefinition(oSketchedSymbol)
  88.         oTopBrowserNode = oDrawDoc.BrowserPanes.ActivePane.TopNode
  89.         oNode = oTopBrowserNode.AllReferencedNodes(oNativeBrowserNodeDef).Item(1)
  90.         oNode.Visible = False
  91.         '
  92.     End Sub
  93.  

Тех требования

Код - vb.net [Выбрать]
  1.  
  2.     ''' <summary>
  3.     ''' Процедура добовляющая ТТ на чертеж
  4.     ''' </summary>
  5.     ''' <param name="oSheet">
  6.     ''' Лист на которой надо добавить ТТ (должен быть всегда первым)
  7.     ''' </param>
  8.     ''' <param name="t">
  9.     ''' Массив пунктов техтребований
  10.     ''' </param>
  11.     ''' <param name="maxLines">
  12.     ''' Максимальное количество строк
  13.     ''' </param>
  14.     Public Sub TexTr(oSheet As Sheet, t() As String, Optional maxLines As Integer = 20)
  15.  
  16.         Dim t1, t2, a As String
  17.  
  18.         For i = 0 To UBound(t)
  19.             a = GenGuid()
  20.             t1 = t1 & "\PGSTSGNUM" & LCase(Left(Right(a, Len(a) - 1), Len(a) - 2)) & t(i)
  21.             t2 = "<TRItem uuid='" & a & "' index='" & i + 1 & "'/>" & t2
  22.         Next i
  23.         t2 = "<TRItemInfo>" & t2 & "</TRItemInfo>"
  24.  
  25.         Dim x, y As Double
  26.         x = oSheet.Width - 18.9
  27.         y = 7
  28.  
  29.         Dim oSketch As DrawingSketch
  30.         oSketch = oSheet.Sketches.Add
  31.         Try
  32.             oSketch.Name = "#Technical Requirements"
  33.         Catch ex As Exception
  34.             oSheet.Sketches.Item("#Technical Requirements").Delete()
  35.             oSketch.Name = "#Technical Requirements"
  36.         End Try
  37.  
  38.         Dim oAttributeSet As AttributeSet
  39.         oAttributeSet = oSketch.AttributeSets.Add("com_autodesk_MSD_AIS_Gost")
  40.         Dim oAttr As Inventor.Attribute
  41.         oAttr = oAttributeSet.Add("Symbol_Type", ValueTypeEnum.kStringType, "Tech_Requirements")
  42.         oAttr = oAttributeSet.Add("Version", ValueTypeEnum.kIntegerType, 1)
  43.         oAttr = oAttributeSet.Add("CONTENT", ValueTypeEnum.kStringType, t1)
  44.         oAttr = oAttributeSet.Add("PARAMS", ValueTypeEnum.kStringType, "<TRParams isDot='1' horzAlign='0' textH='3,5 мм' textW='175 мм' lineSpace='1,5 H' colW='4 H' itemSpace='0' rightOffset='1 мм' topOffset='15 мм' maxLines='" _
  45.                                   & maxLines & "' rightOffset2='15 мм' topOffset2='15 мм' secondmaxLines='25' woLines='1'/>")
  46.         oAttr = oAttributeSet.Add("REF", ValueTypeEnum.kStringType, "")
  47.         oAttr = oAttributeSet.Add("Tech_Require_Item_Map", ValueTypeEnum.kStringType, t2)
  48.         oAttr = oAttributeSet.Add("PosX", ValueTypeEnum.kDoubleType, x)
  49.         oAttr = oAttributeSet.Add("PosY", ValueTypeEnum.kDoubleType, y)
  50.  
  51.         Dim oTG As TransientGeometry
  52.         oTG = g_inventorApplication.TransientGeometry
  53.  
  54.         Dim oTextBox As TextBox
  55.         Dim sText1 As String
  56.  
  57.         oSketch.Edit()
  58.  
  59.         Dim k As Integer
  60.         k = 65
  61.  
  62.         Dim xyi As Integer = 1 'номерация строк
  63.         For i = 0 To UBound(t)
  64.             If Len(t(i)) > k Then
  65.  
  66.                 Dim oStr As String
  67.                 Dim oStr1 As String
  68.                 Dim k1 As Integer
  69.                 Dim j As Integer
  70.                 j = 0
  71.                 oStr = t(i)
  72.                 While Len(oStr) > k
  73.                     oStr1 = Left(oStr, k)
  74.                     k1 = InStrRev(oStr1, " ")
  75.                     oStr1 = Left(oStr, k1)
  76.                     oStr = Right(oStr, Len(oStr) - k1)
  77.                     xyi += 1
  78.                 End While
  79.  
  80.                 If Len(oStr) > 0 Then
  81.                     xyi += 1
  82.                 End If
  83.             Else
  84.                 xyi += 1
  85.             End If
  86.         Next i
  87.  
  88.         Dim xyi1 As Integer = 1 'нумерация записываемых строк
  89.         Dim n As Integer = Math.Min(xyi, maxLines)
  90.         Dim Ck As Boolean = False
  91.  
  92.         For i = 0 To UBound(t)
  93.  
  94.             If Len(t(i)) > k Then
  95.  
  96.                 Dim oStr As String
  97.                 Dim oStr1 As String
  98.                 Dim k1 As Integer
  99.                 Dim j As Integer
  100.                 j = 0
  101.                 Dim s() As String
  102.                 oStr = t(i)
  103.                 While Len(oStr) > k
  104.                     oStr1 = Left(oStr, k)
  105.                     k1 = InStrRev(oStr1, " ")
  106.                     oStr1 = Left(oStr, k1)
  107.                     oStr = Right(oStr, Len(oStr) - k1)
  108.                     ReDim Preserve s(j)
  109.                     s(j) = oStr1
  110.                     j = j + 1
  111.                 End While
  112.  
  113.                 If Len(oStr) > 0 Then
  114.                     ReDim Preserve s(j)
  115.                     s(j) = oStr
  116.                 End If
  117.  
  118.                 For j = 0 To UBound(s)
  119.                     sText1 = s(j)
  120.  
  121.                     oTextBox = oSketch.TextBoxes.AddFitted(oTG.CreatePoint2d(x + 1, y + 0.515 * (n - xyi1)), sText1)
  122.                     oTextBox.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextLower
  123.                     If j = 0 Then
  124.                         oTextBox = oSketch.TextBoxes.AddFitted(oTG.CreatePoint2d(x, y + 0.515 * (n - xyi1)), i + 1 & ".")
  125.                         oTextBox.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextLower
  126.                     End If
  127.                     xyi1 += 1
  128.                     If xyi1 = maxLines + 1 AndAlso Ck = False Then
  129.                         y = 0.7
  130.                         x = x - 18.9
  131.                         n = xyi - maxLines
  132.                         xyi1 = 1
  133.                         Ck = True
  134.                     End If
  135.                 Next j
  136.             Else
  137.                 oTextBox = oSketch.TextBoxes.AddFitted(oTG.CreatePoint2d(x, y + 0.515 * (n - xyi1)), i + 1 & ".")
  138.                 oTextBox.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextLower
  139.                 oTextBox = oSketch.TextBoxes.AddFitted(oTG.CreatePoint2d(x + 1, y + 0.515 * (n - xyi1)), t(i))
  140.                 oTextBox.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextLower
  141.                 xyi1 += 1
  142.                 If xyi1 = maxLines + 1 AndAlso Ck = False Then
  143.                     y = 0.7
  144.                     x = x - 18.9
  145.                     n = xyi - maxLines
  146.                     xyi1 = 1
  147.                     Ck = True
  148.                 End If
  149.             End If
  150.  
  151.         Next i
  152.  
  153.         oSketch.ExitEdit()
  154.  
  155.     End Sub
  156.  
  157.     ''' <summary>
  158.     ''' функция формирования гуида
  159.     ''' </summary>
  160.     ''' <returns></returns>
  161.     Function GenGuid() As String
  162.         Dim TypeLib As Object
  163.         Dim guid As String
  164.         TypeLib = CreateObject("Scriptlet.TypeLib")
  165.         guid = Left$(TypeLib.guid, 38)
  166.         TypeLib = Nothing
  167.         GenGuid = guid
  168.     End Function
  169.  

Записан

Оффлайн anton.gorschnevАвтор темы

  • ADN OPEN
  • **
  • Сообщений: 53
  • Карма: 3
Re: Костыли для создания примечаний на чертеже читаемых надстройкой ЕСКД
« Ответ #1 : 19-02-2020, 15:08:24 »
Не указанная шероховатость
Код - vb.net [Выбрать]
  1. ''' <summary>
  2.     ''' Неуказанная шероховатость
  3.     ''' </summary>
  4.     ''' <param name="k"></param>
  5.     ''' <param name="oDrawDoc"></param>
  6.     ''' <param name="Version"></param>
  7.     ''' <param name="Type"></param>
  8.     ''' <param name="ST1"></param>
  9.     ''' <param name="ST2"></param>
  10.     ''' <param name="ST3"></param>
  11.     ''' <param name="ST4"></param>
  12.     ''' <param name="BaseLeng"></param>
  13.     ''' <param name="PType"></param>
  14.     ''' <param name="Direction"></param>
  15.     ''' <param name="Polka"></param>
  16.     ''' <param name="Circle"></param>
  17.     ''' <param name="ForceTail"></param>
  18.     ''' <param name="Brackets"></param>
  19.     ''' <param name="STVersion"></param>
  20.     ''' <param name="DialogType"></param>
  21.     ''' <param name="Upturned"></param>
  22.     Public Sub GlobalSurface(k As Integer, oDrawDoc As DrawingDocument, Optional Version As Integer = 0, Optional Type As Integer = 0,
  23.                              Optional ST1 As String = "", Optional ST2 As String = "", Optional ST3 As String = "", Optional ST4 As String = "",
  24.                              Optional BaseLeng As String = "", Optional PType As String = "", Optional Direction As Integer = 0, Optional Polka As Integer = 0,
  25.                              Optional Circle As Integer = 0, Optional ForceTail As Integer = 0, Optional Brackets As Integer = 0, Optional STVersion As Integer = 0,
  26.                              Optional DialogType As Integer = 0, Optional Upturned As Integer = 0)
  27.         Dim BaseLineLength As Double = 0
  28.         Dim UpLineLength As Double = 0
  29.         Dim LineDistance As Double = 0.19
  30.  
  31.         Dim oTG As TransientGeometry
  32.         oTG = g_inventorApplication.TransientGeometry
  33.  
  34.         Dim oSheet As Sheet
  35.         oSheet = oDrawDoc.ActiveSheet
  36.  
  37.         Dim oSketchSymDef As SketchedSymbolDefinition
  38.         Dim oSketch As DrawingSketch
  39.         oSketchSymDef = oDrawDoc.SketchedSymbolDefinitions.Add("Неуказанная шероховатость:" & k)
  40.  
  41.         Call oSketchSymDef.Edit(oSketch)
  42.  
  43.         Dim oSketchLine, oSketchLine1 As SketchLine
  44.         oSketchLine = oSketch.SketchLines.AddByTwoPoints(oTG.CreatePoint2d(0, 0), oTG.CreatePoint2d(-0.1 / Math.Tan(3.14 / 3), 0.1))
  45.         Call oSketch.GeometricConstraints.AddGround(oSketchLine)
  46.         oSketchLine = oSketch.SketchLines.AddByTwoPoints(oSketch.SketchLines.Item(1).StartSketchPoint, oTG.CreatePoint2d(0.21 / Math.Tan(3.14 / 3), 0.21))
  47.         Call oSketch.GeometricConstraints.AddGround(oSketchLine)
  48.  
  49.         Dim oTextBox As TextBox
  50.         Dim sText1 As String
  51.         sText1 = "<StyleOverride FontSize='0,1'>" & ST1 & "</StyleOverride><StyleOverride FontSize='0,13'> (   )</StyleOverride>"
  52.         oTextBox = oSketch.TextBoxes.AddFitted(oTG.CreatePoint2d(0.1251, 0.03), sText1)
  53.         oTextBox.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextLower
  54.         oTextBox.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextLeft
  55.         Dim oBox2d As Box2d
  56.         Dim x As Double
  57.         oBox2d = oTextBox.RangeBox
  58.         x = oBox2d.MaxPoint.X
  59.  
  60.         Select Case Type
  61.             Case 2
  62.                 Call oSketch.SketchCircles.AddByCenterRadius(oTG.CreatePoint2d(0, 0.3497), 0.35 / 2)
  63.         End Select
  64.  
  65.         Select Case Polka
  66.             Case 1
  67.                 oSketchLine = oSketch.SketchLines.AddByTwoPoints(oSketch.SketchLines.Item(2).EndSketchPoint, oTG.CreatePoint2d(x + 0.01, oSketch.SketchLines.Item(2).EndSketchPoint.Geometry.Y))
  68.                 UpLineLength = oSketchLine.Length
  69.         End Select
  70.  
  71.  
  72.         oSketchLine1 = oSketch.SketchLines.AddByTwoPoints(oTG.CreatePoint2d(x - 0.12, 0.03), oTG.CreatePoint2d(x - 0.12 - 0.0667 / Math.Tan(3.14 / 3), 0.0967))
  73.         Call oSketch.GeometricConstraints.AddGround(oSketchLine1)
  74.         oSketchLine = oSketch.SketchLines.AddByTwoPoints(oSketchLine1.StartSketchPoint, oTG.CreatePoint2d(x - 0.12 + 0.1333 / Math.Tan(3.14 / 3), 0.1633))
  75.         Call oSketch.GeometricConstraints.AddGround(oSketchLine)
  76.         Dim oSketchPoint As SketchPoint
  77.         oSketchPoint = oSketch.SketchPoints.Add(oTG.CreatePoint2d(x + 0.11, 0.21 + 0.11))
  78.         oSketchPoint.InsertionPoint = True
  79.  
  80.         For Each oSketchLine In oSketch.SketchLines
  81.             oSketchLine.LineWeight = 0.045
  82.  
  83.         Next
  84.  
  85.         Call oSketchSymDef.ExitEdit(True)
  86.  
  87.  
  88.         Dim oSketchedSymbol As SketchedSymbol
  89.         Select Case oSheet.Orientation
  90.             Case PageOrientationTypeEnum.kLandscapePageOrientation
  91.                 oSketchedSymbol = oSheet.SketchedSymbols.Add(oSketchSymDef, oTG.CreatePoint2d(oSheet.Width - 0.5, oSheet.Height - 0.5), , 5.25)
  92.             Case PageOrientationTypeEnum.kPortraitPageOrientation
  93.                 oSketchedSymbol = oSheet.SketchedSymbols.Add(oSketchSymDef, oTG.CreatePoint2d(oSheet.Width - 0.5, oSheet.Height - 1.9), , 5.25)
  94.         End Select
  95.  
  96.  
  97.         Dim oAttributeSet As AttributeSet
  98.         Try
  99.             oAttributeSet = oSketchedSymbol.AttributeSets.Add("com_autodesk_MSD_AIS_Gost")
  100.         Catch ex As Exception
  101.             oAttributeSet = oSketchedSymbol.AttributeSets.Item("com_autodesk_MSD_AIS_Gost")
  102.         End Try
  103.  
  104.         Dim oAttr As Inventor.Attribute
  105.         oAttr = oAttributeSet.Add("Symbol_Type", ValueTypeEnum.kStringType, "Global_Surface_Texture")
  106.         oAttr = oAttributeSet.Add("Version", ValueTypeEnum.kIntegerType, Version)
  107.         oAttr = oAttributeSet.Add("Type", ValueTypeEnum.kIntegerType, Type)
  108.         oAttr = oAttributeSet.Add("ST1", ValueTypeEnum.kStringType, ST1)
  109.         oAttr = oAttributeSet.Add("ST2", ValueTypeEnum.kStringType, ST2)
  110.         oAttr = oAttributeSet.Add("ST3", ValueTypeEnum.kStringType, ST3)
  111.         oAttr = oAttributeSet.Add("ST4", ValueTypeEnum.kStringType, ST4)
  112.         oAttr = oAttributeSet.Add("BaseLeng", ValueTypeEnum.kStringType, BaseLeng)
  113.         oAttr = oAttributeSet.Add("PType", ValueTypeEnum.kStringType, PType)
  114.         oAttr = oAttributeSet.Add("Direction", ValueTypeEnum.kIntegerType, Direction)
  115.         oAttr = oAttributeSet.Add("Polka", ValueTypeEnum.kIntegerType, Polka)
  116.         oAttr = oAttributeSet.Add("Circle", ValueTypeEnum.kIntegerType, Circle)
  117.         oAttr = oAttributeSet.Add("ForceTail", ValueTypeEnum.kIntegerType, ForceTail)
  118.         oAttr = oAttributeSet.Add("Brackets", ValueTypeEnum.kIntegerType, Brackets)
  119.         oAttr = oAttributeSet.Add("STVersion", ValueTypeEnum.kIntegerType, STVersion)
  120.         oAttr = oAttributeSet.Add("BaseLineLength", ValueTypeEnum.kIntegerType, BaseLineLength)
  121.         oAttr = oAttributeSet.Add("UpLineLength", ValueTypeEnum.kDoubleType, UpLineLength)
  122.         oAttr = oAttributeSet.Add("LineDistance", ValueTypeEnum.kDoubleType, 0.19)
  123.         oAttr = oAttributeSet.Add("DialogType", ValueTypeEnum.kIntegerType, LineDistance)
  124.         oAttr = oAttributeSet.Add("Upturned", ValueTypeEnum.kIntegerType, Upturned)
  125.  
  126.  
  127.         Dim oNativeBrowserNodeDef As NativeBrowserNodeDefinition
  128.         Dim oTopBrowserNode As BrowserNode
  129.         Dim oNode As BrowserNode
  130.  
  131.         oNativeBrowserNodeDef = oDrawDoc.BrowserPanes.GetNativeBrowserNodeDefinition(oSketchSymDef)
  132.         oTopBrowserNode = oDrawDoc.BrowserPanes.ActivePane.TopNode
  133.         oNode = oTopBrowserNode.AllReferencedNodes(oNativeBrowserNodeDef).Item(1)
  134.         oNode.Visible = False
  135.  
  136.         oNativeBrowserNodeDef = oDrawDoc.BrowserPanes.GetNativeBrowserNodeDefinition(oSketchedSymbol)
  137.         oTopBrowserNode = oDrawDoc.BrowserPanes.ActivePane.TopNode
  138.         oNode = oTopBrowserNode.AllReferencedNodes(oNativeBrowserNodeDef).Item(1)
  139.         oNode.Visible = False
  140.         '
  141.     End Sub
  142.  
Записан
Страницы: [1]   Вверх
« предыдущая тема следующая тема »