Topic: Lisp routine loader with slides

[TJAM51]

Here is the button information


}
              : button {
                label = "Insert Block";
                key = "insert";
                fixed_width = true;
                width = 8;
                mnemonic = "I";
                is_tab_stop = true;


This is the only entry inserting a block. If I replace this with load lisp in order to have an associateiong with the slides this wiould have to be a wild card....maybe not

[M-dub]

Ok, I think I'm lost now...
Where's that code from?  Do you have any files you could send me to play with?

[TJAM51]

There are several files. The files are generated after you compile the LBA files. The files are as follows:



LIBRARY.LBA (libraryfile)


C:\Program Files\ACAD2000\SUPPORT\Cpdead_side.sld
I:\Project Coordination\blocks\New Blocks\Monostand\CP+\Cpdead_side.dwg
C:\Program Files\ACAD2000\SUPPORT\Cpdead_top.sld
I:\Project Coordination\blocks\New Blocks\Monostand\CP+\Cpdead_top.dwg
C:\Program Files\ACAD2000\SUPPORT\Cpend.sld
I:\Project Coordination\blocks\New Blocks\Monostand\CP+\Cpend.dwg
C:\Program Files\ACAD2000\SUPPORT\Cpstress_side.sld
I:\Project Coordination\blocks\New Blocks\Monostand\CP+\Cpstress_side.dwg
C:\Program Files\ACAD2000\SUPPORT\Cpstress_top.sld
I:\Project Coordination\blocks\New Blocks\Monostand\CP+\Cpstress_top.dwg


LIBRARY.DCL

LIBRARY : dialog {
          label = "Block Library Application - Copyright 2004 by JefferyPSanders.com  All rights reserved.";
          : text {
            key = "sldname";
          }
          : boxed_column {
            : row {
              : image {
                key = "sld";
                height = 20;
                aspect_ratio = 1.5;
                color = 0;
                is_tab_stop = false;
              }
              : column {
                : popup_list {
                  key = "libraries";
                  multiple_select = "FALSE";
                  width = 25;
                }
                : list_box {
                  key = "sldlist";
                  height = 15;
                  width = 25;
                  is_tab_stop = true;
                }
              }
            }
            : row {
              : button {
                label = "Create a New Library";
                key = "create";
                fixed_width = true;
                width = 8;
                mnemonic = "N";
                is_tab_stop = true;
              }
              : button {
                label = "Load a Library";
                key = "loadlib";
                fixed_width = true;
                width = 8;
                mnemonic = "L";
                is_tab_stop = true;
              }
              : button {
                label = "Close Program";
                key = "cancel";
                fixed_width = true;
                width = 8;
                mnemonic = "C";
                is_cancel = true;
                is_tab_stop = true;
              }
              : button {
                label = "Insert Block";
                key = "insert";
                fixed_width = true;
                width = 8;
                mnemonic = "I";
                is_tab_stop = true;
             }
            }
          }
         }
LAYSEL : dialog {
  label = "Layer Selection - Select layer to use for insertion.";
  : column {
    : row {
      : boxed_column {
        : list_box {
          key = "layerlist";
          label = "Layers";
          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;
        }
      }
    }
  }    
}



You should have the orginal lisp file. When you pull up the lisp file there is  button called Create a new library and one called load a library.

[TJAM51]

The library.lba file is compiled when you compile the slides and the locate the blocks.

[TJAM51]

The way I see it is that small drawings representiong each lisp routine would have to be generated. Once this was done the program would compile these into *.sld to be placed into the LIBRARY.LBA. The next step based on the orginal program would be to locate the slides and the dcl file, etc in the same directory.

[CAB]

Here are some examples of what can be done with a DCL & slides.
Note the buttons.

http://www.theswamp.org/lilly.pond/CAB/ARCH_DIALOG.pdf

[TJAM51]

Now that is what I am talking about

[M-dub]

Yep...
Good luck with that.  It's way over my head for now.  I don't have the time to get into that.  Wish I did, but I couldn't justify it to the higher-ups.

[CAB]

Now that is what I am talking about

 


Start reading here
http://www.google.com/groups?as_q=DCL&as_epq=fowler&safe=images&ie=UTF-8&as_ugroup=autodesk.autocad.customization&lr=&hl=en

Search on Gary Fowler for more DCL info.

[TimSpangler]

I have talked to Gary quite extensivley about how he creates his buttons.  It is alot of work.  The suggetion I have is if you use the image tile dialog
that is located in base.dcl copy it to a new file and call it whatever you want.  Now all we need to do is ceate the code to insert the blocks.  Iwould suggest using generaic names for the tile this way we could use library files (text based) to load differant block into the image tile dialog this will also keep the coding simple as well.  As far as the slides, this can be accomplished with a script to open, zoom all, then run mslide then move to the next dwg.  This can be done on an entire directory pf dwg's

I am not at work but I believe I have alot of the code that is needed to accomplish this task.  I will be at work in the morn.

[TJAM51]

Sounds good......I need something that is solid and stable and will have no adverse affect on the existing acad menu. It always seems no matter how careful I have been in the past something always went wrong.