Examples Lisp for Autocad Technologie Diesel

AutoLisp

Voici le fichier LREF.dcl qui permet de créer une boite de dialogue sous Autocad en utilisant la technologie DIESEL.

dcl_settings : default_dcl_settings { audit_level = 0;}
refboxCHC :boxed_column{
    label = "Liste";
    :popup_list{
        label = "Ø-L";
        key = "ref_list";
        list ="";
    }
}
lrefCHC :dialog{
    label = "Choix d'une référence";
    refboxCHC;
    ok_only;
}
refboxRdP :boxed_column{
    label = "Liste";
    :popup_list{
        label = " Ø";
        key = "ref_list";
        list ="";
    }
}
lrefRdP :dialog{
    label = "Choix d'un diamêtre";
    refboxRdP;
    ok_only;
}

refboxSKF :boxed_column{
    label = "Liste";
    :popup_list{
        label = " d  D  L  REF";
        edit_width = 25;
        key = "ref_list";
        list ="";
    }
}
lrefSKF :dialog{
    label = "Choix d'un roulement SKF";
    refboxSKF;
    ok_only;
}

lrefETA :dialog{
    label = "Choix de rondelles étanches";
    refboxSKF;
    ok_only;
}

refboxSKFcnq :boxed_column{
    label = "Liste";
    :popup_list{
        label = " d  D  T  B  C  REF";
        edit_width = 33;
        key = "ref_list";
        list ="";
    }
}
lrefSKFcnq :dialog{
    label = "Choix d'un roulement SKF";
    refboxSKFcnq;
    ok_only;
}
SaisiePtdlg : dialog{
   label = "Saisie";
   : column {
        : boxed_column { 
            label = "Point d'Insertion";
            : button {
                label = "Saisir <";
                mnemonic = "S";
                key = "pick_pt";
            }
            : edit_box {
                label = "X:";
                mnemonic = "X";
                key = "x_pt";
                edit_width = 10;
            }
            : edit_box {
                label = "Y:";
                mnemonic = "Y";
                key = "y_pt";
                edit_width = 10;
            }
            : edit_box {
                label = "Z:";
                mnemonic = "Z";
                key = "z_pt";
                edit_width = 10;
            }
        }
        : row {
           :button {
             label = "Angle / horiz. < ";
             mnemonic ="A";
             key = "angle_pick";
             value = "0";
             width = 20;
             fixed_width = true;
           }
           : edit_box {
             key = "rot";
             value = "0";
             edit_width = 5;
           }
        }
        : edit_box {
             label = "Epaisseur du trait :    ";
             mnemonic = "E";
             key = "e_trait";
             value = "0";
             fixed_width = true;
             edit_width = 5;
        }
   }
   ok_cancel;
   errtile;
}
SKFdialog :dialog{
     label = "Eléments de Tracé";
    : row {
      :column {
        : boxed_column { 
            label = "Point d'Insertion";
            : button {
                label = "Saisir <";
                mnemonic = "S";
                key = "pick_pt";
            }
            : edit_box {
                label = "X:";
                mnemonic = "X";
                key = "x_pt";
                edit_width = 10;
            }
            : edit_box {
                label = "Y:";
                mnemonic = "Y";
                key = "y_pt";
                edit_width = 10;
            }
            : edit_box {
                label = "Z:";
                mnemonic = "Z";
                key = "z_pt";
                edit_width = 10;
            }
        }
        : row {
           :button {
             label = "Angle / horiz. < ";
             mnemonic ="A";
             key = "angle_pick";
             value = "0";
             width = 20;
             fixed_width = true;
           }
           : edit_box {
             key = "rot";
             value = "0";
             edit_width = 5;
             value = "0";
           }
        }
        : edit_box {
             label = "Epaisseur du trait :";
             mnemonic = "E";
             key = "e_trait";
             value = "0";
             fixed_width = true;
             edit_width = 5;
        }
      }
      : column {
          : image {
            key = "im_rlt";
            height = 8;
            color = graphics_background;
          }
          : edit_box {
             label = "Diamêtre nominal:";
             mnemonic = "D";
             key = "dnom";
             edit_width = 8;
          }
          : button {
              label = "Choix d'une référence...";
              key = "ref";
              mnemonic = "C";
          }
      }
    }
    ok_cancel;
    errtile;
}
ecrSKFdialog : dialog{
     label = "Eléments de Tracé";
    : row {
      :column {
        : boxed_column { 
            label = "Point d'Insertion";
            : button {
                label = "Saisir <";
                mnemonic = "S";
                key = "pick_pt";
            }
            : edit_box {
                label = "X:";
                mnemonic = "X";
                key = "x_pt";
                edit_width = 10;
            }
            : edit_box {
                label = "Y:";
                mnemonic = "Y";
                key = "y_pt";
                edit_width = 10;
            }
            : edit_box {
                label = "Z:";
                mnemonic = "Z";
                key = "z_pt";
                edit_width = 10;
            }
        }
        : row {
           :button {
             label = "Angle / horiz. < ";
             mnemonic ="A";
             key = "angle_pick";
             value = "0";
             width = 20;
             fixed_width = true;
           }
           : edit_box {
             key = "rot";
             edit_width = 5;
             value = "0";
           }
        }
        : edit_box {
             label = "Epaisseur du trait :";
             mnemonic = "E";
             key = "e_trait";
             fixed_width = true;
             edit_width = 5;
             value = "0";
        }
      }
      
      : column {
          : image {
            key = "im_rlt";
            height = 8;
            color = graphics_background;
          }
          : toggle {
                label = "rondelle frein";
                key = "rdf";
                fixed_width = true;
          } 
          : button {
              label = "Choix d'une référence...";
              key = "ref";
              mnemonic = "C";
          }
      }
    }
    ok_cancel;
    errtile;
}

OptionCYLdialog : dialog{
      label = "Options des Bagues";
      : paragraph {
      	: text_part {
               label  =  " U : bague interieure libre";
         }
         : text_part {
	            label  =  " J : avec bague epaulement débordante";
         }
         : text_part {
               label  =  "UP : avec bague non débordante ";
         }
         : text_part {
	            label  =  " N : bague exterieure libre";
         }
      }
		: boxed_radio_column
                {
                    label           = "Choisir un type :";
                    key = "option";
                    : radio_button
                    {
                        key     = "optU";
                        label   = "U";
                        mnemonic = "U";
                    }
                    : radio_button
                    {
                        key     = "optJ";
                        label   = "J";
                        mnemonic = "J";
                    }
                    : radio_button
                    {
                        key     = "optUP";
                        label   = "UP";
                        mnemonic = "P";
                    }
                    : radio_button
                    {
                        key     = "optN";
                        label   = "N";
                        mnemonic = "N";
                    }
                }
      ok_only;
}

Page de Jean-Paul Molina

Subjects

Resources

C.A.D.

Langages

Flash

Systems

Social Networks

AutoLisp