(Autolisp] Suppression des points dans les blocs

Version imprimable

16/12/2015, 15h36
david32viry

(Autolisp] Suppression des points dans les blocs
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:

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:

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

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:

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
   )
 
)
 
 
)

22/12/2015, 20h29
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

@+
14/07/2016, 10h31
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:

(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+
Citation:
Envoyé par 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:

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:

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