[résolu] Rendre courant les propriétés d'un objet sélectionné

[Circus]

Bonjour,

 

Y a t'il une fonction dans autocad ou un lisp pour rendre courant les propriétés de calques (couleur type de trait forcé...) d'un objet sélectionné ?

 

Merci d'avance.

[lili2006]

Bonsoir à toutes et tous,

 

Il y a bien "comme" =>

 

(defun c:comme ( / derpl ent obj)
  
  (setvar "cmdecho" 0)
  
  
  (setq ent (car (entsel "\rQue faire ?:  ")))
  (setq obj (cdr (assoc 0 (entget ent))))
  
  (setq derpl (getvar "clayer"))
  (setq pl (cdr (assoc 8 (entget ent))))
  (command "calque" "ch" pl "")
  
  (cond
 	
 	((= obj "LINE")
		(princ "LIGNE")
		(command "ligne")
 	)
 	;           	COMMANDE POLYLIGN             		
 	((= obj "POLYLINE") 
		(princ "POLYLIGNE")
		(command "_pline")
 	)
 	((= obj "LWPOLYLINE") 
		(princ "POLYLIGNE")
		(command "_pline")
		
		
 	)
 	; COMMANDE spline  	            		
 	((= obj "SPLINE")
		(princ "SPLINE")
		(command "spline")
 	)
 	
 	;           	COMMANDE ARC  	            		
 	((= obj "ARC")
		(princ "ARC")
		(command "arc")
 	)
 	;           	COMMANDE POINT  	            		
 	((= obj "POINT")
		(princ "POINT")
		(command "point")
 	)
 	;           	COMMANDE CERCLE  	            		
 	((= obj "CIRCLE")
		(princ "CERCLE")
		(command "cercle")
 	)
 	
 	;           	COMMANDE TEXTE  	            		
 	
 	((= obj "TEXT")
		(princ "TEXT")
		(command "TEXTE")
 	)
 	
 	;COMMANDE HACHURES       		
 	
 	((= obj "INSERT")
		(cond
       	((= (cdr (assoc 70 
      		(tblsearch "block" (cdr (assoc 2 (entget ent))))
       	)) 65)  
       	(princ "HACHURES")
       	(command "hachures")
		)
		
		;COMMANDE XREF       		
		
		((> (cdr (assoc 70 
       	(tblsearch "block" (cdr (assoc 2 (entget ent))))
		)) 66)
		(princ "XREF")
		(command "xref")
 	)
 	
 	; COMMANDE INSERER            	
 	
 	(
		(princ "INSERER")


		(command "inserer" (cdr(assoc 2(entget ent)))) 
 	)
  )
)

; COMMANDE ATTDEF            	

((= obj "ATTDEF")	
  (princ "ATTDEF")
  (command "attdef")
)

; COMMANDE COT            	

((= obj "DIMENSION") 		; si la cotation n'est pas ASSOCIATIVE
  (princ "COT"); ce sera soit la commande TEXDYN, LIGNE
  (command "COT"); ou SOLIDE
)

)

)

 

Sinon Patrick_35 à également développé une aplli là dessus mais je n'ai pas le temps de chercher, désolé,...:(

[Circus]

Merci bien , je vais tester ca.

 

Sinon ne soit pas désolé , si c'est sur cadxp , c'est a moi de chercher !

[didier]

coucou

 

je ne vois pas l'utilité d'un lisp en l'occurrence.

 

ce que je fais :

taper

CHPROP

_all

CO

DUC

 

c'est fini

[lili2006]

Re,

 

Je pense que tu trouveras plus facilement en te rendant directement sur son BLOG

[Steven]

Bonjour,

 

Y a t'il une fonction dans autocad ou un lisp pour rendre courant les propriétés de calques (couleur type de trait forcé...) d'un objet sélectionné ?

 

Merci d'avance.

 

Je ne sais pas si j'ai bien compris la question :(

 

Si j'ai bien compris, tu souhaite rendre courant le calque sur lequel se trouve un objet?

Si c'est le cas, tu cliques sur le premier icône à côté de ton gestionnaire de calques (Rendre la calque de l'objet courant ou commande RENDCALQUECOUR) , tu sélectionnes ton objet et c'est fini.

 

http://data.imagup.com/10/1130681146.png

 

Toutefois, si la couleur ou le type de ligne est forcé, ce ne sont plus les propriété du calque mais les propriétés de l'objet.

 

Voilou ;)

[(gile)]

Salut,

 

Voir MatchSet sur cette page.

[Circus]

Merci Lili2006, bon j'ai pas trouver , je regarderai a nouveau, par contre j'ai trouvé un lisp magnifique, je ne sais pas si ca me servira un jour , c'est IXL pour importer des blocs dans autocad depuis une feuille Excel. Du très bon boulot !

 

Didier, j'ai pas compris ton truc, mais je me suis mal exprimé, comme dit Steven, c'est les propriétés de l'objet que je veux rendre courant.

[Circus]

Voila c'est ca , merci Gile !!

c'est tout a fait ce que je recherchais.

simple est efficace, j'adore !!

 

Merci a tous de m'avoir répondu :)