리습을 사용하는 사람이라면 대부분 사용하는 리습인 "LLE 리습"을 종종 사용하는데, 전체 길이를 구하고 나서, 명령행에 표시된다. 이걸 수정해 봤다. LISP EXP. (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 ..

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

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 기존 점을 이용하여 대각 방향..