Discussion :

[david32viry]

Bonjour,

Je débute sur Autolisp et j'ai une petite question.
J'aimerais supprimer tous les points du dessin qui sont dans les blocs.
Quand j'en ai un seul et que je connais le nom ça marche très bien (ici le bloc "test") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
(defun c:DELPOINT () 
 
(command "-modifbloc" "test")
 
(setq dp (ssget "_X" '((0 . "POINT"))))
(command "_ERASE" dp "")
 
 
(command "fermerbloc" "E")
 
(princ)
 
 )

Par contre, j'aimerais faire ça pour tous les blocs contenu dans le dessin sachant que j'ignore leur nom.
Je pense pour récupérer le nom des blocs il faut faire qqch comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
(setq sm (ssget "_x" '((0 . "BLOCK"))))
(setq s1 (ssname sm 0))

Sauf que j'ai déjà de la peine...
En fait j'aimerais arriver à une boucle qui trouve le nom des blocs ce qui permet de rentrer dans le bloc, supprimer les points, le fermer pour passer au suivant.

Est-ce que vous auriez une idée pour arriver à mon but ?

Je vous remercie d'avance pour votre aide

David

[david32viry]

J'ai réussi !
J'ai juste un problème, je n'arrive pas à exclure les xrefs de la sélection, sauriez-vous comment faire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
(defun c:DELPOINTS () 
 
(setq points (ssget "_x" '((0 . "POINT"))))
(command "_ERASE" points "")
 
 
(vl-load-com) ; chargement vl
(setq blocs (ssget "_x" '((0 . "INSERT")))) ; sélection de tous les blocs dans le dessin
(setq nblocs (sslength blocs)) ; calcul du nombre de blocs
 
(repeat nblocs ; boucle d'itération
  (setq nblocs (1- nblocs)) ; incrémentation
 
   (setq name (ssname blocs nblocs)) ; récupération du Ename du bloc à l'indice spécifique        
   (setq sbn (vla-get-effectivename (vlax-ename->vla-object name))) ; obtention du nom réel
   (command "-modifbloc" sbn) ; ouverture du bloc à l'indice spécifique
   (if (setq dp (ssget "_X" '((0 . "POINT")))) ; s'il y a des points suppresion de ceux ci
    (command "_ERASE" dp "" "fermerbloc" "E") ; suppresion et fermeture du blocs quand il y a des points
    (command "fermerbloc") ; fermeture du bloc s'il n'a pas de points
   )
 
)
 
 
)

[Patrick_35]

Salut

Regarde le code dxf 70 dans la table des blocs

ps : c'est bien de poster sur plusieurs forums, mais mieux de l'indiquer

@+

[clovis]

Bonjour,
Supprimer les points dans des blocs peut aller contre le bon fonctionnement d'autres routines.
Par ex. dans les blocs que j'utilise pour le P&ID, des points sont utilises pour couper un morceau de ligne.

Si tu ne veux pas voir les points, pourquoi ne pas utiliser (setvar "pdmode" 1)?

Pour sélectionner les blocs, le mieux est de modifier leur définition

Code Lisp :

Sélectionner tout - Visualiser dans une fenêtre à part

(setq AllBlocks (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))))

avec ssget tu sélectionne tous les blocs dans ton dessin, même les copies.

A+

Bonjour,

Je débute sur Autolisp et j'ai une petite question.
J'aimerais supprimer tous les points du dessin qui sont dans les blocs.
Quand j'en ai un seul et que je connais le nom ça marche très bien (ici le bloc "test") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
(defun c:DELPOINT () 
 
(command "-modifbloc" "test")
 
(setq dp (ssget "_X" '((0 . "POINT"))))
(command "_ERASE" dp "")
 
 
(command "fermerbloc" "E")
 
(princ)
 
 )

Par contre, j'aimerais faire ça pour tous les blocs contenu dans le dessin sachant que j'ignore leur nom.
Je pense pour récupérer le nom des blocs il faut faire qqch comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
(setq sm (ssget "_x" '((0 . "BLOCK"))))
(setq s1 (ssname sm 0))

Sauf que j'ai déjà de la peine...
En fait j'aimerais arriver à une boucle qui trouve le nom des blocs ce qui permet de rentrer dans le bloc, supprimer les points, le fermer pour passer au suivant.

Est-ce que vous auriez une idée pour arriver à mon but ?

Je vous remercie d'avance pour votre aide

David