Effacer selection et insérer texte

Publié 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

Maxence

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

Ajouter un commentaire