Sélectionner les propriétés d'Attributs

[zza427]

Je souhaiterais que la sélection des Proriétés d'Attribut par "ctrl+clique" puisse se faire avec une zone de sélection (en restant cliqué et en déplaçant la souris) au lieu de devoir cliquer sur chaque attributs.

 

Quand on veut changer la couleur de certains attributs d'un bloc dont on a 500 exemplaire ça réduirait un peu le temps de travail.

[nG! Hebus]

Salut,

 

Pourquoi ne pas changer la couleur de l'attribut de base et faire une redéfinition?

 

Enfin je dit ça...J'ai pas testé...

 

EDIT: Merde pas vu que c'était dans "liste de souhait" !

[zza427]

En fait ce serait pour pouvoir changer la couleur (ou autre) de certains des attribut, mais pas de tous.

[x_all]

a titre d'exercice, pour voir comment marchait (nentsel , j'ai fait un truc qui marche pour changer la couleur d'un attribut que tu cliques, à condition que l'attribut ait pour couleur 'dubloc' (si ce n'est pas le cas tu modifies ton bloc, passe les attributs en couleur 'dubloc'; et fait un attsync)

 

je suis pas fortiche, pour les couleurs il te faudra choisir les couleurs en fonction de leur n°: 1 rouge 2 jaune, 3 vert ...

(espace pour changer la couleur)

je suis pas au top en gestion d'erreur, il vaut mieux cliquer un attribut j'ai pas tout tester..

 

edit <br>en fait force aussi la couleur sur des entités du dessin  ou des entités du blocs qui sont en dubloc  mais il faut faire un régen quand c'est dans un bloc pour voir le résultat...

[x_all]

je remet le code ici car à l'édition ça à merdé

 

;; change la couleur d'un attribut à condition que l'attribut soit en couleur dubloc

(defun c:attco (/ tmp co0 co1 lstdxf)


 ;;initialisation des variables globales si elle ne sont pas afféctées
 (if (/= (type *couleur*) 'INT)
(setq *couleur* 1)			; changer ici la couleur par défaut
 )
 (while
(and
 	(princ
(strcat
 	"\nCouleur actuelle = "
 	(itoa *couleur*)
 	"\n sélectionnez un attribut ou espace pour changer un paramètre"
)
 	)
 	(not (setq ent (nentsel)))
) ;_ Fin de and

	(if (setq tmp
	(getint
 		(strcat
		"\nCouleur actuelle <"
		(itoa *couleur*)
		"> ): "
 		)
	)
	)
  	(setq  *couleur* tmp)
	)
 )


 (setq lstdxf (entget (car ent)))	; création de la liste

 (if (setq co0 (assoc 62 lstdxf))
(setq co1 	(cons 62 *couleur*)
 	lstdxf (subst co1 co0 lstdxf)
)
(setq lstdxf (cons (cons 62 *couleur*) lstdxf))
 )
 (entmod lstdxf)
(princ)
)

[zza427]

Je vais essayer ton code mais je ne m'y connais pas encore avec les programmes, donc la réponse un peu plus tard.

 

Merci.

[x_all]

Tu peu lire le topic de (gile) ici

http://cadxp.com/topic/14323-charger-un-lisp/

 

ou simplement jeter par glisser poser le fichier .lsp depuis l'explorer directement dans le dessin

(fait un couper coller du code dans un fichier texte que te renomme avec l’extension .lsp)