AutoCAD

En VBA, pour calculer le ou les points d'intersection entre 2 entités, on peut utiliser la méthode ÌntersectWith. Mais elle ne fonctionne pas correctement si un des deux opérandes est une référence de bloc.

Un petit bout de code pour exporter la liste des valeurs Rouge, Vert, Bleu pour les couleurs indexées d'AutoCAD :

[CommandMethod("DUMPCOLORS")]
public void DumpColors()
{
    using (var sw = new StreamWriter(@"C:\temp\acadColors.txt"))
    {
        sw.WriteLine(" I ; R ; G ; B ");
        for (short colorIndex = 1; colorIndex <= 255; colorIndex++)
        {
            using (Color color = Color.FromColorIndex(ColorMethod.ByAci, colorIndex))
            {
                sw.WriteLine("{0,3};{1,3};{2,3};{3,3}", colorIndex,
                    color.ColorValue.R, color.ColorValue.G, color.ColorValue.B);
            }
        }
    }
}

Vous avez le maintien (handle en Anglais) d'une entité et vous voulez identifier cette entité. Voilà un moyen simple : lancez la commande ZOOM, choisissez l'option Objet. Quand AutoCAD vous demande de sélectionner des objets, tapez :

(handent "<Votre maintien>")

Par exemple si votre maintien est 1f7 :

(handent "1f7")

Validez par entrée, AutoCAD zoome alors sur l'entité en question.

Cette astuce ne fonctionne pas sur LT, puisqu'elle nécessite d'appeler la fonction Lisp handent.

Après avoir été retiré en urgence suite à la découverte d'un problème entraînant des erreurs fatales, le service pack 1 pour AutoCAD 2013 est de retour.

En plus des nouvelles fonctionnalités permettant de bloquer l'exécution des programmes AutoLISP, il corrige un nombre impressionnant de crash (j'en ai dénombré 24) pouvant survenir en de multiples occasions. Personnellement, j'avais systématiquement un plantage d'AutoCAD quand je quittais, le problème semble être résolu après l'installation de cette mise à jour.

Vous pouvez télécharger le SP1.1 ici et consulter la liste des changements ici

Comme je vous l'annonçais précédemment, la première mise à jour pour AutoCAD 2013 est sortie, mais elle a été retirée immédiatement car elle entraîne des erreurs fatales. Une nouvelle version devrait être à nouveau disponible très prochainement.

Le service pack 1 pour AutoCAD 2013 vient de sortir. Cette mise à jour apporte de nombreuses corrections de bogues et de nouvelles fonctions qui permettent de bloquer l'exécution des programmes AutoLISP. En effet, comme je l'expliquais dans cet article, il est possible d'écrire des virus utilisant AutoCAD comme vecteur d'infection.

Voici un petit exemple de code qui permet de détecter si AutoCAD est en cours d'exécution. Si c'est le cas, il affiche le chemin complet du dessin ouvert.

Le code utilise COM (out of process).

VB.NET

Imports System.Runtime.InteropServices

Module Module1

    Sub Main()
        Try
            Dim acad = Marshal.GetActiveObject("AutoCAD.Application")
            Dim activeDocument = acad.ActiveDocument
            MsgBox("Le chemin complet du document actif est : " & activeDocument.FullName)
        Catch ex As COMException
            Const MK_E_UNAVAILABLE As Integer = &H800401E3
            If ex.ErrorCode = MK_E_UNAVAILABLE Then
                MsgBox("AutoCAD n'est pas en cours d'exécution.")
            Else
                Throw
            End If
        End Try
    End Sub

End Module

Un article intéressant sur le site de support d'Autodesk qui nous apprends que l'utilisation d'un processeur multicoeurs n'apporte pas de gain de performances significatifs.

Notre nouvelle application, Wiip Compare pour AutoCAD a été publiée sur l'Autodesk Exchange Store.

Ce complément à AutoCAD permet de comparer 2 dessins en les affichant côte à côte. Chaque opération de zoom, de panoramique et de changement d'espace se produisant sur un des dessins est répliquée sur l'autre dessin.