오토캐드 (AutoCAD) AutoLisp으로 (메뉴바)Menubar, (리본)Ribbon, (상태바)Statusbar 설정하기
오토캐드 (AutoCAD) AutoLisp으로 (메뉴바)Menubar, (리본)Ribbon, (상태바)Statusbar 설정하기
AutoLisp을 사용하다보면 메뉴바, 리본, 상태바를 설정할 경우가 생깁니다.
1. 오토캐드 (AutoCAD) UI 토글 AutoLisp 코드
;;; 오토캐드 UI 토글 프로그램 (메뉴바, 리본, 상태바)
;;; -------------------------------------------------------------------
;;; 1. 메뉴바 토글 (켜기/끄기)
(defun c:ToggleMenuBar ()
(vl-load-com) ; ActiveX 지원 로드 (필요한 경우)
(if (= (getvar "MENUBAR") 1) ; 현재 메뉴바가 켜져 있다면
(progn
(setvar "MENUBAR" 0) ; 끄기
(princ "\n메뉴바 (Menubar OFF)")
)
(progn
(setvar "MENUBAR" 1) ; 켜기
(princ "\n메뉴바 (Menubar ON)")
)
)
(princ) ; 마지막 값 출력 방지
)
;;; 2. 리본 토글 (켜기/끄기)
(defun c:ToggleRibbon ()
(vl-load-com)
(if (= (getvar "RIBBONSTATE") 1) ; 현재 리본이 켜져 있다면 (1: 켜짐, 0: 꺼짐)
(progn
(command "_.RIBBONCLOSE") ; 리본 끄기 명령
(princ "\n리본바 끄기")
)
(progn
(command "_.RIBBON") ; 리본 켜기 명령
(princ "\n리본바 켜기")
)
)
(princ)
)
;;; 3. 상태바 토글 (켜기/끄기)
(defun c:ToggleStatusBar ()
(vl-load-com)
(if (= (getvar "STATUSBAR") 1) ; 현재 상태바가 켜져 있다면
(progn
(setvar "STATUSBAR" 0) ; 끄기
(princ "\n상태바 끄기")
)
(progn
(setvar "STATUSBAR" 1) ; 켜기
(princ "\n상태바 켜기")
)
)
(princ)
)
;;; 프로그램 로드 시 메시지
(princ "\n오토캐드 UI 토글 프로그램이 Loading...")
(princ "\n'ToggleMenuBar', 'ToggleRibbon', 'ToggleStatusBar' 명령어를 사용해보세요!")
(princ)
사용 방법1:
- 1. 이 코드를 AutoCAD의 VisualLISP 편집기에서 입력하고, 저장 후 로드합니다.
- 2. 명령창에 ToggleMenubar, ToggleRibbon, ToggleStatusbar를 입력 합니다.
- 사용 방법2:
- 1. 원하는 이름.lsp 파일을 만들고, 위의 코드를 작성합니다.
- 2. Appload 명령을 이용하여 (원하는 이름.lsp)파일을 선택하여 load 합니다.
- 3. 명령창에 ToggleMenubar, ToggleRibbon, ToggleStatusbar를 입력 합니다.
- 이 코드를 활용하면 쉽게 ToggleMenubar, ToggleRibbon, ToggleStatusbar를 On/Off를 쉽게 구현할 수 있습니다.
