macro vba autocad select tout

Question

bonjour a tous 
juste une petit question simple (d'un débutant)
commande on fait une select tout sur autocad 
mais dans un macro vba 
merci a tous

pile_poil · Answer

bonjour
qu'appelles tu  " select tout" ?
selectionner tous les objets dans un dessin? sélectionner tous les layers ? ....

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

lolostan · Answer

pardon c'est selectionner tout les objects du dessin

pile_poil · Answer

If ThisDrawing.SelectionSets.Count < 1 Then
        Set ZoneChoix = ThisDrawing.SelectionSets.Add("jeu")
    Else
        Set ZoneChoix = ThisDrawing.SelectionSets.Item(0)
    End If
    ZoneChoix.Clear
    ZoneChoix.SelectOnScreen
       If ZoneChoix.Count < 1 Then                    ' si la zone de sélection  contient des objets
        Set toto = ThisDrawing.ModelSpace
    Else                                                                                    ' sinon prend tout le dessin
        Set toto = ZoneChoix
    End If

    For Each ACADobj In toto
        With ACADobj
            If .EntityName = "AcDbBlockReference" Then             'si c'est un bloc 
                Traitement
            End If
        End With
    Next
voici un exemple tiré d'une de mes macros qui explore tous les objets contenus dans une zone selectionnée dans un dessin et si c'est un bloc je fais mon traitement

j'espere que cela répond à ta question sinon n'hésites pas  demander des éclaircissement en détaillant plus précisément ton besoin

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

lolostan · Answer

ba enfaite je veux qu'il selection tout ce qui se trouve dans l'espace objet

pile_poil · Answer

mais pour faire quoi ensuite ? car ça conditionne la méthode à utiliser 

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

lolostan · Answer

pour tout effacer

pile_poil · Answer

lol ! je l'aurais parié 

Sub EffaceTout()
Dim toto As Variant
Dim acadobj As acadobject
Set toto = ThisDrawing.ModelSpace
For Each acadobj In toto
    acadobj.Delete
Next
ThisDrawing.Regen acAllViewports
End Sub

mais dans ce que je t'avais donné avant tu mettais 
acadobj.Delete à la place de traitement 
ça le faisait aussi avec un plus la possibilité de n'effacer qu'une partie seulement du dessin 

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

lolostan · Answer

un tres grand merci 
ca marche merci pour tout le temps passé

houdta · Answer

Bonjour tout le monde,
j'ai besoin d'un petit aide,
j'ai une polyligne qui contient des lignes parallèles, je veux savoir comment faire , aprés ke l'utilisateur a selectionné la polyligne et une de ces lignes, de supprimer tout le reste.
est ce qu'il ya une fonction qui permet de détécter le contenu d'un polyline.
Merci d'avance

macro vba autocad select tout

9 réponses

Votre réponse

Discussions similaires