Apprendre à créer un modèle F# pour AutoCAD avec Visual Studio Express

Dans Visual Studio, choisir le langage « Visual F# » et le type de projet : « Library » (Bibliothèque de classe).

Renommer le projet : « AcadFs2015 » par exemple, et changer le chemin de l'emplacement comme désiré.

Ouvrir la fenêtre propriété du projet : dans l'explorateur de solutions, sélectionner le projet AcadFs2015, puis clic droit et « Propriétés » ou cliquer sur l'icône en forme de clé plate.

Dans la fenêtre « Propriétés », onglet « Application », choisir le Framework cible dans la liste déroulante.

Il est préférable de cibler la version du Framework correspondant à celle installée par la version d'AutoCAD pour laquelle le modèle est créé :

• AutoCAD 2010 et 2011 : .NET Framework 3.5 ;
• AutoCAD 2012 à 2014 : .NET Framework 4.0 ;
• AutoCAD 2015 : .NET Framework 4.5.

Dans l'explorateur de solutions, sélectionner « Références » puis clic droit et « Ajouter une référence… ».
Dans la boîte de dialogue « Reference Manager », cliquer sur « Parcourir… ».

Les références à ajouter se trouvent dans le répertoire d'installation de la version ciblée d'AutoCAD , ou mieux, dans le dossier « ObjectARX20##\inc » correspondant à la version d'AutoCAD ciblée (inc-win32 ou inc-x64 suivant les versions d'AutoCAD et la plate-forme du poste utilisé).
On peut télécharger les dernières versions d'ObjectARX sur cette page.

Choisir les bibliothèques les plus couramment utilisées (il sera facile d'en ajouter d'autres de la même manière si la création du nouveau projet le requiert).

• AutoCAD 2010 à 2012 : AcDbMgd.dll et AcMgd.dll.
• AutoCAD 2013 à 2015 : AcCoreMgd.dll, AcDbMgd.dll et AcMgd.dll.

Mettre la propriété « Copy Local » de ces DLL sur « False » :

Renommer la classe créée par Visual Studio : « Library1 » avec un nom plus explicite, « Commands », par exemple, depuis l'explorateur de solutions.

Ouvrir la classe « Commands » dans l'éditeur de code par double-clic sur « Commands » dans l'explorateur de solutions.

