Jump to content

layout lisp (help with edit)

lutcus

By lutcus
in AutoLISP, Visual LISP & DCL

 Share

Recommended Posts

lutcus Apprentice

lutcus

Posted
Posted (edited)

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
lpseifert Grand Master

lpseifert

Posted
Posted
Is it possible to edit this lisp??.
Have you tried?
Tiger Grand Master

Tiger

Posted
Posted

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.

The Buzzard Veteran

The Buzzard

Posted
Posted
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]
     )
   )
 )

The Buzzard Veteran

The Buzzard

Posted
Posted (edited)

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
lutcus Apprentice

lutcus

Posted
  • Author
Posted

I do not understand lisp language :) I am just common user with wide imagination.. :)

The Buzzard Veteran

The Buzzard

Posted
Posted
I do not understand lisp language :) I am just common user with wide imagination.. :)

 

No problem, But try to work on it anyway.

lutcus Apprentice

lutcus

Posted
  • Author
Posted

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..

lutcus Apprentice

lutcus

Posted
  • Author
Posted (edited)

"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
BlackBox Grand Master

BlackBox

Posted
Posted
... 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)

Lee Mac Grand Master

Lee Mac

Posted
Posted

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]

lutcus Apprentice

lutcus

Posted
  • Author
Posted

"(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? :)

lutcus Apprentice

lutcus

Posted
  • Author
Posted

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]

alanjt Grand Master

alanjt

Posted
Posted

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;
             }
           }
         }
       }    
}

alanjt Grand Master

alanjt

Posted
Posted

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)
)

The Buzzard Veteran

The Buzzard

Posted
Posted
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.

alanjt Grand Master

alanjt

Posted
Posted
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. :)

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.

×
 Share
Go to topic listing
×
×
  • Create New...