DCL multiple text boxes in line and file selection?

[TemporaryCAD]

How would I go about making something like this:

 

 

 

Additionally, would it be possible to embed the (getfiled) window into a DCL window, so I can have file selection at the same time as data entry?

 

This is my first time using DCL, and I haven't had much luck finding resources relating to these questions.  Thanks!

[mhupp]

A good resource for making DCL

https://autolisp-exchange.com/Tutorials/MyDialogs.htm

 

(setq total (rtos (length (setq lst (layoutlist)))2 0)) ;total number of layouts
(setq pos (rtos (+ (vl-position (getvar 'ctab) lst) 1)2 0)) ;find the postion in the list
(prompt (strcat "\n" pos " of " total)); output "1 of 3"

 

 

--edit

See what rlx did here

 

 

Edited August 17, 2022 by mhupp

[TemporaryCAD]

I found a hacky workaround - Here's an image:

 

And here's the dcl for the row:

: row {
      
      : edit_box{
      label = "Enter Sheet Number:                                                           ";
      mnemonic = "S";
      key = "number";
      alignment = right;
      edit_limit = 2;
      edit_width = 2;
      }
      
      : edit_box{
      label = "of";
      key = "number2";
      alignment = left;
      edit_limit = 2;
      edit_width = 2;
      }
    }

 

It turns out adding a bunch of spaces will mess with the spacing.  I hope this helps someone else!  

Edited August 18, 2022 by TemporaryCAD

[BIGAL]

Maybe this as an alternative can be made into more input  lines.

 

Multi GETVALS.lsp

 

(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setq ans (AH:getvalsm (list "Enter sheet values " "Sheet number  " 5 4 "1" "Of " 5 4 "x")))

 

Edited August 23, 2022 by BIGAL