Effacer selection et insérer texte

Soumis par joh90 le lun, 29/06/2009 - 02:37

Bonjour

J'ai besoin de votre aide
Je veux effacer une zone dans un page de layout, par la suite insérer du texte.

J'ai commencé a écrire le code, mais ça ne fonctionne pas. Est-ce que vous avez une idée de ce que je doit corriger. De plus avez-vous des indices a me donner pour insérer du texte a une point x,y

Merci!
Joh

voici le code que j'ai écris

 Private SubDelete()
 
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
 
    startPoint(0) = 34.93151714#
    startPoint(1) = 3.30691694#
    startPoint(2) = 0#
 
    endPoint(0) = 42.058499#
    endPoint(1) = -0.0687933#
    endPoint(2) = 0#
 
    On Error Resume Next
     objSelection.Select acSelectionSetWindow, startPoint, endPoint
     objSelection.AddItems 
    objSelection.Erase    
 
End Sub

VBA AutoCAD

C'était presque ça : Private

Par Maxence Delannoy, le mer, 01/07/2009 - 09:54.

C'était presque ça :

Private Sub Delete()
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
 
    startPoint(0) = 34.93151714
    startPoint(1) = 3.30691694
    startPoint(2) = 0#
 
    endPoint(0) = 42.058499
    endPoint(1) = -0.0687933
    endPoint(2) = 0#
 
    Dim objSelection As AcadSelectionSet
 
    ' Crée un jeu de sélection
    Set objSelection = ThisDrawing.SelectionSets.Add("SSET")
 
    ' Sélection par fenètre
    objSelection.Select acSelectionSetWindow, startPoint, endPoint
 
    ' Supprime les entités contenues dans le jeu de sélection
    objSelection.Erase
 
    ' Supprime le jeu de sélection
    objSelection.Delete
End Sub

Pour insérer un texte hauteur 2.5 dans l'espace objet au point de coordonnées 10, 10 :

Dim insPt(2) As Double
insPt(0) = 10: insPt(1) = 10
 
ThisDrawing.ModelSpace.AddText "Mon texte", insPt, 2.5

Répondre

Poster un nouveau commentaire

Votre nom :

E-mail :

Le contenu de ce champ ne sera pas montré publiquement. If you have a Gravatar account, used to display your avatar.

Page d'accueil :

Commentaire : *

Les adresses de pages web et de messagerie électronique sont transformées en liens automatiquement.
Allowed HTML tags: <a> <em> <strong> <cite> <code> <ul> <ol> <li> <dl> <dt> <dd>
Les lignes et les paragraphes vont à la ligne automatiquement.
You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>. The supported tag styles are: <foo>, [foo].

Plus d'informations sur les options de formatage

CAPTCHA

La vérification ne tient pas compte des minuscules ou des majuscules.