Jump to content

layout lisp (help with edit)


lutcus

Recommended Posts

I found this lisp. It's good. but its unhandy a little bit.. because, when you select the layout you want from the list, you have to press "okey" button. I want to press double (or once) on the name of layout (without select the name and press ok button) Is it possible to edit this lisp??. Or maybe there is another more comfortable lisp to turn on the layout you want...

 

the lisp I have and I need to change...:

LAYOUTS-LK.lsp

Edited by lutcus
Link to comment
Share on other sites

So wait, its too hard to click TWICE instead of ONCE? And why not use the Layout-buttons at the bottom of the screen?

 

I recommend that you head over to Afralisp.net and learn to write Lisps yourself if you are that particular with how you want things.

Link to comment
Share on other sites

I found this lisp. It's good. but its unhandy a little bit.. because, when you select the layout you want from the list, you have to press "okey" button. I want to press double (or once) on the name of layout (without select the name ant press ok button) Is it possible to edit this lisp??. Or maybe there is another more comfortable lisp to turn on the layout you want...

 

the lisp I have and I need to change...:

[ATTACH]23397[/ATTACH]

 

For one thing you have two extra right brackets in that program. So it will not work to begin with.

Also you did not post the dcl file, So how will anyone be able to help you.

       ;;;--- If a layout was selected...
       (if selectedLayout
           ;;;--- Set the current layout
           (command "layout" "set" selectedLayout)
[color=red]         )[/color]
[color=red]       )  [/color]
     )
   )
 )

Link to comment
Share on other sites

I did some searching and this lisp is actually call LAYOUTS.lsp on JefferyPSanders.com

 

Is it the alert that you want to eliminate? I noticed your code has been modified in the area where the two extra brackets are.

This is because someone also removed (progn when it should have been kept in.

 

 

Below is the code from JPS with the alert removed, But progn kept in.

So no bracket removal is needed. The alert has been eliminated.

Command Syntax: LAYOUTS

 

I have to assume the second OK you were referring to was the ALERT box that pops up after you selected the layout and clicked the first OK on the dialog.

 

This is the area that you seem to have edited.

       ;;;--- If a layout was selected...
       (if selectedLayout
[color=seagreen]          (progn                                ;You removed this when it should have been kept in.[/color]
           ;;;--- Set the current layout
           (command "layout" "set" selectedLayout)
           ;;;--- Inform the user
[color=magenta]          (alert (strcat "Current layout is --> " selectedLayout)) ; You want this removed I assume[/color]
         )
       )  
     )
   )
 )

 

This is how it should look.

     ;;;--- If the user pressed the okay button
     (if(= ddiag 2)
       ;;;--- If a layout was selected...
       (if selectedLayout
         (progn
           ;;;--- Set the current layout
           (command "layout" "set" selectedLayout)
         )
       )  
     )
   )
 )

LAYOUTS.dcl

LAYOUTS.lsp

Edited by The Buzzard
Link to comment
Share on other sites

It's not hard.. it's just unhandy.. :) I'm always try to make my technical job as quick as I can..Speed is my second name in my job..and every time I press twice - It's sucks me.. :) I'm work in civil engineering.. And I drawing a lot of... :) I know it's difficult to understand me, if you drawing in 5 layouts..

Link to comment
Share on other sites

"Is it the alert that you want to eliminate?" yes I did it..by myself.. i try to make smth..but I'm not lisp writer.. so..i Ask to help for you.. Thank you very much for reply

Edited by lutcus
Link to comment
Share on other sites

... when you select the layout you want from the list, you have to press "okey" button.

 

So wait, its too hard to click TWICE instead of ONCE?

 

 

