Coller en tant que bloc.....

[jalna]

Bonjour,

 

Question:

Peut on attribuer un nom quand on colle en tant que bloc, plutot que d'avoir des noms comme : A$C69060283

 

Merci

[phil_vsd]

Salut,

 

Je ne sais pas mais j'ai un lisp (pris je ne sais plus où...) pour renommer les blocs. Si cela peut te servir :

 

 
;;; Renomme le bloc sélectionné avant ou après le lancement de la commande

(defun c:ren (/ AcDoc ss ref name new)
(vl-load-com)
(setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
(if (and (= 1 (getvar "pickfirst"))
(setq ss (ssget "_I" '((0 . "INSERT"))))
(eq 1 (sslength ss))
)
(sssetfirst nil nil)
(progn
(sssetfirst nil nil)
(while (not (setq ss (ssget "_:S:E" '((0 . "INSERT")))))
)
)
)
(setq ref (vlax-ename->vla-object (ssname ss 0)))
(if (vlax-property-available-p ref 'EffectiveName)
(setq name (vla-get-EffectiveName ref))
(setq name (vla-get-Name ref))
)
(setq bloc (vla-item (vla-get-blocks AcDoc) name))
(while (not
(and (setq new (getstring "\nSpécifiez le nouveau nom : "))
(not (tblsearch "BLOCK" new))
(/= new "")
)
)
(if (tblsearch "BLOCK" new)
(princ (strcat "\Le bloc \"" new "\" existe déjà."))
)
)
(vla-put-Name bloc new)
(princ)
) 

 

See you !

[(gile)]

Salut,

 

Si ce LISP est toujours chargé (ajouté au fichier AutoCAD.mnl par exemple), la commande REN peut être ajoutée dans les menus contextuels au Menu des objets de référence de bloc.

 

http://img95.imageshack.us/img95/9634/blocsi0.png

[Patrick_35]

Salut

Oui, c'est faisable avec des réacteurs

 

@+