AutoCAD 블로그

  오토캐드 (AutoCAD) AutoLisp으로 (메뉴바)Menubar, (리본)Ribbon, (상태바)Statusbar 설정하기 AutoLisp을 사용하다보면 메뉴바, 리본, 상태바를 설정할 경우가 생깁니다. 각 설정별로 ON/OFF를 구현합니다. 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리본바 끄기"...