Topic: Reload Popup List in DCL

[amc.dicsac]

Hello  such'm with a doubt:

Ando performing a program that is a note editor is based on a text file but my problem is this:
I have a Button that allows me to chop select text to extract the contents and save the file with a .txt extension that asu time should be updated to apresca in popup_list but as I was supposed to leave the DCL and again open to see recently is update popup_list.
Looking found a blog where a similar program I'm doing, with the difference that this has a edit_box and button to add written content, but I find with surprise that every time I give the button to add the lisp closes and reappears being updated content in popup_list. I wonder how the hell do to create a button to close and open the DCL to allow me the update on the popup_list

I am attaching the link of .vlx to be held and in advance thank you very much 


http://readytextstringsvresion-2.blogspot.ae/

[kpblc]

Use (start_list <ListKey> 3) (mapcar (function add_list) <Datas>) (end_list)

[amc.dicsac]

Hi thanks just what I need

Sorry can you tell me if this code is well

Code: [Select]

(defun deleteitemlist ()
(vl-load-com)
(setq arte1 (fix arte1))
(setq arte1 (nth arte1 bloNames1)) 
(LM:RemoveNth arte1 bloNames1)
(princ))

(defun LM:RemoveNth ( n l / i )
    (setq i -1)
    (vl-remove-if '(lambda ( x ) (= (setq i (1+ i)) n)) l)
)

[ribarm]

What do you want to achieve with removing nth item from list? Shouldn't you (setq) variable and use it somewhere in calculation?

Code: [Select]

(defun deleteitemlist ( / arte1 bloNames1 bloNames2 ) ;;; - localizing used variables
;;; (vl-load-com) - no need to load VLISP extensions
  ;;; define arte1 variable - it looks from your next line that it's real positive number (initget 4) (setq arte1 (getreal)) or (initget 4) (setq arte1 (getdist))
  (setq arte1 (fix arte1))
  (setq arte1 (nth arte1 bloNames1))
  (setq bloNames2 (LM:RemoveNth (vl-position arte1 bloNames1) bloNames1)) ;;; - setqing new variable to be used later on
  ;;; ... - do your next stuff using bloNames2 variable defined previously
  (princ) ;;; - silent exit
)


[kpblc]

There is some questions: can you change code or not? Do you have source? Could you publicate it?
As an example - see attached lsp