Programming Challenge 8/22

Programming Challenge 8/22

Sea-Haven
Mentor Mentor
553 Views
5 Replies
Message 1 of 6

Programming Challenge 8/22

Sea-Haven
Mentor
Mentor

I though an interesting challenge would be make a simple dcl code by selecting objects.

 

So for radio buttons start with a block called radiobutton with 1 attribute the description. Say select heading a text, the Ok, Ok_cancel again text. Just window say the buttons. 

 

SeaHaven_2-1647915193378.png

 

Ok if you want to compare some code have  a look at my multi radio Buttons.lsp and change the vl-filename-mktemp to a dcl name and see the resulting code. I am sure plenty out there could use a dcl generator. I use yes / no all the time.

SeaHaven_0-1647914619907.png

Oh the obvious is make all 3 into 1 dcl. Or Multi column radio button dcl etc.

 

0 Likes
554 Views
5 Replies
Replies (5)
Message 2 of 6

john.uhden
Mentor
Mentor

@Sea-Haven 

Hi, Alan.

After all this time, I thought you deserved a response...

I don't get it.

You Aussies are so far ahead, what with winged keels and Ash Barty and all that stuff.

John F. Uhden

0 Likes
Message 3 of 6

Sea-Haven
Mentor
Mentor

Yeah I need to get back to it, I thought it would be useful writing dcl code that you know will work. Rather than missing one bracket or semicolon somewhere.

0 Likes
Message 4 of 6

diagodose2009
Collaborator
Collaborator

Here you view my demo, 

These files*.txt, you rename *.txt with *.dcl

You press the button "Zip" for bCanExit;

pal2_2205111432210021.gif

Ms-Dos applications=Arj.exe, Rar.exe, Zip.exe, Cpkunzip.dll, VolkovCommander,Nc=NortonCommander.

If you need more-Customization of DCL, then you send P.M. here on ->

0 Likes
Message 5 of 6

Sea-Haven
Mentor
Mentor

Its about select say a column of blocks and the lisp code or dcl code is produced. It is preferred that the code produced does write-line of each line of the dcl, the dcl code is then pasted into the lisp code.

 

 

(setq fo (open (setq fname (vl-filename-mktemp "" "" ".dcl")) "w"))
(write-line  "AHbutts : dialog 	{" fo)
(write-line  (strcat "	label =" (chr 34) (nth 0 butlst) (chr 34) " ;" )fo)
(write-line "	: row	{" fo)
...........
.........

 

It would be like a dcl generator, I know some are out there but expensive for say a simple single column dcl.

 

Maybe start with column of text, as labels and choose type radio, value or toggle.

 

YES
NO


1
2
3
4
0 Likes
Message 6 of 6

diagodose2009
Collaborator
Collaborator

 

 

It would be like a dcl generator, I know some are out there but expensive for say a simple single column dcl.
Maybe start with column of text, as labels and choose type radio, value or toggle.

 

 

We have DCL-generator, but You need,  these step/s

A)transform DCL to procedure/s (store,call,load and save on disk) 

B)the tokenizer the variabiles-inside-LISP  BY defun C:

C)compact DCL into strings.

D)parse DCL and extract action/s to list-with-function-s

E)Customize the messages from  DCL, with variabiles/from/autolisp.

-- IF you hire me, then I can develop for you , I can develop many DCL, types,  or huge files.DCL with

  • OurGenerator.of-DCLdll(fast mode)
  • OurGenerator.dll can export DCL and source-lisp, both files type/s.

F)Store-the file*. DCL  on the web, 

G)downloading the files*.DCL  inside Acad.exe

H) set default/s values for toggles.(1=enable 0=disabled)

J)

 

 

 

 

 

0 Likes