getname modification

[Big666]

Bonjour

 

Je voudrais changer c’est mot par d’autre Bain" "Cuisine" "Entrée" "Séjour" "WC, j’ai déjà essayer mais quant je lance le lisp Pline_block la boite DCL qui apparait reste avec les mots d’origine !

Pourquoi ?

Merci de votre aide

 

;;; GetName (gile)

;;; Retourne le nom spécifié ou choisi dans la liste.

;;; Les noms entrés sont ajoutés à la liste.

;;; La liste est conservée dans le dessin.

 

(defun getname (titre / lst what_next dcl_id nom)

(if (not (vlax-ldata-get "Pline_block" "Name"))

(vlax-ldata-put "Pline_block" "Name" '("Bain" "Cuisine" "Entrée" "Séjour" "WC"))

)

(setq lst (vlax-ldata-get "Pline_block" "Name"))

(setq dcl_id (load_dialog "GetName.dcl"))

(setq what_next 2)

(while (>= what_next 2)

(if (not (new_dialog "getname" dcl_id))

(exit)

)

(start_list "pop")

(mapcar 'add_list lst)

(end_list)

(if titre

(set_tile "box" titre)

)

(action_tile

"pop"

(strcat

"(if (or (= $reason 1) (= $reason 4))"

"(set_tile \"tp\" (nth (atoi $value) lst)))"

"(mode_tile \"accept\" 2)"

)

)

(action_tile

"add"

(strcat

"(if (not (member (get_tile \"tp\") lst))"

"(setq lst (acad_strlsort (cons (get_tile \"tp\") lst))))"

"(done_dialog 2)"

)

)

(action_tile

"del"

(strcat

"(setq lst (vl-remove (get_tile \"tp\") lst))"

"(done_dialog 2)"

)

)

(action_tile

"accept"

(strcat

"(if (not (read (get_tile \"tp\")))"

"(progn (alert \"Spécifiez un nom, svp.\")"

"(done_dialog 2))"

"(progn (setq nom (get_tile \"tp\"))"

"(if (and (not (member nom lst)) (/= nom ""))"

"(setq lst (acad_strlsort (cons (get_tile \"tp\") lst))))"

"(vlax-ldata-put \"Pline_block\" \"Name\" lst)"

"(done_dialog 1)))"

)

)

(setq what_next (start_dialog))

(if (= what_next 0)

(setq nom nil)

)

)

(unload_dialog dcl_id)

nom

)