[기본적인 설정] 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/LISP Auto 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" ;//give it a label : ..

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

간단히 리습을 수정하기 위해서는 캐드에 기본 내장된 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 리습"을 종종 사용하는데, 전체 길이를 구하고 나서, 명령행에 표시된다. 이걸 수정해 봤다. 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..

간단히 리습을 수정하기 위해서는 캐드에 기본 내장된 Visual Lisp 편집기를 사용 명령어 "VLISP" 끝점, 중간점 만 OSMODE를 켤때 ; "OSMODE"=1+2=3 입력. [LISP 예시] (defun c:OSON() (setvar "osmode" 3) (prompt "\n OSON 실행 \n") (princ) ) 스냅코드 목록 OSMODE 설 명 OSMODE 설 명 0 없음(N) None 16383 모든객체 스냅 지정 1 끝점(E) Endpoint 64 삽입점(S) Insert 2 중간점(M) Midpoint 128 직교(P) / 수직점(Perpend) 4 중심(C) Center 256 접점(N) Targent 8 노드(D) Node 512 근처점(R) neaRist 16 사분점(Q) Qu..

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

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