Examples Lisp for Autocad Technologie Diesel

AutoLisp

Voici le fichier LREF2.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;}

paroidialog : dialog {
        label = "Parois de pièces moulées";
        : 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;
                        width = 18;
                      /*  fixed_height = true;     */
                        fixed_width = true;
                        color = graphics_background;
                }
              /*  : spacer { height = 3; }    */
            }
            : column {       /*colonne droite*/
               
                : boxed_column {
                    label = "Type de Fonte";
                    fixed_height = true;
                    : radio_row {
                        key = "fonterad";
                        : radio_button {
                            label = "Lamellaire";
                            mnemonic = "L";
                            key = "lame";
                        }
                        : radio_button {
                            label = "Sphéroïdale";
                            mnemonic = "S";
                            key = "sph";
                        }
                    }
                }
                : boxed_column {
                    label = "Epaisseur de Paroi";
                    : edit_box {
                        label = "la plus Mince   :";
                        mnemonic = "M";
                        key = "mince";
                        fixed_width = true;
                        edit_width = 5;
                    }
                    : edit_box {
                        label = "la plus Epaisse :";
                        mnemonic = "E";
                        key = "epaiss";
                        fixed_width = true;
                        edit_width = 5;
                    }
                }
                       : row {
                              :button {
                                label = "Angle dièdre < ";
                                mnemonic ="A";
                                key = "die_pick";
                                width = 20;
                                fixed_width = true;
                              }
                              : edit_box {
                                key = "die";
                                edit_width = 5;
                              }
                       }

}
       }
        ok_cancel;
        errtile;
}

Page de Jean-Paul Molina

Subjects

Resources

C.A.D.

Langages

Flash

Systems

Social Networks

AutoLisp