리습을 사용하는 사람이라면 대부분 사용하는 리습인 "LLE 리습"을 종종 사용하는데, 전체 길이를 구하고 나서, 명령행에 표시된다.이걸 수정해 봤다.LISPEXP.(defun c:lle ()  defun함수 시작 / 명령어LLE(vl-load-com) (setq ent (ssget '((0 . "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))) (setq n 0 dis 0) (repeat (sslength ent) (setq en (vlax-ename->vla-object (ssname ent n))) (setq ep (vlax-curve-getEndParam en)) (setq dis (+ dis (vlax-curve-getDistAtParam en e..

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

LISP 명령은 "(" 시작해서, ")"로 끝(SETQ A B) LISP(SETQ A B) B를 A에 대입해라.GET함수 중 많이 쓰는 것만 BOLD.LISP설  명 예  시 GetINT정수 입력받는 함수(setq INT (getint "\n 정수를 입력하시오... :"))GetREAL실수 입력받는 함수(setq REAL (getreal "\n 실수를 입력하시오.... :"))GetPoint점을 입력받는 함수(setq pt1 (getpoint "\n 첫번째 점 입력.... :"))GetString문자 또는 문자열을 입력 받는 함수(setq str_1 (getstring "\n 문자를 입력하시오.... :"))Get Corner기존 점을 이용하여 대각 방향의 좌표를 선택하는 함수(setq CON_1 (ge..