Author Topic: help fast!!! Popup_list and List_box  (Read 4600 times)

0 Members and 1 Guest are viewing this topic.

PKENEWELL

  • Bull Frog
  • Posts: 320
Re: help fast!!! Popup_list and List_box
« Reply #15 on: March 31, 2016, 03:38:09 PM »
Attached is a modified version of your code. I have corrected the issues and removed unneeded code.
"When you are asked if you can do a job, tell 'em, 'Certainly I can!' Then get busy and find out how to do it." - Theodore Roosevelt

amc.dicsac

  • Newt
  • Posts: 109
  • Autocad 2008
Re: help fast!!! Popup_list and List_box
« Reply #16 on: March 31, 2016, 03:40:59 PM »
It would be interesting find out more about (VL-REGISTRY) USED AS THE ADDITION quisera NEVER KNOW ABOUT THE FUNCTION (vlax-ldata-put)
<a href="http:/http://axprogramlisp.blogspot.pe" class="bbc_link" target="_blank">By Alexander Castro</a>

amc.dicsac

  • Newt
  • Posts: 109
  • Autocad 2008
Re: help fast!!! Popup_list and List_box
« Reply #17 on: April 05, 2016, 07:17:06 PM »
Hi, how are you:

After much achieved what I wanted to thank you for your support, now I have another problem eh added a toggle and boot me this error; error: bad argument type:
fixnump: nil

Could you help me please

https://www.dropbox.com/sh/nzeyisvcy0pgn95/AADEUejcdwFIu7ChiRh_yxFra?dl=0
<a href="http:/http://axprogramlisp.blogspot.pe" class="bbc_link" target="_blank">By Alexander Castro</a>

PKENEWELL

  • Bull Frog
  • Posts: 320
Re: help fast!!! Popup_list and List_box
« Reply #18 on: April 08, 2016, 12:22:15 PM »
Hi amc.dicsac,

I think your main problem in the code it that your attempting to do the (unload_dialog) and delete the dcl file while you are still in your "(while" loop. You need to move those outside the while loop. You can leave the dialog loaded if you are re-entering it, and just call (new_dialog) again to re-display it. See the following snippet of your code:

Code - Auto/Visual Lisp: [Select]
  1. (setq ddiag (start_dialog))
  2. ;; Remove this code and move outside of while loop
  3. ;; (unload_dialog dch)
  4. ;; (if (and dcl (findfile dcl))
  5. ;;      (vl-file-delete dcl))
  6. ;;     (if (< 0 dch)
  7. ;;         (unload_dialog dch)
  8. ;;     )
  9.     (princ)
  10. (if (= ddiag 1) (prompt "\nPrograma Cancelado..."))
  11. (if (= ddiag 2) (insertax))
  12. ;;(if (= ddiag 3) (open_dwg))
  13.   ) ;; fin de while del toggle
  14.  
  15. ;; Put unload DCL code here
  16. ;; ====================
  17. (if (and dcl (findfile dcl))
  18.      (vl-file-delete dcl))
  19.     (if (< 0 dch)
  20.         (unload_dialog dch)
  21.     )
  22. ;; ===================
  23. (setvar "cmdecho" 1)
"When you are asked if you can do a job, tell 'em, 'Certainly I can!' Then get busy and find out how to do it." - Theodore Roosevelt

PKENEWELL

  • Bull Frog
  • Posts: 320
Re: help fast!!! Popup_list and List_box
« Reply #19 on: April 08, 2016, 12:30:33 PM »
P.S. I think you would get allot more help here if you give proper credit in your comments to the author of code snippets you borrow from other people here such as Lee Mac (the "NumInc:GetSavePath" function for example).
"When you are asked if you can do a job, tell 'em, 'Certainly I can!' Then get busy and find out how to do it." - Theodore Roosevelt

PKENEWELL

  • Bull Frog
  • Posts: 320
Re: help fast!!! Popup_list and List_box
« Reply #20 on: April 08, 2016, 01:18:26 PM »
Attached is another rewrite of your program, just correcting the parts that are broken. I have not touched your code that is still in development. Please see my comments in your code to see what I have done.
"When you are asked if you can do a job, tell 'em, 'Certainly I can!' Then get busy and find out how to do it." - Theodore Roosevelt