... Those gosh-darned Minnesota-Wisconsin-Canada programmers, always have to make things so difficult. :lol: (Just kidding, don't send me hate mail)

Link to comment
Share on other sites

To allow the doubleclicking action:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ll [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] [color=black]*error*[/color] _WriteDialogDefinition _GetSavePath DCLPath DCLFile DCLFlag DCLHandle lst ptr [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [i][color=#990099];; © Lee Mac 2010[/color][/i]

 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] [color=black]*error*[/color] [b][color=RED]([/color][/b] msg [b][color=RED])[/color][/b]
   
   [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] DCLHandle [b][color=RED]([/color][/b][b][color=BLUE]unload_dialog[/color][/b] DCLHandle[b][color=RED]))[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] openfile  [b][color=RED]([/color][/b][b][color=BLUE]close[/color][/b] openfile[b][color=RED]))[/color][/b]
   
   [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]wcmatch[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] msg[b][color=RED])[/color][/b] [b][color=#a52a2a]"*BREAK,*CANCEL*,*EXIT*"[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"\n** Error: "[/color][/b] msg [b][color=#a52a2a]" **"[/color][/b][b][color=RED])))[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] _WriteDialogDefinition [b][color=RED]([/color][/b] filename [b][color=BLUE]/[/color][/b] openfile [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
     [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]findfile[/color][/b] filename[b][color=RED])[/color][/b] [b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] openfile [b][color=RED]([/color][/b][b][color=BLUE]open[/color][/b] filename [b][color=#a52a2a]"w"[/color][/b][b][color=RED]))[/color][/b]

       [b][color=RED]([/color][/b][b][color=BLUE]foreach[/color][/b] l
          [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#a52a2a]"ll : dialog { label = \"Select Layout to Make Current\"; spacer;"[/color][/b]
            [b][color=#a52a2a]": list_box { key = \"lay\"; allow_accept = true; alignment = centered; } ok_cancel; }"[/color][/b][b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]write-line[/color][/b] l openfile[b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]

       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] openfile [b][color=RED]([/color][/b][b][color=BLUE]close[/color][/b] openfile[b][color=RED]))[/color][/b] [b][color=BLUE]T[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] _GetSavePath [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] tmp [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
     [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]ROAMABLEROOTPREFIX[b][color=RED]))[/color][/b]

       [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#a52a2a]"\\"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]substr[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] tmp[b][color=RED])))[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] tmp [b][color=#a52a2a]"\\"[/color][/b][b][color=RED]))[/color][/b]
       [b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] tmp [b][color=#a52a2a]"Support"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]findfile[/color][/b] [b][color=#a52a2a]"ACAD.pat"[/color][/b][b][color=RED]))[/color][/b]

       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]vl-filename-directory[/color][/b] tmp[b][color=RED]))[/color][/b]

       [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#a52a2a]"\\"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]substr[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] tmp[b][color=RED])))[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]substr[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]1-[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] tmp[b][color=RED]))))[/color][/b]
       [b][color=RED])[/color][/b]       
       tmp
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
   [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-file-directory-p[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLPath [b][color=RED]([/color][/b]_GetSavePath[b][color=RED]))))[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Locate Save Path **"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]    
   [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b]_WriteDialogDefinition [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLFile [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] DCLPath [b][color=#a52a2a]"\\LMAC_SelectLayout.dcl"[/color][/b][b][color=RED]))))[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Write Dialog Definition **"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]<=[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLHandle [b][color=RED]([/color][/b][b][color=BLUE]load_dialog[/color][/b] DCLFile[b][color=RED]))[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Find Dialog File **"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]new_dialog[/color][/b] [b][color=#a52a2a]"ll"[/color][/b] DCLHandle[b][color=RED]))[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Load Layout Select Dialog **"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]t[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]start_list[/color][/b] [b][color=#a52a2a]"lay"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]add_list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] lst [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#a52a2a]"Model"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]layoutlist[/color][/b][b][color=RED]))))[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]end_list[/color][/b][b][color=RED])[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]set_tile[/color][/b] [b][color=#a52a2a]"lay"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ptr [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-position[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]CTAB[b][color=RED])[/color][/b] lst[b][color=RED]))))[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]action_tile[/color][/b] [b][color=#a52a2a]"lay"[/color][/b] [b][color=#a52a2a]"(setq ptr $value)"[/color][/b][b][color=RED])[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLFlag [b][color=RED]([/color][/b][b][color=BLUE]start_dialog[/color][/b][b][color=RED])[/color][/b] DCLHandle [b][color=RED]([/color][/b][b][color=BLUE]unload_dialog[/color][/b] DCLHandle[b][color=RED]))[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]=[/color][/b] [b][color=#009900]1[/color][/b] DCLFlag[b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=DARKRED]'[/color][/b]CTAB [b][color=RED]([/color][/b][b][color=BLUE]nth[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]atoi[/color][/b] ptr[b][color=RED])[/color][/b] lst[b][color=RED]))[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n*Cancel*"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
[b][color=RED])[/color][/b]

Link to comment
Share on other sites

"(alert (strcat "Current layout is --> " selectedLayout)) ; You want this removed I assume.."

 

I removed it by my self before i create this Thread..and it's work for me well.. i mean there are no alert.but i'm talking not about alert... I want this lisp without "selecting the name of layout and press "okey" button (and without "alert" too)".. I Want to turn on my layout just when clicked on the name once (or double click on name) ..

Is it possible? Because I think It's unhandy.. you chose you layout in list and you must go down press "OKEY" button ..WHY? :)

Link to comment
Share on other sites

THANK YOU!!! that what i looked for!!! thanx a LOT!!

 

To allow the doubleclicking action:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ll [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] [color=black]*error*[/color] _WriteDialogDefinition _GetSavePath DCLPath DCLFile DCLFlag DCLHandle lst ptr [b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [i][color=#990099];; © Lee Mac 2010[/color][/i]

 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] [color=black]*error*[/color] [b][color=RED]([/color][/b] msg [b][color=RED])[/color][/b]
   
   [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] DCLHandle [b][color=RED]([/color][/b][b][color=BLUE]unload_dialog[/color][/b] DCLHandle[b][color=RED]))[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] openfile  [b][color=RED]([/color][/b][b][color=BLUE]close[/color][/b] openfile[b][color=RED]))[/color][/b]
   
   [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]wcmatch[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] msg[b][color=RED])[/color][/b] [b][color=#a52a2a]"*BREAK,*CANCEL*,*EXIT*"[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"\n** Error: "[/color][/b] msg [b][color=#a52a2a]" **"[/color][/b][b][color=RED])))[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] _WriteDialogDefinition [b][color=RED]([/color][/b] filename [b][color=BLUE]/[/color][/b] openfile [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
     [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]findfile[/color][/b] filename[b][color=RED])[/color][/b] [b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] openfile [b][color=RED]([/color][/b][b][color=BLUE]open[/color][/b] filename [b][color=#a52a2a]"w"[/color][/b][b][color=RED]))[/color][/b]

       [b][color=RED]([/color][/b][b][color=BLUE]foreach[/color][/b] l
          [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#a52a2a]"ll : dialog { label = \"Select Layout to Make Current\"; spacer;"[/color][/b]
            [b][color=#a52a2a]": list_box { key = \"lay\"; allow_accept = true; alignment = centered; } ok_cancel; }"[/color][/b][b][color=RED])[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]write-line[/color][/b] l openfile[b][color=RED])[/color][/b]
       [b][color=RED])[/color][/b]

       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] openfile [b][color=RED]([/color][/b][b][color=BLUE]close[/color][/b] openfile[b][color=RED]))[/color][/b] [b][color=BLUE]T[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] _GetSavePath [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] tmp [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
     [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]ROAMABLEROOTPREFIX[b][color=RED]))[/color][/b]

       [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#a52a2a]"\\"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]substr[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] tmp[b][color=RED])))[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] tmp [b][color=#a52a2a]"\\"[/color][/b][b][color=RED]))[/color][/b]
       [b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] tmp [b][color=#a52a2a]"Support"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]findfile[/color][/b] [b][color=#a52a2a]"ACAD.pat"[/color][/b][b][color=RED]))[/color][/b]

       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]vl-filename-directory[/color][/b] tmp[b][color=RED]))[/color][/b]

       [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#a52a2a]"\\"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]substr[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] tmp[b][color=RED])))[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]substr[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]1-[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] tmp[b][color=RED]))))[/color][/b]
       [b][color=RED])[/color][/b]       
       tmp
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
   [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-file-directory-p[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLPath [b][color=RED]([/color][/b]_GetSavePath[b][color=RED]))))[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Locate Save Path **"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]    
   [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b]_WriteDialogDefinition [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLFile [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] DCLPath [b][color=#a52a2a]"\\LMAC_SelectLayout.dcl"[/color][/b][b][color=RED]))))[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Write Dialog Definition **"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]<=[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLHandle [b][color=RED]([/color][/b][b][color=BLUE]load_dialog[/color][/b] DCLFile[b][color=RED]))[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Find Dialog File **"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]new_dialog[/color][/b] [b][color=#a52a2a]"ll"[/color][/b] DCLHandle[b][color=RED]))[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Load Layout Select Dialog **"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]t[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]start_list[/color][/b] [b][color=#a52a2a]"lay"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]add_list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] lst [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#a52a2a]"Model"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]layoutlist[/color][/b][b][color=RED]))))[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]end_list[/color][/b][b][color=RED])[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]set_tile[/color][/b] [b][color=#a52a2a]"lay"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ptr [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-position[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]CTAB[b][color=RED])[/color][/b] lst[b][color=RED]))))[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]action_tile[/color][/b] [b][color=#a52a2a]"lay"[/color][/b] [b][color=#a52a2a]"(setq ptr $value)"[/color][/b][b][color=RED])[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLFlag [b][color=RED]([/color][/b][b][color=BLUE]start_dialog[/color][/b][b][color=RED])[/color][/b] DCLHandle [b][color=RED]([/color][/b][b][color=BLUE]unload_dialog[/color][/b] DCLHandle[b][color=RED]))[/color][/b]

     [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]=[/color][/b] [b][color=#009900]1[/color][/b] DCLFlag[b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=DARKRED]'[/color][/b]CTAB [b][color=RED]([/color][/b][b][color=BLUE]nth[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]atoi[/color][/b] ptr[b][color=RED])[/color][/b] lst[b][color=RED]))[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n*Cancel*"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED])[/color][/b]
   [b][color=RED])[/color][/b]
 [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
[b][color=RED])[/color][/b]

Link to comment
Share on other sites

For the curious, below has the required change/addition (marked in red):

 

LAYOUTS : dialog {
       label = "Select Layout to make Current";
       : column {
         : row {
           : boxed_column {
             : list_box {
               key = "lays";
               label = "Layouts:";
               [color=red]allow_accept = true;[/color]
               multiple_select = false;
               width = 40;
             }
           }   
         }
         : row {
           : boxed_row {
             : button {
               key = "accept";
               label = "  Okay  ";
               is_default = true;
             }
             : button {
               key = "cancel";
               label = "  Cancel  ";
               is_default = false;
               is_cancel = true;
             }
           }
         }
       }    
}

Link to comment
Share on other sites

I'm confused, why not just select the desired layout tab from where they are displayed at the bottom of the screen?

 

tabs.png

 

For fun and the DosLib users...

 

(defun c:Test (/ lst tab)
 (if (setq tab (dos_popupmenu (setq lst (cons "Model" (layoutlist)))))
   (setvar 'ctab (nth tab lst))
 )
 (princ)
)

Link to comment
Share on other sites

I'm confused, why not just select the desired layout tab from where they are displayed at the bottom of the screen?

 

[ATTACH]23407[/ATTACH]

 

For fun and the DosLib users...

 

(defun c:Test (/ lst tab)
(if (setq tab (dos_popupmenu (setq lst (cons "Model" (layoutlist)))))
(setvar 'ctab (nth tab lst))
)
(princ)
)

 

Hey Alan,

 

Its suppose to make it easier to find a particular tab if you are the type to have alot of paper space tabs in your drawing and are too lazy to scroll through them.

Link to comment
Share on other sites

Hey Alan,

 

Its suppose to make it easier to find a particular tab if you are the type to have alot of paper space tabs in your drawing and are too lazy to scroll through them.

Right on; that makes sense.

Well, then exclude everything above: For fun and the DosLib users... and just read from there. :)

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...