Connexion

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

‹ Question concernant la création de hachures Effacer selection et insérer texte ›
Portrait de Maxence

C'était presque ça : Private

Par Maxence, 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