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 (get..

[CAD LISP] 라디오 버튼 DCL/LISP Auto CAD 명령어 실행 [CAD LISP] DCL 라디오 버튼으로 다른 리습 실행 CAD LISP 명령어 실행 DCL LISP 연습 먼저 DCL VLISP \ 도구(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 = "eli"; } :radio_button..

인터넷을 뒤지고, 유튜브도 보고 해서 단순한 리습인 문자 스타일 지정 리습을 만들어 봤다. LISP EXP. (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 "돋움체"))) ((= Font_no 3) (progn (s..