Exemples Lisp pour Autocad (AutoLisp) Technologie Diesel

AutoLisp

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

@include "lref.dcl"

etaSKFdialog : dialog {
        label = "Rondelles d'étanchéïté SKF";
        : row {
            : column {    /* colonne gauche */
                : 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";
                        fixed_width = true;
                        edit_width = 5;
                        value = "0";
                }
            }  /*fin colonne gauche */
            : boxed_column {   /* colonne centre */
                label = "Elément";
                : 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";
                }
            }
            : column {       /*colonne droite*/
                : spacer { height = 3; }
                : boxed_column {
                    label = "Sens d'empilage vers la";
                    fixed_height = true;
                    : radio_row {
                        key = "sensrad";
                        : radio_button {
                            label = "Gauche";
                            mnemonic = "G";
                            key = "left";
                        }
                        : radio_button {
                            label = "Droite";
                            mnemonic = "D";
                            key = "right";
                        }
                    }
                }
                : boxed_column {
                    label = "Nombre de Couples";
                    mnemonic = "N";
                    : radio_row {
                        key = "nbrerad";
                        : radio_button {
                            label = "1";
                            key = "un";
                        }
                        : radio_button {
                            label = "2";
                            key = "deux";
                        }
                        : radio_button {
                            label = "3";
                            key = "trois";
                        }
                        : radio_button {
                            label = "4";
                            key = "quatre";
                        }
                        : radio_button {
                            label = "5";
                            key = "cinq";
                        }
                    }
                }
            }
       }
        ok_cancel;
        errtile;
}
ecrHdialog : 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;
          }
          : boxed_column {
                    label = "Type : ";
                    fixed_height = true;
                    : radio_row {
                        key = "Hrad";
                        : radio_button {
                            label = "H";
                            key = "hache";
                        }
                        : radio_button {
                            label = "Hh";
                            key = "hacheh";
                        }
                        : radio_button {
                            label = "Hm";
                            key = "hachem";
                        }
                    }
          }
          : button {
              label = "Choix d'une référence...";
              key = "ref";
              mnemonic = "C";
          }
      }
    }
    ok_cancel;
    errtile;
}
rdPdialog : 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;
          }
          : boxed_column {
                    label = "Série : ";
                    fixed_height = true;
                    : radio_row {
                        key = "rdPrad";
                        : radio_button {
                            label = "étroite";
                            key = "Z";
                        }
                        : radio_button {
                            label = "moyenne";
                            key = "M";
                        }
                        : radio_button {
                            label = "large";
                            key = "L";
                        }
                        : radio_button {
                            label = "Tr large";
                            key = "LL";
                        }
                    }
          }
          : button {
              label = "Choix d'une référence...";
              key = "ref";
              mnemonic = "C";
          }
      }
    }
    ok_cancel;
    errtile;
}
Wdialog : 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;
          }
          : boxed_column {
                    label = "Série : ";
                    fixed_height = true;
                    : radio_row {
                        key = "Wrad";
                        : radio_button {
                            label = "réduite";
                            key = "WZ";
                        }
                        : radio_button {
                            label = "courante";
                            key = "W";
                        }
                        : radio_button {
                            label = "forte";
                            key = "WL";
                        }
                    }
          }
          : button {
              label = "Choix d'une référence...";
              key = "ref";
              mnemonic = "C";
          }
      }
    }
    ok_cancel;
    errtile;
}

Page de Jean-Paul Molina

Matières

Ressources

Conception assistée

Langages

Flash

Systèmes

Réseaux sociaux

AutoLisp