Inserer un bloc, mais si nom de boc non présent dans dessin, inserer un bloc d'un autre nom

[Jo le projeteur]

Bonjour.

 

Voila mon problème, 

j'utilise un lisp pour insérer mes blocs, (déjà présent dans mon dessin) quand je travaille.

le voici:

(defun c:N ()  ;; Insert une NOURRICE

  (command "-inserer" "NOURRICE ECS-EFS" pause "1" "1" "'osmode" "0" pause)

(command "osmode" "15871")

(princ)

)

 

Or, j'ai du renommer mes blocs

le nom de bloc "NOURRICE ECS-EFS" est remplacé par le nom "PL - NOURRICE ECS-EFS"

sauf que l'ancien nom de bloc est toujours présent dans mes dessins déjà commencé.

et je ne peu pas renommer mes blocs de mes anciens dessins, car tous mes blocs sont renommé, et pas seulement celui ci.

 

il faudrait que mon lisp insert le bloc nommé "NOURRICE ECS-EFS", mais s'il n'existe pas , il insert le bloc nommé  "PL - NOURRICE ECS-EFS"

 

sais que je ne sais pas du tout comment l'écrire, je suis débutant en lisp.

 

Merci de votre aide

 

 

[Eric]

Bonjour, 

Est-ce que la commande blockreplace du menu Express ne pourrait pas vous être utile pour remplacer les anciens blocks par les nouveaux ?

[Jo le projeteur]

Bonjour @Eric

Justement, je voudrais éviter de remplacer les bloc. Je connais déjà le lisp Rbloc de Patrick35. Ok j'ai tous les blocs de mon dessin, et non pas seulement celui des nourrices de renommé. Donc , j'aimerais que mes lisp d'insertion se charge directement à résoudre mon problème en insérant tel nom de bloc bloc si celui ci est présent dans le dessin, et s'il ne l'est pas, il insert tel nom de bloc, pour ne pas avoir à renommer ou remplacer tous les blocs de tous mes anciens dessins.

[(gile)]

Salut,

Essaye comme-ça :

(defun c:N (/ nomBloc)  ;; Insert une NOURRICE
  (setq	nomBloc	(if (tblsearch "block" "NOURRICE ECS-EFS")
		  "NOURRICE ECS-EFS"
		  "PL - NOURRICE ECS-EFS"
		)
  )
  (command "-inserer" nomBloc pause 1 1 "'osmode" 0 pause)
  (setvar "osmode" 15871)
  (princ)
)

 

[Jo le projeteur]

@gile Super. Merci beaucoup ça marche à merveille