Aller au contenu

CHANGER LA COULEUR DES LIGNES D'UN BLOC EN DUBLOC


zara

Messages recommandés

Message supprimé.

 

J'ais posté sans réfléchir, et ma solution ne marcherait pas sur un bloc sans le dissocier.

Je suis dysorthographique alors lâchez-moi les basques avec ça, je fait déjà de mon mieux.
Membre d'Extinction Rebellion, car pour sauver le monde il n'est jamais trop tard, amour et rage !
Pour écrire un vraie point médian (e·x·e·m·p·l·e) [Alt + 0183] ou ajout d'un raccourci clavier personnalisé (ex. [AltGr + ;])

Utilisateur d'AutoCAD 2021 sous Windows 10

Lien vers le commentaire
Partager sur d’autres sites

Coucou

 

éditer le bloc dans l'éditeur de bloc et changer les entités sélectionnées (sans les hachures) en couleur DUBLOC

enregistrer les modifications et sortir de l'éditeur.

 

ça me semble si simple que je ne suis pas certain d'avoir bien appréhendé ton problème...

 

amicalement

Lien vers le commentaire
Partager sur d’autres sites

Merci.

Mais je souhaite faire la transformation sans rentrer dans l'éditeur de bloc de la façon lisp EDIT_BLOC 3.5

 

Car mon problème récurrent c'est de retrouver mes blocs avec de jolies couleurs tout noir :blink:

 

Peut être la possibilité de modifier ce lisp...

 

;FixBlock.lsp [June 30, 1998]

;

; Copyright 1996 - 1998 ManuSoft

;

; gratuiciel from:

; ManuSoft

; http://www.manusoft.com

; modified - added LTSCALE by CAD Studio

;

; Load function, then enter FIXBLOCK to redefine selected blocks

; so that all entities are on layer '0', color 'BYBLOCK', linetype scale 1.0

;

 

 

(defun C:FixBlock (/ ss cnt idx blkname donelist Grp Update)

(defun Grp (gc el) (cdr (assoc gc el)))

(defun Update (bname / ename elist)

(setq ename (tblobjname "BLOCK" bname))

(if

(and ename (zerop (logand 52 (Grp 70 (entget ename '("*"))))))

(progn

(while ename

(setq elist (entget ename '("*"))

elist (subst '(8 . "0") (assoc 8 elist) elist)

elist (if (assoc 62 elist)

(subst '(62 . 0) (assoc 62 elist) elist)

(append elist '((62 . 0))))

elist (if (assoc 48 elist) ; LTscale

(subst '(48 . 1.0) (assoc 48 elist) elist)

(append elist '((48 . 1.0)))))

(entmake elist)

(setq ename (entnext ename)))

(if (/= "ENDBLK" (Grp 0 elist))

(entmake '((0 . "ENDBLK") (8 . "0") (62 . 0))))

'T))

)

(if (> (logand (Grp 70 (tblsearch "layer" "0")) 1) 0)

(princ "\nLayer 0 must be thawed before running FIXBLOCK!\n")

(progn

(if

(progn

(princ "\nPress <Enter> to fix all defined blocks\n")

(setq cnt 0

ss (ssget '((0 . "INSERT")))))

(progn

(setq idx (sslength ss))

(while (>= (setq idx (1- idx)) 0)

(if (not (member (setq blkname (Grp 2 (entget (ssname ss idx)))) donelist))

(progn

(if (Update blkname) (setq cnt (1+ cnt)))

(setq donelist (cons blkname donelist))))))

(while (setq blkname (Grp 2 (tblnext "BLOCK" (not blkname))))

(if (Update blkname) (setq cnt (1+ cnt)))))

(command "_REGENALL") ; added for LTscale

(princ (strcat "\n" (itoa cnt) " block" (if (= cnt 1) "" "s") " redefined\n"))))

(princ)

)

;End-of-file

 

 

 

Amicalement

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité