2012년 12월 25일 화요일

[LISP-GSJ] SetupMensuration.lsp - (포스트아이디 : 2797425102693554836)

   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "Label1" "대지구적표")
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "Label2" "구분")
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "Label3" "산출근거")
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "Label4" "면적")
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "Label5" "총계")
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "UnitFlag"   "0")    ;; 단위
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "PlacesFlag" "1")    ;; 소수점
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "PyongFlag"  "1")    ;; 평면적
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "ExcelFlag"  "1")    ;; 엑셀
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "CommaFlag"  "1")    ;; 컴마
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "ZeroFlag"   "1")    ;; 0 억제
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "TextSize"  "10")    ;; 문자 크기
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "TextLayer" "0")     ;; 문자 레이어
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "TextColor" "0")     ;; 문자 색상
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "TriLayer" "0")      ;; 도형 레이어
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "TriColor" "0")      ;; 도형 색상
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "CircleLayer" "0")   ;; 원 레이어
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "CircleColor" "0")   ;; 원 색상
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "TableLayer" "0")    ;; 표 레이어
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "TableColor" "0")    ;; 표 색상
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "TextStyle" "Standard")     ;; 문자 스타일
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "CellSize" "2")             ;; 표 셀 높이
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "CircleSize" "2")           ;; 원 표시 크기
   (vl-registry-write "HKEY_CURRENT_USER\\Software\\LispCenter\\Mensuration" "PerpendicularSize" "10")   ;; 수직 표시 크기
   (princ)

댓글 없음:

댓글 쓰기

즐거운 하루되세요...^^