Supprimer l'ébauche de code créée par Visual Studio.
Ajouter un nom de module (« Commands », par exemple), précédé de « Acad2015Fs » comme espace de nom (ce dernier sera automatiquement remplacé par le nom de l'application lors de l'utilisation d'un modèle).
Ajouter les instructions « open » pour importer les espaces de noms AutoCAD les plus couramment utilisés et, éventuellement, un alias pour la classe Autodesk.AutoCAD.ApplicationServices.Application.

Ajouter quelques lignes de codes usuels pour définir une commande AutoCAD :

module Acad2015Fs.Commands

open System
open Autodesk.AutoCAD.ApplicationServices
open Autodesk.AutoCAD.DatabaseServices
open Autodesk.AutoCAD.EditorInput
open Autodesk.AutoCAD.Geometry
open Autodesk.AutoCAD.Runtime

type AcAp = Autodesk.AutoCAD.ApplicationServices.Application 

let getObject<'T when 'T :> DBObject> (oid : ObjectId) =
    oid.GetObject(OpenMode.ForRead) :?> 'T

let getObjects<'T when 'T :> DBObject> source =
    let rxc = RXClass.GetClass typeof<'T>
    source
    |> Seq.cast<ObjectId>
    |> Seq.filter (fun id -> id.ObjectClass.IsDerivedFrom rxc)
    |> Seq.map getObject<'T>

[<CommandMethod("Test")>]
let test() =
    let doc = AcAp.DocumentManager.MdiActiveDocument
    let db = doc.Database
    let ed = doc.Editor

    use tr = db.TransactionManager.StartTransaction()

    tr.Commit()

Générer la solution pour contrôler l'absence d'erreur (F6 ou F7).

Depuis l'explorateur de solutions, faire un clic droit sur le projet AcadCs2013 puis « Ajouter » et « Nouvel élément… » (Ctrl+Maj+A).

Dans la boîte de dialogue « Ajouter un nouvel élément », choisir : « Text File ». Renommer le fichier : start.scr et cliquer sur « Ajouter ».

Le fichier s'ouvre dans la fenêtre d'édition, ajouter l'instruction suivante sans oublier une espace à la fin.

netload "..\..\bin\debug\AcadFs2015.dll"

Si le répertoire de sortie pour le mode Debug a été modifié, changer le chemin de la DLL en conséquence.

Enregistrer le fichier start.scr.

Dans les propriétés de start.scr (sélectionner start.scr dans l'explorateur de solutions), mettre la propriété « Copy to Output Directory » sur « Copy always ».

Les fichiers de projet MSBuild (.fsproj) sont des fichiers XML qui décrivent et contrôlent le processus de génération des applications.
C'est dans ce type de fichier que doivent être ajoutées les instructions qui permettront de lancer AutoCAD depuis Visual Studio en mode débogage et de charger la DLL au démarrage d'AutoCAD.

Générer la solution et fermer Visual Studio pour pouvoir modifier le fichier AcadFs2015.fsproj.

Ouvrir le fichier .\AcadFs2015\AcadFs2015\AcadFs2015.fsproj avec un éditeur de texte (bloc-note, Notepad++, etc.).

Ajouter les nœuds suivants à la fin du nœud PropertyGroup correspondant à la génération en mode Debug (le deuxième nœud PropertyGroup du fichier), après avoir modifié, si nécessaire, le chemin du fichier acad.exe correspondant à la version d'AutoCAD ciblée et celui du fichier start.scr (le répertoire de sortie pour le mode Debug).

<StartAction>Program</StartAction>
<StartProgram>C:\Program Files\Autodesk\AutoCAD 2015\acad.exe</StartProgram>
<StartArguments>/nologo /b "..\..\bin\debug\start.scr"</StartArguments>

• StartAction indique que la génération du projet doit lancer un programme (ce qui n'est généralement pas le cas avec une DLL) ;
• StartProgram spécifie le programme à démarrer, ici AutoCAD ;
• StartArguments contient les arguments qui vont lancer le script qui chargera la DLL.

Le nœud PropertyGroup devrait ressembler à ça :

<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
  <DebugSymbols>true</DebugSymbols>
  <DebugType>full</DebugType>
  <Optimize>false</Optimize>
  <Tailcalls>false</Tailcalls>
  <OutputPath>bin\Debug\</OutputPath>
  <DefineConstants>DEBUG;TRACE</DefineConstants>
  <WarningLevel>3</WarningLevel>
  <StartAction>Program</StartAction>
  <StartProgram>C:\Program Files\Autodesk\AutoCAD 2015\acad.exe</StartProgram>
  <StartArguments>/nologo /b "..\..\bin\debug\start.scr"</StartArguments>
  <DocumentationFile>bin\Debug\AcadFs2015.XML</DocumentationFile>
</PropertyGroup>

Dans le nœud ItemGroup se trouvent les références ajoutées au projet.

Si le répertoire de la solution est sur le même lecteur que celui dans lequel se trouvent les DLL référencées (le répertoire d'installation d'AutoCAD ou celui d'ObjectARX 20##), les chemins enregistrés sont relatifs.
Comme le modèle sera exporté dans un répertoire différent de celui de la solution, il faut remplacer ces chemins relatifs par les chemins absolus.

Par exemple, remplacer les chemins relatifs suivants :

<Reference Include="AcCoreMgd">
  <HintPath>..\..\..\..\..\..\..\ObjectARX 2015\inc\AcCoreMgd.dll</HintPath>
  <Private>False</Private>
</Reference>
<Reference Include="AcDbMgd">
  <HintPath>..\..\..\..\..\..\..\ObjectARX 2015\inc\AcDbMgd.dll</HintPath>
  <Private>False</Private>
</Reference>
<Reference Include="AcMgd">
  <HintPath>..\..\..\..\..\..\..\ObjectARX 2015\inc\AcMgd.dll</HintPath>
  <Private>False</Private>
</Reference>

Par ceux-ci :

<Reference Include="AcCoreMgd">
  <HintPath>C:\ObjectARX 2015\inc\AcCoreMgd.dll</HintPath>
  <Private>False</Private>
</Reference>
<Reference Include="AcDbMgd">
  <HintPath>C:\ObjectARX 2015\inc\AcDbMgd.dll</HintPath>
  <Private>False</Private>
</Reference>
<Reference Include="AcMgd">
  <HintPath>C:\ObjectARX 2015\inc\AcMgd.dll</HintPath>
  <Private>False</Private>
</Reference>

Enregistrer le fichier AcadFs2015.fsproj.

Rouvrir la solution AcadFs2015.sln dans Visual Studio.
Lancer un débogage (F5) pour contrôler le bon fonctionnement. AutoCAD devrait s'ouvrir et afficher en ligne de commande :

Commande: netload Nom du fichier d'assemblage: "..\..\bin\debug\AcadFs2015.dll"

Le message d'erreur ci-dessous indique soit un nom de DLL erroné dans le fichier start.scr ; soit que le fichier start.scr n'a pas été copié dans le répertoire de sortie (cf. propriété « Copier » dans le répertoire de sortie).

Commande: netload Nom du fichier d'assemblage: "..\..\bin\debug\AcadFs2015.dll"
Impossible de charger l'assemblage. Détails de l'erreur :
System.IO.FileNotFoundException: Impossible de charger le fichier ou l'assembly...

Si tout fonctionne correctement, il est temps de générer le modèle.

Dans le menu FICHIER, choisir Exporter le modèle…
Dans la boîte de dialogue « Assistant Exportation de modèle », laisser coché « Modèle de projet » et faire « Suivant ».
Changer le nom du modèle comme désiré, Acad2015FsCommand, par exemple et ajouter éventuellement une description « Modèle pour commande AutoCAD 2015 » puis
« Terminer ».

Avec les options par défaut, le modèle est exporté sous forme de fichier ZIP dans les dossiers :

• Visual Studio 2013\Templates\ProjectTemplates

et

• Visual Studio 2013\My Exported Templates

du répertoire Documents ou Mes documents.

Ce modèle sera désormais proposé par Visual Studio au démarrage d'un nouveau projet.

La même procédure peut être utilisée pour créer d'autres modèles, ciblant d'autres versions d'AutoCAD et/ou du Framework, ou encore pour d'autres types de projets (fonctions LISP, bibliothèques de classe, extensions d'application…).

Il est possible de rajouter des instructions dans le fichier start.scr comme le lancement d'une commande.

Il est aussi possible de spécifier un fichier DWG à ouvrir dans la balise StartProgram du fichier .fsproj avec un chemin complet ou relatif (la racine étant le répertoire de sortie).
Exemple avec un dessin Test.dwg dans le répertoire de la solution :

<StartProgram>
  C:\Program Files\Autodesk\AutoCAD 2015\acad.exe "..\..\..\Test.dwg"
</StartProgram>

Developpez.com remercie Gilles Chanteau pour l'accord de publication de ce tutoriel, WinJerome pour la mise au gabarit et Jacques Jean pour la relecture orthographique.