AutoLISP确定图纸幅面DCL对话框设计

AutoLISP确定图纸幅面DCL对话框设计代码如下。

:dialog {
  initial_focus = "A3" ;
  label = "确定图纸幅面" ;
  :toggle {
    key = "ver" ;
    label = "垂直放置&V" ;
  }
  :boxed_radio_row {
    label="图纸幅面";
    :radio_button {
      key = "a0" ;
      label = "A&0" ;
    }
    :radio_button {
      key = "a1" ;
      label = "A&1" ;
    }
    :radio_button {
      key = "a2" ;
      label = "A&2" ;
    }
    :radio_button {
      key = "a3" ;
      label = "A&3" ;
    }
    :radio_button {
      key = "a4" ;
      label = "A&4" ;
    }
    :radio_button {
      key = "a5" ;
      label = "A&5" ;
    }
  }
  ok_cancel;
}

代码完。