<?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 Recovery drawing message in VBA Forum</title>
    <link>https://forums.autodesk.com/t5/vba-forum/recovery-drawing-message/m-p/7470628#M7400</link>
    <description>&lt;P&gt;Hello to all,&lt;/P&gt;
&lt;P&gt;&lt;EM&gt;&lt;STRONG&gt;According to my previous topic: &lt;/STRONG&gt;&lt;A href="https://forums.autodesk.com/t5/visual-basic-customization/rename-a-block-amp-purge-the-drawing/m-p/7425386#M100629" target="_blank"&gt;https://forums.autodesk.com/t5/visual-basic-customization/rename-a-block-amp-purge-the-drawing/m-p/7425386#M100629&lt;/A&gt;&lt;/EM&gt;&lt;/P&gt;
&lt;P&gt;I have made an application which renames block name in the drawing, then make purge and save the drawing.&lt;/P&gt;
&lt;P&gt;The problem happens when I try to open the drawing after modification. I am getting the error from the image. I have tested the same application on few other computers and there is no message after opening a drawing. The message is just on my computer.&lt;/P&gt;
&lt;P&gt;Do I have something different in AutoCAD settings?&lt;/P&gt;
&lt;P&gt;Can you tell me how to avoid a problem of showing the message?&lt;/P&gt;
&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="recoverz.PNG" style="width: 356px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/414509iAF7AB71A9A02EC1E/image-size/large?v=v2&amp;amp;px=999" role="button" title="recoverz.PNG" alt="recoverz.PNG" /&gt;&lt;/span&gt;&lt;/P&gt;
&lt;P&gt;Here is a piece of code:&lt;/P&gt;
&lt;PRE&gt;                For Each objBlock In acDoc.Blocks
                    If objBlock.Name = txtBlockToRename.Text Then
                        objBlock.Name = txtNewBlockName.Text
                        Exit For
                    End If
                Next

                With acDoc
                    .PurgeAll()
                    .Save()
                    .Close()
                End With&lt;/PRE&gt;
&lt;P&gt;Best regards,&lt;/P&gt;
&lt;P&gt;Danijel&lt;/P&gt;</description>
    <pubDate>Wed, 18 Oct 2017 13:00:01 GMT</pubDate>
    <dc:creator>danijel.radenkovic</dc:creator>
    <dc:date>2017-10-18T13:00:01Z</dc:date>
    <item>
      <title>Recovery drawing message</title>
      <link>https://forums.autodesk.com/t5/vba-forum/recovery-drawing-message/m-p/7470628#M7400</link>
      <description>&lt;P&gt;Hello to all,&lt;/P&gt;
&lt;P&gt;&lt;EM&gt;&lt;STRONG&gt;According to my previous topic: &lt;/STRONG&gt;&lt;A href="https://forums.autodesk.com/t5/visual-basic-customization/rename-a-block-amp-purge-the-drawing/m-p/7425386#M100629" target="_blank"&gt;https://forums.autodesk.com/t5/visual-basic-customization/rename-a-block-amp-purge-the-drawing/m-p/7425386#M100629&lt;/A&gt;&lt;/EM&gt;&lt;/P&gt;
&lt;P&gt;I have made an application which renames block name in the drawing, then make purge and save the drawing.&lt;/P&gt;
&lt;P&gt;The problem happens when I try to open the drawing after modification. I am getting the error from the image. I have tested the same application on few other computers and there is no message after opening a drawing. The message is just on my computer.&lt;/P&gt;
&lt;P&gt;Do I have something different in AutoCAD settings?&lt;/P&gt;
&lt;P&gt;Can you tell me how to avoid a problem of showing the message?&lt;/P&gt;
&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="recoverz.PNG" style="width: 356px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/414509iAF7AB71A9A02EC1E/image-size/large?v=v2&amp;amp;px=999" role="button" title="recoverz.PNG" alt="recoverz.PNG" /&gt;&lt;/span&gt;&lt;/P&gt;
&lt;P&gt;Here is a piece of code:&lt;/P&gt;
&lt;PRE&gt;                For Each objBlock In acDoc.Blocks
                    If objBlock.Name = txtBlockToRename.Text Then
                        objBlock.Name = txtNewBlockName.Text
                        Exit For
                    End If
                Next

                With acDoc
                    .PurgeAll()
                    .Save()
                    .Close()
                End With&lt;/PRE&gt;
&lt;P&gt;Best regards,&lt;/P&gt;
&lt;P&gt;Danijel&lt;/P&gt;</description>
      <pubDate>Wed, 18 Oct 2017 13:00:01 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/vba-forum/recovery-drawing-message/m-p/7470628#M7400</guid>
      <dc:creator>danijel.radenkovic</dc:creator>
      <dc:date>2017-10-18T13:00:01Z</dc:date>
    </item>
    <item>
      <title>Re: Recovery drawing message</title>
      <link>https://forums.autodesk.com/t5/vba-forum/recovery-drawing-message/m-p/7473283#M7401</link>
      <description>&lt;P&gt;Hello!&lt;/P&gt;&lt;P&gt;Did you try to use save option during closing? Close method has optional SaveChanges value. Try this:&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;With acDoc
   .PurgeAll()
   .Close(True)
End With&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I saw in previous thread that you have it - but macro was not working in that time. Maybe you should try it again with working macro.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Thu, 19 Oct 2017 07:20:38 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/vba-forum/recovery-drawing-message/m-p/7473283#M7401</guid>
      <dc:creator>sieclaprzemyslaw</dc:creator>
      <dc:date>2017-10-19T07:20:38Z</dc:date>
    </item>
    <item>
      <title>Re: Recovery drawing message</title>
      <link>https://forums.autodesk.com/t5/vba-forum/recovery-drawing-message/m-p/7473436#M7402</link>
      <description>&lt;BLOCKQUOTE&gt;&lt;HR /&gt;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/4578281"&gt;@sieclaprzemyslaw&lt;/a&gt; wrote:&lt;BR /&gt;
&lt;P&gt;Hello!&lt;/P&gt;
&lt;P&gt;Did you try to use save option during closing? Close method has optional SaveChanges value. Try this:&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;With acDoc
   .PurgeAll()
   .Close(True)
End With&lt;/PRE&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;I saw in previous thread that you have it - but macro was not working in that time. Maybe you should try it again with working macro.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;HR /&gt;&lt;/BLOCKQUOTE&gt;
&lt;P&gt;Yes, I have tried. Still the same, showing the message.&lt;/P&gt;</description>
      <pubDate>Thu, 19 Oct 2017 08:26:07 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/vba-forum/recovery-drawing-message/m-p/7473436#M7402</guid>
      <dc:creator>danijel.radenkovic</dc:creator>
      <dc:date>2017-10-19T08:26:07Z</dc:date>
    </item>
    <item>
      <title>Re: Recovery drawing message</title>
      <link>https://forums.autodesk.com/t5/vba-forum/recovery-drawing-message/m-p/7502436#M7403</link>
      <description>&lt;P&gt;Any new idea why the error happens?&lt;/P&gt;</description>
      <pubDate>Mon, 30 Oct 2017 17:20:30 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/vba-forum/recovery-drawing-message/m-p/7502436#M7403</guid>
      <dc:creator>danijel.radenkovic</dc:creator>
      <dc:date>2017-10-30T17:20:30Z</dc:date>
    </item>
  </channel>
</rss>

