[기본적인 설정]1. 플롯장치(프린터)는 현재 "Black"로 설정 되어 있음.    다른 프린터 설정하려면, "따옴표" 속 내용 변경 필요    pdf출력을 위한 플롯 장치는 "DWG To PDF-복사본.pc3"으로 설정 되어 있음.    (pdf 출력시 Viewer가 항상 뜨게 되고, 그러면 시간이 많이 소요 됨으로 끈 상태를 복사본으로 설정) 2. 기본적으로 플롯 펜 설정은 "도면출력(흑백).ctb"로 설정 되어 있음.    다른 펜 스타일이 필요하다면, LISP 수정 필요. 3. 용지는 "A3"로 설정됨.    종이용지/PDF 각 용지 설정(프린터의 종류에 따라 내용이 다름 참조);[S E T T I N G]--------------------------------------------------..

CAD LISP- 라디오 버튼 DCL/LISPAuto CAD 명령어 실행CAD LISP- DCL 라디오 버튼으로 다른 리습 실행CAD LISP 명령어 실행몇년전 부터 간단한 리습을 만들기 시작 했다.나름 내가 필요한 기능을 만들어서, 아주 나한테는 유용했다.근데, 욕심이 생겼다.이게 나한테만 유용하지, 다른 사람한테는 불편하다는 사실을 알았다.음......근데, DCL로 시각화 할 수 있다는 걸 알았다.그래서 이렇게 만들었다.KHS : dialog { //dialog name label = "KHS Lisp" ; //give it a label :boxed_radio_column { //define radio column label = "LISP" ; //..

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

LISP 관련간단히 리습을 수정하기 위해서는 캐드에 기본 내장된 Visual Lisp 편집기를 사용명령어 "VLISP" 리습을 실행 하고 나서, 자연 스럽게 전체 화면으로 바뀌는 리습들이 있는데,아래의 줌 명령 때문이다. 리습 작성 하고 끝나는 부분에 넣으면 좋을 듯.(command "zoom" "A")(command "ZOOM"                "A"  )zoom 명령 실행축척비율 : 전체(all)zoom 명령 닫기명령: ZOOM 윈도우 구석 지정, 축척 비율(nX 또는 nXP) 입력 또는 [전체(A)/중심(C)/동적(D)/범위(E)/이전(P)/축척(S)/윈도우(W)/객체(O)] Tip. 범위 라던가, 윈도우 같은 경우는 지정해 줘야 함.

리습을 사용하는 사람이라면 대부분 사용하는 리습인 "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 관련간단히 리습을 수정하기 위해서는 캐드에 기본 내장된 Visual Lisp 편집기를 사용명령어 "VLISP"끝점, 중간점 만 OSMODE를 켤때 ; "OSMODE"=1+2=3 입력.LISP 예시(defun c:OSON()      (setvar "osmode" 3)     (prompt "\n OSON 실행 \n")    (princ) ) 스냅코드 목록OSMODE설 명OSMODE설  명0없음(N) None16383모든객체 스냅 지정1끝점(E) Endpoint64삽입점(S) Insert2중간점(M) Midpoint128직교(P) / 수직점(Perpend)4중심(C) Center256접점(N) Targent8노드(D) Node512근처점(R) neaRist16사분점(Q) Quadrant2048가상..

간단히 리습을 수정하기 위해서는 캐드에 기본 내장된 Visual Lisp 편집기를 사용명령어 "VLISP""LISP 관련"[LISP]EXP.ETC.itoa정수 ---> 문자열 atoi문자열 ---> 정수 atof문자열 ---> 실수 rtos숫자 ---> 문자열(rtos 변수 옵션 정밀도)    (rtos var 2 2)rtos 첫번째EXP. 두번째EXP.1지수형(Scientific)0소수점 자리 출력 없음210진형(Decimal)1소수점 1자리 출력3Feet 10진형(Engineering)2소수점 2자리 출력4Feet 분수형(Architecture)3소수점 3자리 출력5분수형(Fractional)4소수점 4자리 출력[예시] 소수점 첫째자리 까지만, 출력 되는 리습이 있다면, rtos 함수를 찾은 후 (r..

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