Author Topic: Convert multpiple strncat to lambda(x) of list  (Read 1051 times)

0 Members and 1 Guest are viewing this topic.

d2010

  • Bull Frog
  • Posts: 323
Convert multpiple strncat to lambda(x) of list
« on: August 04, 2021, 01:20:17 PM »
Can you transform this block, (progn...) code to lambda?
If you lose time with big-source/s-EdCL  for re-format, then you can make a demo.lsp  with the adcl, not the edcl.
  (progn (setq adcl "")
            (setq adcl (strcat adcl  "1"))
            (setq adcl (strcat adcl  "2"))
            (setq adcl (strcat adcl  "3"))
......
            (setq adcl (strcat adcl  "9"))
            (strlen adcl)
   )

Thanks....

Code: [Select]
(progn  (sEtq edcl "" )
 (setq   edcl (strCat edcl
 "image_sliderH : slider { min_value = -1; max_value = 100; layout = horizontal ; height = 0; width = 100;}\npp_raceaf : dialog \n { label = \"CursorColor for model-space\";\n : boxed_column { \n : text { key = \"q\";label = \"Sizeof CrossHair\";alignment=center;}\n : image_sliderH {key = \"x1\";}\n }\n : boxed_row { \n : button { key=\"rosu\"; label=\"Red=Rosu\";}\n : button { key=\"galb\"; label=\"Yellow=Galben\";}\n : button { key=\"cyan\"; label=\"Cyan\";}\n : button { key=\"blue\"; label=\"Blue=albastru\";}\n"));;T915@:02820
 (setq   edcl (strCat edcl " : button { key=\"mage\"; label=\"Magenta\";}\n : button { key=\"ros2\"; label=\"Rosu2\";}\n : button { key=\"albc\"; label=\"White=Albul\";}\n : button { key=\"papi\"; label=\"Paper218\";}\n }\n : popup_list {\n label = \"pDestinationView\";\n mnemonic = \"D\";\n edit_width = 30;\n key = \"pDestination\";\n list = \"0.Default\\n1.addToModelSpace\\n2.addToLayoutDict\\n3.addToWorkSet\";\n }\n : text { key = \"1\"; label = \"You change Color for CursorHair\";alignment=left;}\n : text { key = \"2\"; label = \".......... "));;T915@:02821
 (setq   edcl (strCat edcl "activati 'SNAP' de jos\";alignment=left;}\n ok_cancel;\n}\n "))
   (strlen edcl)
  )
« Last Edit: August 04, 2021, 01:26:19 PM by d2010 »

JohnK

  • Administrator
  • Seagull
  • Posts: 10605
Re: Convert multpiple strncat to lambda(x) of list
« Reply #1 on: August 04, 2021, 01:43:27 PM »
No need for the "lambda (x)" construct; use apply instead.

Code - Auto/Visual Lisp: [Select]
  1. (setq listofstrings '("1" "2" "3" "4" "5" "6" "7")
  2.       adcl ""
  3.       adcl (apply 'strcat listofstrings))
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org