<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: Check part description fx linked or not in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/check-part-description-fx-linked-or-not/m-p/9392038#M107154</link>
    <description>&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&amp;nbsp; &amp;nbsp;Can anybody correct this code to open the partDocument. If "=" sign not there.&lt;/P&gt;&lt;LI-CODE lang="markup"&gt;Option Explicit

Sub DescriptCheck()

    Dim oApp As Application
    Set oApp = ThisApplication
    
    Dim oAsmDoc As AssemblyDocument
    Set oAsmDoc = oApp.ActiveDocument
    
    Dim oPartDoc As PartDocument
    
    Dim oProp As Property
    
    For Each oPartDoc In oAsmDoc.AllReferencedDocuments
    Set oProp = oPartDoc.PropertySets.Item("Design Tracking Properties").Item("Description")
    
    Dim oVal As Variant
    
    oVal = oProp.Expression
    
    MsgBox (oVal)
    
    If Left(oVal, 1) = "=" Then
    MsgBox ("yes")
    
    Else
    
    'oPartDoc.Open I need this line to open the doc
    
    End If
    
    
    Next

    
End Sub&lt;/LI-CODE&gt;</description>
    <pubDate>Sun, 22 Mar 2020 11:40:10 GMT</pubDate>
    <dc:creator>k14348</dc:creator>
    <dc:date>2020-03-22T11:40:10Z</dc:date>
    <item>
      <title>Check part description fx linked or not</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/check-part-description-fx-linked-or-not/m-p/9391233#M107144</link>
      <description>&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&amp;nbsp; &amp;nbsp; I have a main assembly with 10 No. of parts. I would like to check all 10 Parts description starts with = or not. If Description not starts with = sign then i need that file name list.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Thanks,&lt;/P&gt;&lt;P&gt;Karth&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Sat, 21 Mar 2020 15:04:08 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/check-part-description-fx-linked-or-not/m-p/9391233#M107144</guid>
      <dc:creator>k14348</dc:creator>
      <dc:date>2020-03-21T15:04:08Z</dc:date>
    </item>
    <item>
      <title>Re: Check part description fx linked or not</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/check-part-description-fx-linked-or-not/m-p/9391579#M107147</link>
      <description>&lt;P&gt;you can try this.&lt;/P&gt;&lt;LI-CODE lang="markup"&gt;Dim notLinkedList As String = ""
Dim AssDoc As AssemblyDocument = ThisDoc.Document

For Each doc As Document In AssDoc.ReferencedDocuments
    Dim oPropSets As PropertySets = doc.PropertySets
    Dim oPropSet As PropertySet = oPropSets.Item("Design Tracking Properties")
    Dim oPartNumiProp As Inventor.Property = oPropSet.Item("Description")
    If (oPartNumiProp.Expression = Nothing) Then
        notLinkedList = notLinkedList + doc.FullFileName + System.Environment.NewLine
        Continue For
    End If
    If (oPartNumiProp.Expression.StartsWith("=") = False) Then
		notLinkedList = notLinkedList + doc.FullFileName + System.Environment.NewLine
    End If
Next

MsgBox(notLinkedList)&lt;/LI-CODE&gt;</description>
      <pubDate>Sat, 21 Mar 2020 21:36:26 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/check-part-description-fx-linked-or-not/m-p/9391579#M107147</guid>
      <dc:creator>JelteDeJong</dc:creator>
      <dc:date>2020-03-21T21:36:26Z</dc:date>
    </item>
    <item>
      <title>Re: Check part description fx linked or not</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/check-part-description-fx-linked-or-not/m-p/9392022#M107152</link>
      <description>&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&amp;nbsp; &amp;nbsp;Thanks for your reply. As i know only vba i expect this coding in vba. Thanks for understanding.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Regards,&lt;/P&gt;&lt;P&gt;Karth&lt;/P&gt;</description>
      <pubDate>Sun, 22 Mar 2020 11:02:50 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/check-part-description-fx-linked-or-not/m-p/9392022#M107152</guid>
      <dc:creator>k14348</dc:creator>
      <dc:date>2020-03-22T11:02:50Z</dc:date>
    </item>
    <item>
      <title>Re: Check part description fx linked or not</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/check-part-description-fx-linked-or-not/m-p/9392038#M107154</link>
      <description>&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&amp;nbsp; &amp;nbsp;Can anybody correct this code to open the partDocument. If "=" sign not there.&lt;/P&gt;&lt;LI-CODE lang="markup"&gt;Option Explicit

Sub DescriptCheck()

    Dim oApp As Application
    Set oApp = ThisApplication
    
    Dim oAsmDoc As AssemblyDocument
    Set oAsmDoc = oApp.ActiveDocument
    
    Dim oPartDoc As PartDocument
    
    Dim oProp As Property
    
    For Each oPartDoc In oAsmDoc.AllReferencedDocuments
    Set oProp = oPartDoc.PropertySets.Item("Design Tracking Properties").Item("Description")
    
    Dim oVal As Variant
    
    oVal = oProp.Expression
    
    MsgBox (oVal)
    
    If Left(oVal, 1) = "=" Then
    MsgBox ("yes")
    
    Else
    
    'oPartDoc.Open I need this line to open the doc
    
    End If
    
    
    Next

    
