[分享]：窗型自動建立 LISP

logo3490

附件中是一個建立窗型的 LISP
其中使用 DCL 為使用者界面接收數據
再根據數據產生所需的窗型

lidejun_55

繁体的看起来有点累，楼主来自台湾？

zxcvbnm-cad

繁体的看起来有点累，楼主来自台湾？

看看这还累不累


[php]
LOGOCAD_WINDOWS_CREATE : dialog {
        : paragraph {
        label = "窗型建立";
        fixed_width = true;
        : column {alignment = left;fixed_width = true;
        : row {
          children_alignment = top;
        : column {fixed_height = true;
        : edit_box {  key="num1";
          label = "　总高度(X):";
          edit_width = 8;
          fixed_width = true;
                 alignment = right;}
       : edit_box {  key="num2";
         label = "　总宽度(Y):";
         edit_width = 8;
         fixed_width = true;
         alignment = right;
       }
       : edit_box {
         key="num3";
         label = "　内缩:";
         edit_width = 8;
         fixed_width = true;
         alignment = right;
         }
       }
      : column {fixed_width = true;
      : edit_box {  key="num4";
        label = "　水平等分:";
        edit_width = 8;
        fixed_width = true;
        alignment = right;
      }
      : edit_box {
        key="num5";
        label = "　气窗高:";
        edit_width = 8;
        fixed_width = true;
        alignment = right;
      }
      : edit_box {
        key="num6";
        label = "　窗框厚:";
        edit_width = 8;
        fixed_width = true;
        alignment = right;
        }
        }
        }
        }
      : spacer { height = 0.25; }
      : text { label = "设计: 施志旺, shih704@ms2.hinet.net";
        alignment = centered;
        }
      : spacer { height = 0.25;
      }
        } // end paragraph


        : row {
                alignment        = right;
                fixed_width = true;
                : button { label = "取消";
                  height = 1; width = 12;
                  fixed_width = true;
                  is_cancel = true;
                }
                : button { key = "OK"; label = "确定";
                  height = 1;
                  width = 12;
                  fixed_width = true;
                  is_ok = true;
                }
        } // end row


} // end dialog LOGOCAD_WINDOWS_CREATE[/php]