Re:alert 창 크기 설정 가능한가요?

;달수님 코드 응용입니다.--->Re:라디오버튼의 DCL과 LISP의 연계방법 ;source code : dalsu 행님 ;modified by apollo ;2014 / 01 / 29 수요일 (defun c:AC (/ fname dcl_id item-lst ok dcl_lst)  (vl-load-com)   (setq fname (mrTmpMakeDCL))   (setq dcl_id (load_dialog fname))   (new_dialog "TmpDCL" dcl_id)   (setq    item-lst (list                    ""                    ""                    ""                    "■ 설계3본부 , CAD LSP 표준화 ■"                    ""                    ""                    "01     0,0       원점으로 보내기"                    "02     3d2d     z값 0으로 만들기"                    "03     a1        A1 출력하기(PDF)"                    "04     a3        A3 출력하기"                    "05     ab        바인드"                    "06     ad        도면의 불필요한 객체 삭제"                    "07     bbs      블록 리스트 개수파악"                    "08     bfd       겹친 블록 삭제"                    "09     blc       블록 레이어 blc로 변경"                    "10     bm       블록 복사"                    "11     bn        숫자 증가"                    "12     bsc      블록 스케일 바꾸기"                    "13     bt         블록 이름 변경"                    "14     cm       컴마 찍기"                    "15     cmx     컴마 지우기"                    "16     cood     X,Y 좌표값"                    "17     cr        사각형 가운데로 정렬"                    "18     de       치수값 되돌리기"                    "19     dex     치수보조선 정렬"                    "20     dmo    등 분할"                    "21     lon      모든 레이어 켜기"                    "22     lol       선택한 레이어만 켜기"                    "23     lof       선택한 레이어 끄기드"                    "24     los      선택한 레이어로 변경"                    "25     lst       모든 레이어 목록 만들기"                    "26     lm       현재 레이어를 변경"                    "27     mo      멀티 옵셋"                    "28     mrc     다중 회전 복사"                    "29     nc       문자 내 숫자 더하기"                    "30     npl      숫자 증가 엑셀처럼"                    "31     pj        폴리라인으로 변경"                    "32     py       M2를 평으로 계산"                    "33     qa       객체를 M2로 계산"                    "34     rep      절대경로를 상대경로"                    "35     red      구름 마크"                    "36     so       솔리드 넣기"                    "37     sp       경사도"                    "38     ss       그립으로 선택"                    "39     sss      대문자를 소문자로 전환"                    "40     LLL      소문자를 대문자로 전환"                    "41     stl        형강 만들기"                    "42     tav       문자 정렬"                    "43     tbd       문자 박스 그리기"                    "44     tc         문자 내용 복사"                    "45     tsw      문자 내용 교환"                    "46     wb       파일 내보내기"                    "47     xf        외부참조 레이어 끄기"                   )   )   (start_list "dcl_lst")   (mapcar 'add_list item-lst)   (end_list)   (setq ok (start_dialog))   (unload_dialog dcl_id)   (vl-file-delete fname)   (princ) ) (defun mrTmpMakeDCL    (/ fn temp lst)  (setq fn (open (setq temp (vl-filename-mktemp "tmpdcl.dcl")) "w"))   (setq    lst          (list            "TmpDCL : dialog {label = \"AutoCAD 메세지\";"            "                :list_box {label=\"\"; key = \"dcl_lst\" ; width = 40; height = 30;}"            "    ok_only;"            "}"          )   )   (foreach txt lst     (write-line txt fn)   )   (close fn)   temp )