lisp pour modiffier couleur du calque en du bloc pour les bloc

[fauxsuisse]

Bonjour les pros du lisp.

 

J'ai tout un tas de symboles qui ont été crées à l'époque avec la couleur du calque au lieu de la couleur du bloc (dommage)

 

Je voulais savoir s'il existait un lisp qui pourrait mettre la valeur couleur du bloc à tous les blocs insérés dans un dessin ou bien je dois malheureusement éditer bloc par bloc pour modifier ce paramètre ce qui risque de devenir long :casstet:

[(gile)]

Salut,

 

Edit_bloc sur cette page (ou dans CADnorm TOOLS).

[rebcao]

Bonjour,

 

Il existe aujourd'hui une commande standard qui modifie ça !

 

[surligneur] Menu modification : Remplacer par DUCALQUE[/surligneur]

 

Christian

[(gile)]

Bonjour,

 

Il existe aujourd'hui une commande standard qui modifie ça !

 

[surligneur] Menu modification : Remplacer par DUCALQUE[/surligneur]

 

Christian

 

Oui Christian, mais il me semble que FauxSuisse veut remplacer DuCalque par DuBloc (et pas l'inverse).

Par ailleurs, je crois savoir qu'il possède l'utilitaire CADnorm TOOLs qui intègre une version améliorée d'Edit_Bloc qui permet de de redéfinir facilement les propriétés des composants de plusieurs blocs en une seule manip...

[jifi]

Hello,

 

Par ailleurs, je crois savoir qu'il possède l'utilitaire CADnorm TOOLs qui intègre une version améliorée d'Edit_Bloc qui permet de de redéfinir facilement les propriétés des composants de plusieurs blocs en une seule manip...

 

Je confirme, dans le menu déroulant CADnorm TOOLS, il suffit d'aller dans "NETTOYAGE DE PLAN" -> "MODIFIER LES DEFINITIONS DE BLOCS"

 

Une fois dans la boîte de dialogue, sélectionner "Toute la collection" puis activer la case "Couleur" Choisir "DuBloc" puis cliquer sur OK.

 

Attention à ne pas oublier de mentionner les unités !

 

A disposition pour plus d'infos si nécessaire.

 

@plus

 

 

[rebcao]

Bonjour,

 

remplacer DuCalque par DuBloc (et pas l'inverse).

 

Il suffit d'utiliser l'option de la commande qui permet en fait de faire les deux.

 

Christian

[(gile)]

Bonjour,

 

remplacer DuCalque par DuBloc (et pas l'inverse).

 

Il suffit d'utiliser l'option de la commande qui permet en fait de faire les deux.

 

Christian

 

Je ne connais pas cette option sur 2010.

Est-ce une nouveauté 2011 ou n'ai-je pas les yeux en face des trous ?

[bryce]

Elle ne semble pas exister sur la 2011 non plus... :angel:

[jeanch]

Bonjour,

La fonction Edit_Bloc semble imposer lors de son utilisation la modification des unités de bloc, c'est-à-dire que si dans une collection, il y a des blocs en millimètres et en mètres, leurs unités seront modifiées pour correspondre à celle sélectionnée dans Edit_bloc. Cette option est-elle débrayable ?

Question subsidiaire, existent-t-il des commandes ou des lisp pour qu'une collection de blocs prenne les valeurs "autoriser la décomposition" et "mettre à l'échelle uniformément" ?

Merci d'avance pour vos réponses.

 

[Edité le 25/7/2010 par jeanch]

[(gile)]

Salut et bienvenue,

 

1) Non la modification des unités n'est pas "débrayable", mais on peut traiter des sélections de blocs

 

2) ""autoriser la décomposition" s'applique aux définitions de blocs, "mettre à l'échelle uniformément" s'applique aux références insérées.

[jeanch]

Merci pour la réponse.

[(gile)]

Salut

 

Une petite routine (donnée ici) qui rend tous les blocs du dessin décomposables

 

(defun c:expl-p ()
 (vl-load-com)
 (vlax-for b (vla-get-Blocks
	(vla-get-ActiveDocument (vlax-get-acad-object))
      )
   (or	(wcmatch (vla-get-Name b) "`**_Space*")
(vla-put-explodable b :vlax-true)
   )
 )
 (princ)
)

[(gile)]

Une autre qui uniformise les échelles des blocs sélectionnés (le facteur en X est appliqué en Y et Z)

 

;; Uniformise les échelles des blocs sélectionnés

(defun c:UnifScale (/ n ss ent elst scl)
 (if (setq n  -1
    ss (ssget '((0 . "INSERT")))
     )
   (while (setq ent (ssname ss (setq n (1+ n))))
     (setq elst (entget ent)
    scl	 (cdr (assoc 41 elst))
     )
     (entmod
(subst (cons 42 scl)
       (assoc 42 elst)
       (subst (cons 43 scl) (assoc 43 elst) elst)
)
     )
     (entupd ent)
   )
 )
 (princ)
)