Support Folder Add
Here is my solution.
Private Sub AppendSupportPath(ByVal FilePath As String)
Try
Dim app As AcadApplication = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication
Dim files As AcadPreferencesFiles = app.Preferences.Files
Dim ary As String() = files.SupportPath.Split(";")
Dim bln As Boolean = False
' Check to see if its already added.
For Each Str As String In ary
If Str = FilePath Then bln = True
Next
' If not, add it.
If bln = False Then
files.SupportPath = files.SupportPath.ToString & ";" & FilePath.ToString
End If
Catch ex As Autodesk.AutoCAD.Runtime.Exception
End Try
End Sub
Private Sub PrependSupportPath(ByVal FilePath As String)
Try
Dim app As AcadApplication = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication
Dim files As AcadPreferencesFiles = app.Preferences.Files
Dim ary As String() = files.SupportPath.Split(";")
Dim bln As Boolean = False
' Check to see if its already added.
For Each Str As String In ary
If Str = FilePath Then bln = True
Next
' If not, add it.
If bln = False Then
files.SupportPath = FilePath.ToString & ";" & files.SupportPath.ToString
End If
Catch ex As Autodesk.AutoCAD.Runtime.Exception
End Try
End SubEd
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
It's a sub. You supply the path string in the argument.
'some other sub
AppendSupportPath("E:\blocksRAM")
'continue work
Note that these functions are in VB. You may need to convert them to C#. They are from my first dll which I haven't converted to C#. They also handle inserting a ; between paths. Just supply the path you want. If you want to add multiple paths, just call the sub multiple times.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Well, your code is VBA code, not .NET/VB.NET. So, you might as well ask the question in VBA forum in future.
Anyway, VBA (and old classical VB) does not support "Try....Catch...", nor Array in VBA supports "For Each...Next". (Hint: you cannot copy VB.NET code into AutoCAD's VBA and expect it to work).
Here it is in C#.
using System;
using System.Windows.Forms;
using Autodesk;
using Autodesk.AutoCAD.ApplicationServices;
using acApp = Autodesk.AutoCAD.ApplicationServices.Application;
using Autodesk.AutoCAD.Interop;
namespace TID_
{
public class Helper
{
private void AppendSupportPath(string FilePath)
{
try
{
AcadApplication app = acApp.AcadApplication;
AcadPreferencesFiles files = app.Preferences.Files;
string[] ary = files.SupportPath.Split(';');
bool bln = false;
// Check to see if its already added.
foreach (String Str in ary)
{
if (Str == FilePath)
{
bln = true;
};
};
// If not, add it.
if (bln == false)
{
files.SupportPath = files.SupportPath + ";" + FilePath;
};
}
catch (Autodesk.AutoCAD.Runtime.Exception ex)
{
MessageBox.Show("Error Occured in AppendSupportPath. " + ex.Message + ", ", "AppendSupportPath Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
private void PrependSupportPath(string FilePath)
{
try
{
AcadApplication app = acApp.AcadApplication;
AcadPreferencesFiles files = app.Preferences.Files;
string[] ary = files.SupportPath.Split(';');
bool bln = false;
// Check to see if its already added.
foreach (String Str in ary)
{
if (Str == FilePath)
{
bln = true;
};
};
// If not, add it.
if (bln == false)
{
files.SupportPath = files.SupportPath = FilePath + ";" + files.SupportPath;
};
}
catch (Autodesk.AutoCAD.Runtime.Exception ex)
{
MessageBox.Show("Error Occured in PrependSupportPath. " + ex.Message + ", ", "PrependSupportPath Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
}
}
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Did you add a reference to Autodesk.AutoCAD.Interop? Any time you have a 'using' statement, you have to first reference the appropriate library. It's like trying to order a burger at Subway. They have to have it before you can use it.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Did you include the using statement I had? Do you have the standard references to the autocad dll's? ...and their corresponding using statements?
I also noticed some typos. Stand by.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
I revised the code the previous post.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
@k005 wrote:
Yes there is.
But it needs to be simplified a little more.
* So how can we do this more simply?
for example ;
Aapp.Application.SetSystemVariable("Lispsys", 0); etc..
our process is just to introduce a folder.
This shouldn't require a lot of code. Because the process is too short...
There is only one way to set the search file paths. It is stored as a semi-colon delimited string in the application Preferences object, which is only accessible by COM.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