End Sub&lt;/LI-CODE&gt;</description>
      <pubDate>Sun, 22 Mar 2020 11:40:10 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/check-part-description-fx-linked-or-not/m-p/9392038#M107154</guid>
      <dc:creator>k14348</dc:creator>
      <dc:date>2020-03-22T11:40:10Z</dc:date>
    </item>
    <item>
      <title>Re: Check part description fx linked or not</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/check-part-description-fx-linked-or-not/m-p/9396942#M107239</link>
      <description>&lt;P&gt;I think the line you're looking for is:&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;LI-CODE lang="markup"&gt;Call ThisApplication.Documents.Open(oPartDoc.FullFileName, True)
'Or in your case
Call oApp.Documents.Open(oPartDoc.FullFileName, True)&lt;/LI-CODE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I hope this helps.&lt;BR /&gt;If this solves your problem, or answers your questions, please click 'Accept As Solution".&lt;BR /&gt;Or, if this helps you reach your goal, please click 'LIKES" &lt;img class="lia-deferred-image lia-image-emoji" src="https://forums.autodesk.com/html/@7401B55A0A518861312A0F851CD29320/emoticons/1f44d.png" alt=":thumbs_up:" title=":thumbs_up:" /&gt;.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Also, if you're interested, here are a few of the 'Ideas' I'd like to get implemented.&lt;BR /&gt;If you agree with any of them, please vote for them.&lt;/P&gt;&lt;UL&gt;&lt;LI&gt;Add more capabilities to the 'Customize' dialog box (exe. Add Tab &amp;amp; Add Panel) &lt;A href="https://forums.autodesk.com/t5/inventor-ideas/add-more-capabilities-to-the-customize-dialog-box-exe-add-tab/idi-p/9371747/" target="_blank" rel="noopener"&gt;Click Here &lt;/A&gt;&lt;/LI&gt;&lt;LI&gt;MessageBox, InputBox, and InputListBox Size &amp;amp; Format Options &lt;A href="https://forums.autodesk.com/t5/inventor-ideas/text-format-amp-size-options-messagebox-inputbox-inputlistbox/idi-p/9169817/" target="_blank" rel="noopener"&gt;Click Here &lt;/A&gt;&lt;/LI&gt;&lt;LI&gt;Constrain &amp;amp; Dimension Images In Assembly Sketches &amp;amp; Drawing Sketches (TitleBlocks &amp;amp; SketchedSymbols) &lt;A href="https://forums.autodesk.com/t5/inventor-ideas/we-need-the-ability-to-fully-constrain-amp-dimension-images/idi-p/9299088/" target=" Blank"&gt;Click Here &lt;/A&gt;&lt;/LI&gt;&lt;LI&gt;Save Section View Status In DesignViewRepresentation (So It Can Be Used In The Drawing) &lt;A href="https://forums.autodesk.com/t5/inventor-ideas/save-section-view-status-in-designviewrepresentation-so-is/idi-p/9270962/" target=" Blank"&gt;Click Here &lt;/A&gt;&lt;/LI&gt;&lt;LI&gt;Add SolidBodies Folder In iLogic Rule Editor Model Tab &lt;A href="https://forums.autodesk.com/t5/inventor-ideas/ilogic-rule-editor-gt-model-tab-add-a-solid-bodies-folder-for/idi-p/9270898/" target=" Blank"&gt;Click Here &lt;/A&gt;&lt;/LI&gt;&lt;LI&gt;Convert All Views To Raster Before Autosave Stores To 'OldVersions' Folder &lt;A href="https://forums.autodesk.com/t5/inventor-ideas/drawings-in-oldversions-set-all-views-to-raster-before-autosave/idi-p/9185521/" target=" Blank"&gt;Click Here &lt;/A&gt;&lt;/LI&gt;&lt;LI&gt;SetDesignViewRepresentation - Fix limitations for DrawingView of a Part &lt;A href="https://forums.autodesk.com/t5/inventor-ideas/setdesignviewrepresentation-fix-limitations-for-drawingview-of-a/idi-p/9369920/" target=" Blank"&gt;Click Here &lt;/A&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;A href="http://help.autodesk.com/view/INVNTOR/2020/ENU/" target="_blank" rel="noopener"&gt;Inventor 2020 Help &lt;/A&gt;| &lt;A href="https://forums.autodesk.com/t5/inventor-forum/bd-p/78/" target="_blank" rel="noopener"&gt;Inventor Forum &lt;/A&gt;| &lt;A href="https://forums.autodesk.com/t5/inventor-customization/bd-p/120/" target="_blank" rel="noopener"&gt;Inventor Customization Forum &lt;/A&gt;| &lt;A href="https://forums.autodesk.com/t5/inventor-ideas/idb-p/v1232/" target="_blank" rel="noopener"&gt;Inventor Ideas Forum &lt;/A&gt;&lt;/P&gt;</description>
      <pubDate>Tue, 24 Mar 2020 15:39:55 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/check-part-description-fx-linked-or-not/m-p/9396942#M107239</guid>
      <dc:creator>WCrihfield</dc:creator>
      <dc:date>2020-03-24T15:39:55Z</dc:date>
    </item>
  </channel>
</rss>

