getvar 리습에서 시스템 변수 불러오기 ↔ setvar 시스템 변수값을 변경 할때 사용    [GetVar] 리습에서 시스템 변수 불러오기시스템 변수활  용설    명ACADVER(getvar "ACADVER")캐드버전 정보 가져오기OSMODE(getvar "OSMODE")현재 osnap 설정값 가져오기CDATE(getvar "CDATE")날짜와 시간정보 가져오기DIMSCALE(getvar "DIMSCALE")DIM 스케일 값을 가져오기CMLSCALE(getvar "CMLSCALE")다중선 관련 축척을 가져오기SPLINESEGS(getvar "SPLINESEGS")PLINE 관련CLAYER(getvar "CLAYER")현재 Layer 이름 가져오기CELTYPE(getvar "CELTYPE")현재 선타..

CAD LISP- 라디오 버튼 DCL/LISPAuto CAD 명령어 실행CAD LISP- DCL 라디오 버튼으로 다른 리습 실행 CAD LISP 명령어 실행DCL LISP 연습먼저 DCLVLISP \ 도구(T) \ 인터페이스 도구(I) \ 편집기에서 DCL 미리보기(E)command:dialog{label = "COMMANDS"; :radio_column { label = "Draw Commands"; :radio_button { label="Line"; key = "lin"; value = "1"; } :radio_button { label="Circle"; key = "cir"; } :radio_button { label="Ellipse"; key = "el..

인터넷을 뒤지고, 유튜브도 보고 해서 단순한 리습인 문자 스타일 지정 리습을 만들어 봤다.LISPEXP.(defun c:kimfont()defun 함수시작/명령어는 "KimFONT"(setq   Font_no  (getint "\n숫자 입력:                1맑은고딕 2돋음체  3굴림체  4휴먼편지체  5휴먼매직체  6바탕체.....  :"))getint 정수를 입력받아서setq 변수(Font_no)에 입력(cond     ((= Font_no 1) (progn (setq name_ST_FONT "맑은고딕_H") (setq FONT_1 "맑은 고딕")))     ((= Font_no 2) (progn (setq name_ST_FONT "돋움체_H") (setq FONT_1 "돋움체")))  ..