AutoLISP绘制圆DCL对话框

AutoLISP绘制圆DCL对话框，代码如下。

yuan:dialog {
  label = "绘制圆" ;
  :row {
    :image {
      width = 30 ;
      height = 8 ;
      key = "img_cr" ;
      color = -2 ;
    }
    :boxed_column {
      label = "几何数据" ;
      :edit_box {
        label = "圆心X(mm):" ;
        edit_width = 8 ;
        key = "X" ;
      }
      :edit_box {
        label = "圆心Y(mm):" ;
        width = 8 ;
        key = "Y" ;
        mnemonic = "Y" ;
      }
      :edit_box {
        label = "半径R(mm):" ;
        width = 8 ;
        key = "R" ;
        mnemonic = "8" ;
      }
    }
  }
  ok_cancel;
}

代码完。