[Auto CAD] <LISP> 문자 스타일 지정 리습

인터넷을 뒤지고, 유튜브도 보고 해서 단순한 리습인 문자 스타일 지정 리습을 만들어 봤다.

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 (setq name_ST_FONT "굴림체_H") (setq FONT_1 "굴림체")))      ((= Font_no 4) (progn (setq name_ST_FONT "휴먼편지체_H") (setq FONT_1 "휴먼편지체")))       ((= Font_no 5) (progn (setq name_ST_FONT "휴먼매직체_H") (setq FONT_1 "휴먼매직체")))      ((= Font_no 6) (progn (setq name_ST_FONT "바탕체_H") (setq FONT_1 "바탕체")))   )	Font_no 가 1이면, 맑은고딕 2이면 돋음체 / 3이면 굴림체 ....... 으로 문자스타일 이름/TTF 파일이름을 변경 ※cond함수는 조건 함수 ※progn함수는 cond에서 1가지 명령만 실행 함으로 setq 2가지를 하나로 묶는 함수임
(command "-style"                 name_ST_FONT                  FONT_1                  ""                 ""                 ""                 "NO"                 "NO"                 "NO" )	-STYLE 명령어 실행 문자스타일이름지정(지정변수) 폰트 스타일(지정변수) 문자높이 또는 주석(A) STYLE 폭 비율지정 <1.0000> STYLE 기울기 각도 지정<0> 문자를 거꾸로 표시 문자를 위 아래로 뒤집어 표시 스타일 수직
(princ)
)	defun 함수 종료

(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 (setq name_ST_FONT "굴림체_H") (setq FONT_1 "굴림체"))) 
    ((= Font_no 4) (progn (setq name_ST_FONT "휴먼편지체_H") (setq FONT_1 "휴먼편지체"))) 
     ((= Font_no 5) (progn (setq name_ST_FONT "휴먼매직체_H") (setq FONT_1 "휴먼매직체"))) 
    ((= Font_no 6) (progn (setq name_ST_FONT "바탕체_H") (setq FONT_1 "바탕체")))  
)

실제 리습은 표로 정리 안하지만, 명령어도 몇개 안되고 아주 단순하기에, 나중에 리습 공부 하시는 분은 참고 하시길 바라며(?) 같은 성격끼리 표로 나누어 봤다......

Font Sytle Test.LSP

0.00MB

단순한 함수는 거의 다 사용 된듯.....