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

캐드를 사용하면서, 듀얼 모니터를 사용하면, 2가지의 창을 열어 놓고 좌, 우 모니터를 비교 할 일이 있다. 근데, 이게 맘대로 되지 않는다.. 어쩌지? 캐드 프로그램을 각각으로 파일을 열고 싶은데..... 방법이 없을까? 간단한 방법은 AutoCAD 2002 부터 생긴 시스템 변수 SDI를 사용하면 된다. 명령창에 SDI 라고 입력하고, 엔터. 그러면, SDI에 대한 새 값 입력 : 이라고 표시된다. 여기서, 0을 입력하면, 캐드 Task가 여러개의 파일을 열어도 하나만 생성되고, 1을 입력하면, 파일을 열때마다, 새로운 캐드 Task(창)이 열린다. TASKBAR : 열려 있는 여러 도면이 Windows 작업 표시줄에서 개별적으로 표시되는지 그룹화되어 표시되는지를 조정합니다. 명령 : taskbar ..

CAD를 처음 설치하거나, 재설치 하거나 하면, 설정을 다시 조정하는 것도 일이다. CAD CD를 찾아 오랜만에 다시 설치 하니, 시작 시트가 계속 첫부분에 시작이 된다. ㅡ.ㅡㅋ 예전에도 있었던가? 기억이 나질 않는다. 이놈의 시작 탭은 그 흔한 X표시도 없어, 닫히지도 않는다. 어쩌지? ㅡ.ㅡㅋ 명령행에 "STARTMODE" 라고 입력하면, 지금 0/1 이 표시된다. 해제"0", 설정"1" 입력하고 엔터. 끝. 별거 아닌거에 스트레스만 받았었네....ㅎㅎ

CAD를 써본 사람들은 대부분 알겠지만, 배경색상이 흰색이면, 선도 보이지 않고, 눈도 아프고 여간 불편한게 아니다. 배경색은 검은색으로 하는게 일반적인데, 배경 색상 바꾸는 일은 단순하다. [모형 배경색 변경] 1. 먼저 도구\옵션 or 배경화면에서 오른쪽 클릭을 해서 옵션(아래그림은 오른쪽 클릭 예시)에 들어간다. 2. 옵션에서 두번째 탭인 "화면표시" 3. 그리고, 색상에 들어가서 색상을 원하는 색상으로 변경 하면 끝. [시트 / 배치 배경색상 변경하기] 1. 시트 또는 배치도 배경 색상 변경이 가능 하다. 2. 도구\옵션\화면표시\색상 에서 변경 하면 되는데, 여기서 중요한점은 ㅁ용지배경 표시(K)를 비활성 하는것이 TIP. 단순하죠? 좋은 하루 되세요... *^^*

간단히 리습을 수정하기 위해서는 캐드에 기본 내장된 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자리 출력 [예시] 소수점 첫..