« previous next »
Pages: 1 2 [All] |   Go Down

Author Topic: Edit Notes  (Read 3656 times)

0 Members and 1 Guest are viewing this topic.

amc.dicsac

  • Newt
  • Posts: 109
  • Autocad 2008
Edit Notes
« on: November 08, 2016, 12:52:53 PM »
Hi, I need help please.

I do not know how to add the content in an editbox and that appears in poppup_list  :opps:

Code - Auto/Visual Lisp: [Select]
  1. ;; DCL Temporal ---> Lee Mac
  2. (setq BiblioElecVersion "3.3")
  3.  
  4. (defun Biblock:GetSavePath ( / tmp )
  5.     (cond      
  6.         (   (setq tmp (getvar 'ROAMABLEROOTPREFIX))
  7.             (strcat (vl-string-right-trim "\\" (vl-string-translate "/" "\\" tmp)) "\\Support")
  8.         )
  9.         (   (setq tmp (findfile "ACAD.pat"))
  10.             (vl-string-right-trim "\\" (vl-string-translate "/" "\\" (vl-filename-directory tmp)))
  11.         )
  13.     )
  14. )
  15.  
  16. (defun _ax:start ( key lst )
  17.    (start_list key)
  18.    (mapcar 'add_list lst)
  19.    (end_list)
  20.    lst
  21. )
  22.  
  23. (defun c:L44 ( )
  24. (setq ListNotas '("Hello" "Thanks"))
  25.  
  26. ;;----------Ruta temporal y configuración DCL ---------------------------------
  27. ;; Guardamos la ruta con la funcíon (NumInc:GetSavePath)
  28. ;; Reemplzar NumInc:GetSavePath --> Biblock:GetSavePath
  29. ;;-----------------------------------------------------------------------------
  30. (setq savepath (Biblock:GetSavePath))
  31. (setq dcl (strcat savepath "\\Biblioteca_Block" (vl-string-translate "." "-" BiblioElecVersion) ".dcl"))
  32. (setq des (open dcl "w"))
  33. (foreach line
  34. '(  
  35. "ListaFolder: dialog { label = \"Listado de carpetas:\"; width=50; "
  36. "  : edit_box {key = \"key_Notas\"; edit_width = 5; fixed_width = true;}"
  37. "  : button { label = \"&Add\"; mnemonic = \"A\"; key = \"key_Add\"; fixed_width = true; } "
  38. "spacer_1; "
  39. " :list_box { key = \"key_ListNotas\"; width=30; }"
  40. "  : button { label = \" &Cancelar \"; mnemonic = \"C\"; key = \"cancel\"; fixed_width = true; is_cancel = true;} "
  41. " }  "
  42. )
  43. (write-line line des))
  44. (progn (close des) (< 0 (setq dch (load_dialog dcl))))
  45. (if (not (new_dialog "ListaFolder" dch "" (cond (*screenpointlc*) ('(-1 -1)))))
  47. (alert (strcat "\n**ERROR**"))
  48. (exit)))
  49.  
  50.  
  51. ;; Rellenar los valores del dcl
  52. (_ax:start "key_ListNotas" ListNotas)
  53.  
  54. ;;----------------------------------------------------------------
  55. (action_tile "cancel" "(setq *screenpointlc* (done_dialog 1))")
  56. (setq ddiag (start_dialog))
  58. (if (= ddiag 1) (prompt "\nPrograma Cancelado..."))
  59. (setq dch (unload_dialog dch))
  60. (if (and dcl (findfile dcl))
  62. (if (< 0 dch) (unload_dialog dch))
  63. (setvar "cmdecho" 1)
  65.  
Logged
<a href="http:/http://axprogramlisp.blogspot.pe" class="bbc_link" target="_blank">By Alexander Castro</a>

roy_043

  • Water Moccasin
  • Posts: 1895
  • BricsCAD 18
Re: Edit Notes
« Reply #1 on: November 08, 2016, 02:52:12 PM »
Maybe you should study some tutorials first?:
http://web2.airmail.net/terrycad/Tutorials/MyDialogs.htm
Logged

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: Edit Notes
« Reply #2 on: November 08, 2016, 03:35:59 PM »
How is it a lack of respect to provide resources that host the knowledge you seek?

That said, in addition to what roy_043 provided you may wish to read up on set_tile, get_tile, start_list, add_list, end_list and related under "Working with Programmable Dialg Boxes" in the AutoLISP Developer's Guide or the "AutoLISP Reference" if you're already a comfortable LISPer.
Logged
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.com • http://cadanalyst.slack.com • http://linkedin.com/in/cadanalyst

roy_043

  • Water Moccasin
  • Posts: 1895
  • BricsCAD 18
Re: Edit Notes
« Reply #3 on: November 08, 2016, 04:27:45 PM »
Have I missed something? :-D
Logged

kdub_nz

  • Mesozoic keyThumper
  • SuperMod
  • Water Moccasin
  • Posts: 2146
  • class keyThumper<T>:ILazy<T>
Re: Edit Notes
« Reply #4 on: November 08, 2016, 04:45:31 PM »
apparently most of us did .
Logged
Called Kerry in my other life
Retired; but they dragged me back in !
I live at UTC + 13.00
---
some people complain about loading the dishwasher.
Sometimes the question is more important than the answer.

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: Edit Notes
« Reply #5 on: November 08, 2016, 05:04:22 PM »
He had posted "!!!!!!! Is disrespect !!" (sic) after roy_043's post.
Logged
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.com • http://cadanalyst.slack.com • http://linkedin.com/in/cadanalyst

amc.dicsac

  • Newt
  • Posts: 109
  • Autocad 2008
Re: Edit Notes
« Reply #6 on: November 08, 2016, 05:25:40 PM »
He had put "it is a lack of respect", because the answer is of no use to me.

I do not understand what the problem is and because the drama if you do not like what I say then do not read it  :devilsidesmile:
Logged
<a href="http:/http://axprogramlisp.blogspot.pe" class="bbc_link" target="_blank">By Alexander Castro</a>

danallen

  • Guest
Re: Edit Notes
« Reply #7 on: November 08, 2016, 05:27:29 PM »
in my opinion, "Maybe you should study some tutorials first", is slightly disrespectful, but made up for by posting a helpful link. I might suggest rephrasing something like, "after reviewing your code, it looks like you are missing some fundamentals on DCL use, here is a good resource: (link)"
(really wordy rephrasing - and I didn't review the code as my DCL skills are lacking)

but - in my opinion the OP should also learn to not take offense at minor issues, if you are frustrated, draft your response but then sit on it for a day or few hours before posting. Focus on the positive, example someone taking the time to share a post, ignore what you perceive as small petty stuff. Focusing on the negative won't get you more help.

lastly I recognize that roy_043 posts helpful responses all the time and I don't recall any one being rude, so I assume no offense was intended
Logged

Lee Mac

  • Seagull
  • Posts: 12921
  • London, England
Re: Edit Notes
« Reply #8 on: November 08, 2016, 05:32:37 PM »
Logged

amc.dicsac

  • Newt
  • Posts: 109
  • Autocad 2008
Re: Edit Notes
« Reply #9 on: November 08, 2016, 05:40:50 PM »

What it tries to say in my question is that I had reached this part of the code but did not know how to do it so that when writing in the edit_box any text appearing in the poppup_list  :idea:
Logged
<a href="http:/http://axprogramlisp.blogspot.pe" class="bbc_link" target="_blank">By Alexander Castro</a>

danallen

  • Guest
Re: Edit Notes
« Reply #10 on: November 08, 2016, 05:41:35 PM »
leave it to Lee Mac to say in 2 words what took me 40....

Quote from: Lee Mac on November 08, 2016, 05:32:37 PM
Keep cool  :-)
Logged

Lee Mac

  • Seagull
  • Posts: 12921
  • London, England
Re: Edit Notes
« Reply #11 on: November 08, 2016, 05:49:13 PM »
Quote from: amc.dicsac on November 08, 2016, 05:40:50 PM
What it tries to say in my question is that I had reached this part of the code but did not know how to do it so that when writing in the edit_box any text appearing in the poppup_list  :idea:

Essentially:
  • Define string-valued variable storing initial edit box value (this may be an empty string)
  • Redefine variable within action_tile statement for edit box to store edit box $value: (action_tile <edit_box> "(setq myvariable $value)")
  • Check validity of string variable within action_tile statement for 'Add' button: append to list of strings if valid and repopulate list box; else inform user if invalid
See how far you can get with those instructions, and feel free to post your new code asking for additional directions when stuck.  :-)
Logged

kdub_nz

  • Mesozoic keyThumper
  • SuperMod
  • Water Moccasin
  • Posts: 2146
  • class keyThumper<T>:ILazy<T>
Re: Edit Notes
« Reply #12 on: November 08, 2016, 06:28:54 PM »

With due respect to all
Quote
Hi, I need help please.

I do not know how to add the content in an editbox and that appears in poppup_list 

This was the original  question statement.

If I had chosen to respond ( late to the party ) my  post would have been very similar to roy's.
Logged
Called Kerry in my other life
Retired; but they dragged me back in !
I live at UTC + 13.00
---
some people complain about loading the dishwasher.
Sometimes the question is more important than the answer.

amc.dicsac

  • Newt
  • Posts: 109
  • Autocad 2008
Re: Edit Notes
« Reply #13 on: November 08, 2016, 07:53:23 PM »
Quote from: Lee Mac on November 08, 2016, 05:49:13 PM
Quote from: amc.dicsac on November 08, 2016, 05:40:50 PM
What it tries to say in my question is that I had reached this part of the code but did not know how to do it so that when writing in the edit_box any text appearing in the poppup_list  :idea:

Essentially:
  • Define string-valued variable storing initial edit box value (this may be an empty string)
  • Redefine variable within action_tile statement for edit box to store edit box $value: (action_tile <edit_box> "(setq myvariable $value)")
  • Check validity of string variable within action_tile statement for 'Add' button: append to list of strings if valid and repopulate list box; else inform user if invalid
See how far you can get with those instructions, and feel free to post your new code asking for additional directions when stuck.  :-)

Hello Lee
Find this post that helped me a lot https://www.theswamp.org/index.php?topic=51098.msg562361#msg562361, but as it was to imagine the texts that are added to poppup_list are only temporary once closed the autocad is deleted everything.
¿How can I make stored and prevent it from erasing?

Code - Auto/Visual Lisp: [Select]
  1.     ;; DCL Temporal ---> Lee Mac
  2.     (setq BiblioElecVersion "3.3")
  3.      
  4.     (defun Biblock:GetSavePath ( / tmp )
  5.         (cond      
  6.             (   (setq tmp (getvar 'ROAMABLEROOTPREFIX))
  7.                 (strcat (vl-string-right-trim "\\" (vl-string-translate "/" "\\" tmp)) "\\Support")
  8.             )
  9.             (   (setq tmp (findfile "ACAD.pat"))
  10.                 (vl-string-right-trim "\\" (vl-string-translate "/" "\\" (vl-filename-directory tmp)))
  11.             )
  13.         )
  14.     )
  15.      
  16.     (defun _ax:start ( key lst )
  17.        (start_list key)
  18.        (mapcar 'add_list lst)
  19.        (end_list)
  20.        lst
  21.     )
  22.  
  23.    ;; Código ---> kpblc
  24.     (defun _kpblc-list-add-or-subst (lst key value)
  25.     (if (not value)
  26.     (vl-remove-if (function (lambda (x) (= (car x) key))) lst)
  27.       (if (cdr (assoc key lst))
  28.         (subst (cons key value) (assoc key lst) lst)
  29.         (cons (cons key value)
  30.               (vl-remove-if (function (lambda (x) (= (car x) key))
  31.                                       )
  32.                             lst
  33.                             )
  34.               )
  35.         )
  36.       )
  37.     )
  38.  
  39.  
  40.      (defun c:L44 ( )
  41.  
  42.   ;; Código ---> kpblc
  43.   (defun fun_callback (key value ref-list)
  44.     (cond ((= key "key_Add")
  45.      (set ref-list
  46.       (_kpblc-list-add-or-subst (eval ref-list)
  47.                                           "key_ListNotas"
  48.                                           (append (cdr (assoc "key_ListNotas" (eval ref-list))) (list (get_tile "key_Notas")))
  49.                                           )
  50.                 ) ;_ end of set
  51.            (start_list "key_ListNotas" 3)
  52.            (mapcar (function add_list) (cdr (assoc "key_ListNotas" (eval ref-list))))
  53.            (end_list)
  54.            )
  55.           )
  56.     )
  57.      
  58.     ;;----------Ruta temporal y configuración DCL ---------------------------------
  59.     ;; Guardamos la ruta con la funcíon (NumInc:GetSavePath)
  60.     ;; Reemplzar NumInc:GetSavePath --> Biblock:GetSavePath
  61.     ;;-----------------------------------------------------------------------------
  62.     (setq savepath (Biblock:GetSavePath))
  63.     (setq dcl (strcat savepath "\\Biblioteca_Block" (vl-string-translate "." "-" BiblioElecVersion) ".dcl"))
  64.     (setq des (open dcl "w"))
  65.     (foreach line
  66.     '(  
  67.     "ListaFolder: dialog { label = \"Listado de carpetas:\"; width=50; "
  68.     "  : edit_box {key = \"key_Notas\"; edit_width = 5; fixed_width = true;}"
  69.     "  : button { label = \"&Add\"; mnemonic = \"A\"; key = \"key_Add\"; fixed_width = true; } "
  70.     "spacer_1; "
  71.     " :list_box { key = \"key_ListNotas\"; width=30; }"
  72.     "  : button { label = \" &Cancelar \"; mnemonic = \"C\"; key = \"cancel\"; fixed_width = true; is_cancel = true;} "
  73.     " }  "
  74.     )
  75.     (write-line line des))
  76.     (progn (close des) (< 0 (setq dch (load_dialog dcl))))
  77.     (if (not (new_dialog "ListaFolder" dch "(fun_callback $key $value 'dcl_lst)" (cond (*screenpointlc*) ('(-1 -1)))))
  78.     (progn
  79.     (alert "\n**ERROR**")
  80.     (exit)))
  81.      
  82.     ;;----------------------------------------------------------------
  83.     (action_tile "cancel" "(setq *screenpointlc* (done_dialog 1))")
  84.            
  85.     (_ax:start "key_ListNotas" (cdr (assoc "key_ListNotas" dcl_lst)))
  86.  
  87.     (setq ddiag (start_dialog))
  88.     (princ)
  89.     (if (= ddiag 1) (prompt "\nPrograma Cancelado..."))
  90.     (setq dch (unload_dialog dch))
  91.     (if (and dcl (findfile dcl))
  92.     (vl-file-delete dcl))
  93.     (if (< 0 dch) (unload_dialog dch))
  94.     (princ))
  95.  

Logged
<a href="http:/http://axprogramlisp.blogspot.pe" class="bbc_link" target="_blank">By Alexander Castro</a>

danallen

  • Guest
Re: Edit Notes
« Reply #14 on: November 08, 2016, 08:15:39 PM »
Quote from: amc.dicsac on November 08, 2016, 07:53:23 PM
¿How can I make stored and prevent it from erasing?

that depends on if you want to store info in a drawing, or in a separate file so that all drawings use same info. If in the drawing, I use Tony Tanzillo's DWGVAR routine, which can be found here: http://www.verycomputer.com/9_8e8a802661b9179e_1.htm#p4

If for all drawings, depending on how much info you need to store, you could use the registry via (SETENV "yourVarName" "info") & (GETENV "yourVarName"), or you could read/write to a file, say for example using Lee Mac's utilities:
http://www.lee-mac.com/writecsv.html http://www.lee-mac.com/readcsv.html
Logged

amc.dicsac

  • Newt
  • Posts: 109
  • Autocad 2008
Re: Edit Notes
« Reply #15 on: November 08, 2016, 08:27:53 PM »
Clarifying my question, I would like to be recorded on the system the bad thing is not to use the functions (vl-registry-write)
Logged
<a href="http:/http://axprogramlisp.blogspot.pe" class="bbc_link" target="_blank">By Alexander Castro</a>

amc.dicsac

  • Newt
  • Posts: 109
  • Autocad 2008
Re: Edit Notes
« Reply #16 on: November 10, 2016, 12:47:31 PM »
Code - Auto/Visual Lisp: [Select]
  1.     ;; DCL Temporal ---> Lee Mac
  2.     (setq BiblioElecVersion "3.3")
  3.      
  4.     (defun Biblock:GetSavePath ( / tmp )
  5.         (cond      
  6.             (   (setq tmp (getvar 'ROAMABLEROOTPREFIX))
  7.                 (strcat (vl-string-right-trim "\\" (vl-string-translate "/" "\\" tmp)) "\\Support")
  8.             )
  9.             (   (setq tmp (findfile "ACAD.pat"))
  10.                 (vl-string-right-trim "\\" (vl-string-translate "/" "\\" (vl-filename-directory tmp)))
  11.             )
  13.         )
  14.     )
  15.      
  16.     (defun _ax:start ( key lst )
  17.        (start_list key)
  18.        (mapcar 'add_list lst)
  19.        (end_list)
  20.        lst
  21.     )
  22.  
  23.    ;; Código ---> kpblc
  24.     (defun _kpblc-list-add-or-subst (lst key value)
  25.     (if (not value)
  26.     (vl-remove-if (function (lambda (x) (= (car x) key))) lst)
  27.       (if (cdr (assoc key lst))
  28.         (subst (cons key value) (assoc key lst) lst)
  29.         (cons (cons key value)
  30.               (vl-remove-if (function (lambda (x) (= (car x) key))
  31.                                       )
  32.                             lst
  33.                             )
  34.               )
  35.         )
  36.       )
  37.     )
  38.  
  39.   ;; Código ---> kpblc
  40.   (defun fun_callback (key value ref-list)
  41.     (cond ((= key "key_Add")
  42.      (set ref-list
  43.       (_kpblc-list-add-or-subst (eval ref-list)
  44.                                           "key_ListNotas"
  45.                                           (append (cdr (assoc "key_ListNotas" (eval ref-list))) (list (get_tile "key_Notas")))
  46.                                           )
  47.                 ) ;_ end of set
  48.            (start_list "key_ListNotas" 3)
  49.            (mapcar (function add_list) (cdr (assoc "key_ListNotas" (eval ref-list))))
  50.            (end_list)
  51.            )
  52.           )
  53.     )
  54.  
  55.      (defun StringListRegistryWrite (regKey valName lst)
  56.   (read
  58.       regKey
  59.       valName
  60.       (if lst
  61.         (vl-prin1-to-string lst)
  62.         ""
  63.       )
  64.     )
  65.   )
  66. )
  67.  
  68. (defun StringListRegistryRead (regKey valName)
  69.   (read
  70.     (cond
  71.       ((vl-registry-read regKey valName))
  72.       ("")
  73.     )
  74.   )
  75. )
  76.  
  77.      
  78.     (defun c:L44 (/ Maestrokey2 )
  79.      (vl-load-com)
  80.    (setq Maestrokey22 (StringListRegistryRead "HKEY_CURRENT_USER\\SOFTWARE\\Maestrokey2" "Maestrokey22"))
  81.     ;;----------Ruta temporal y configuración DCL ---------------------------------
  82.     ;; Guardamos la ruta con la funcíon (NumInc:GetSavePath)
  83.     ;; Reemplzar NumInc:GetSavePath --> Biblock:GetSavePath
  84.     ;;-----------------------------------------------------------------------------
  85.     (setq savepath (Biblock:GetSavePath))
  86.     (setq dcl (strcat savepath "\\Biblioteca_Block" (vl-string-translate "." "-" BiblioElecVersion) ".dcl"))
  87.     (setq des (open dcl "w"))
  88.     (foreach line
  89.     '(  
  90.     "ListaFolder: dialog { label = \"Listado de carpetas:\"; width=50; "
  91.     "  : edit_box {key = \"key_Notas\"; edit_width = 5; fixed_width = true;}"
  92.     "  : button { label = \"&Add\"; mnemonic = \"A\"; key = \"key_Add\"; fixed_width = true; } "
  93.     "spacer_1; "
  94.     " :list_box { key = \"key_ListNotas\"; width=30; }"
  95.     "  : button { label = \" &Cancelar \"; mnemonic = \"C\"; key = \"cancel\"; fixed_width = true; is_cancel = true;} "
  96.     " }  "
  97.     )
  98.     (write-line line des))
  99.     (progn (close des) (< 0 (setq dch (load_dialog dcl))))
  100.     (if (not (new_dialog "ListaFolder" dch  "(fun_callback $key $value 'dcl_lst)" (cond (*screenpointlc*) ('(-1 -1)))))
  101.     (progn
  102.     (alert "\n**ERROR**")
  103.     (exit)))
  104.  
  105.  
  106.     ;;----------------------------------------------------------------
  107.     (action_tile "cancel" "(setq *screenpointlc* (done_dialog 1))")
  108.  
  109.     (_ax:start "key_ListNotas" (StringListRegistryWrite "HKEY_CURRENT_USER\\SOFTWARE\\Maestrokey2" "Maestrokey22" (cdr (assoc "key_ListNotas" dcl_lst))))
  110.     (setq ddiag (start_dialog))
  111.     (princ)
  112.     (if (= ddiag 1) (prompt "\nPrograma Cancelado..."))
  113.     (setq dch (unload_dialog dch))
  114.     (if (and dcl (findfile dcl))
  115.     (vl-file-delete dcl))
  116.     (if (< 0 dch) (unload_dialog dch))
  117.     (setvar "cmdecho" 1)
  118.     (princ))
  119.  
  120.  
Logged
<a href="http:/http://axprogramlisp.blogspot.pe" class="bbc_link" target="_blank">By Alexander Castro</a>
Pages: 1 2 [All] |   Go Up
« previous next »