Remplacer un bloc par un autre

[Fruity]

Dans les express tools, il existe la fonction "Replace bloc with another block".

Le seul probleme étant qu'il s'applique à tout le dessin.

Est-il possible de ne choisir qu'une partie d'une dessin où effectuer cette commande (ou une autre)?

merci

[autospeed]

La commande EB ( Echange Blocs) du logiciel Autospeed permet de faire une sélection partielle.

voir http://autospeed.celeonet.fr/demo/eb.html avec internet explorer car cela ne fonctionne pas sous firefox

http://autospeed.celeonet.fr/demo/eb.swf pour firefox

Si tu n'a pas envie de payer la licence , un copié collé de ton plan dans le dessin de demo permet de jouer avec toutes les fonctions sans limitation

 

Phil http://www.autospeed.biz [Edité le 8/6/2006 par autospeed]

 

[Edité le 8/6/2006 par autospeed]

[Patrick_35]

Salut

Sans vouloir embêter Autospeed, tu as ce ce lisp qui vient de ce post

 

@+

[tiboulen]

le temps de retouver un petit lisp ecrit il y a longtemps, 2 personnes avaient deja rapondu

je donne quand meme mon lisp (certainement maladroit mais il marche)

 

(defun c:rplbl ()

(setq oldosmode (getvar "osmode"))

(setvar "osmode" 0)

(setq i0 0)

(setq bl0 (entsel "reperez le bloc à changer"))

(setq entbl0 (entget (car bl0)))

(setq nombl0 (cdr (assoc 2 entbl0)))

 

 

(setq bl1 (entsel "reperez le bloc à inserer"))

(setq entbl1 (entget (car bl1)))

(setq nombl1 (cdr (assoc 2 entbl1)))

(setq newbloc0 (list '(0 . "INSERT") (assoc 2 entbl1) (assoc 10 entbl1) (assoc 41 entbl1) (assoc 42 entbl1) (assoc 43 entbl1) (assoc 50 entbl1)))

 

 

(setq jsbl0 (ssget)) (prompt "\nFenetre de selection : ")

 

(setq jsbl (ssget "P" (list (cons 0 "INSERT") (cons 2 nombl0))))

 

(repeat (sslength jsbl)

(setq ent0 (ssname jsbl i0))

(setq ptins1 (cdr (assoc 10 (entget ent0))))

(setq entgt0 (entget ent0))

(entdel ent0)

 

(setq newbloc (list '(0 . "INSERT") (assoc 2 entbl1) (assoc 8 entgt0) (assoc 10 entgt0) (assoc 41 entgt0) (assoc 42 entgt0) (assoc 43 entgt0) (assoc 50 entgt0)))

(entmake newbloc)

(setq i0 (+ i0 1))

 

)

 

 

(setvar "osmode" oldosmode)

)

 

[autospeed]

Remarquez quand même qu'avec Autospeed , il y a la possibilité de conserver le calque de l'objet remplacé pour l'insersion du nouveau.

Phil http://www.autospeed.biz

[Patrick_35]

Salut

Remarquez quand même qu'avec Autospeed , il y a la possibilité de conserver le calque de l'objet remplacé pour l'insersion du nouveau.

Avec lequel ?

 

Et puis, toutes les sources et idées sont bonnes à prendre. Ce qui est bien, c'est que le demandeur a le choix et qu'il a donc plus de chance de trouver ce qu'il cherche réellement

 

@+

[autospeed]

voir http://autospeed.celeonet.fr/demo/eb.swf pour comprendre

[Fruity]

merci pour ces reponses =)

faut maintenan que je trouve ce qu'est un lisp... :casstet:

[Patrick_35]

faut maintenan que je trouve ce qu'est un lisp... :casstet:

Pour simplifier, je dirai une macro

Tu sauves le lisp dans le répertoire d'autocad et ensuite tu peux te servir de la commande _appload pour le charger

 

@+

[lecrabe]

 

Bonjour

 

Pour changer la définition graphique d'un bloc dans tout le dessin, tu peux en effet utiliser une fonction des Bonus Express ... Ou Refaire Insérer / Parcourir / etc ...

 

Ou bien un programme Lisp, comme celui indiqué par Patrick_35 (ou Tiboulen) ou même celui d'AutoSpeed ou bien d'autres que l'on peut trouver sur le NET en farfouillant ...

 

Je soutiens Mr Patrick_35 dans ces remarques par rapport à Mr AutoSpeed !

 

Mr AutoSpeed est "un peu trop vindicatif" (Ce n'est pas méchant) mais après tout maintenant Open-Mind peut faire son choix en toute liberté ... :)

 

Le Decapode vous souhaite à tous un bon WE