** CTB 와 STB *.CTB (Color dependent plot style, 색상 종속 플롯 스타일 테이블) *.STB (Named plot styles, 명명된 플롯 스타일 테이블) CTB는 1부터 255까지의 번호에 의해 정의되는 색상별로 선의 굵기 등을 지정해서 사용하는 방식 STB는 객체와 도면 층(Layer)별로 선의 굵기 등을 지정해서 사용하는 방식 >> CTB 와 STB 를 결정하는 방법 1. 도면을 새로 만들 때 결정 New > Select Template > acad.dwt 또는 acadiso.dwt 을 선택하면 CTB 적용 acad-Named Plot Styles.dwt 또는 acadiso-Named Plot Styles.dwt 을 선택하면 STB 적용 2. Options를 이..
[LISP TIP] 나쁜 OSNAP 선이 날아가네?! 응!? 제가 몇일 전에 다듬질 기호를 그리는 LISP을 사용하다가 이상하게 LINE들이 많이 지그재그로 겹쳐있는 곳에 선이 삐죽하고 날아가는 증상이 생겨서 이상하다 싶었는데 알고 보니 LISP 구문 실행 중에도 OSNAP이 적용되어 작도 되는 구간에 OSNAP이 잡히는게 있다면 그 쪽으로 삐죽하고 날아가는 거였습니다. 결국 (command "osnap" "off") 구문으로 해결했습니다. 참고로 삐죽 날아간 다듬질 기호 그림을 올려요 ㅡㅡ;
풀리의 전달 하중을 분석한 내용입니다.
O Ring에 대한 전반적인 자료입니다.
보호되어 있는 글입니다.
** Acroedit LISP 구문 강조와 함수목록 올리기 이번에 소개 드릴 것은 LISP 편집을 Acroedit로 할때 편리를 위한 TIP입니다. 즉, LISP 문법에 색을 지정하여 보다 보기 편하게 하기 위한 방법입니다. 그리고 Acroedit의 함수목록에 LISP의 함수 목록을 등록하기 위한 방법을 소개하겠습니다. 우선은 다음 2 파일이 필요합니다. 우선 lisp.stx 파일을 등록 합니다. 환경 설정을 선택합니다. 위와 같이 문법강조에 파일을 추가합니다. 문법강조를 등록하셨다면 알록달록한 lisp 코드를 보실수 있습니다. 다음으로는 함수목록을 활성화하기 위해서 진행되어야 하는 과정을 보겠습니다. 위와 같이 함수목록 작업 창을 활성화합니다. 위와 같이 함수 목록 창을 확인 할 수 있습니다. 여기서 ..
;만든이 : 아키모아 정길복님. ;Make directory(folder) Sub_routine (defun MakeDir (Pathname$ / Drive$ Folder$ Folders@) (vl-load-com) (setq Pathname$ (vl-filename-directory (strcat Pathname$ "\\"))) (while (/= Drive$ Pathname$) (setq Folder$ (substr Pathname$ (1+ (strlen (vl-filename-directory Pathname$))))) (if (= (substr Folder$ 1 1) "\\") (setq Folder$ (substr Folder$ 2)) ) (setq Folders@ (cons Folder$ Fo..
** AutoCad 속에 Lisp 개발 Tool을 실행하자!! (ㅜㅜ) 이걸 알기 전까지 메모장을 얼마나 열었던가 !!!! ㅠ Autocad를 설치하면 기본적으로 Lisp을 개발하고 편집할 수 있는 프로그램이 같이 설치됩니다.!!! (지금까지 몰랐던 .... 그래서 메모장을 수시로 열었던 1人 ㅡㅡ) 그것의 이름은 Visual LISP 이라는 넘이죠 우선 이 넘을 활성화 시킬려면 명령을 쳐서 좀 불러야됩니다. command : vlide 이게 이넘을 부르는 명령입니다. 처음에 VisualLISP 이라서 vlisp라고 치면 나오는 줄 알았다는.... 검색으로 찾아보니 vlide더군요 췟! 그럼 실행 화면을 한번 볼까요~ 이걸 보시라 편집에 디버그까지 필요한건 다 있는것이 아닌가 +_+ 이걸 모르고 메모장이..
** 컨베이어 방식 제조업에 있어 전통적인 작업 방식으로 컨베이어의 벨트가 계속 돌아가는 동시에 사람이 벨트위의 제품을 단순조립하는 과정이다. 이런 컨베이어 시스템은 특유의 장점에도 불구하고 전체 생산시스템의 효율이 가장 능력이 낮은 구성원에 의해 좌우된다는 점, 작업 범위를 세분화해 단절시켜 버림으로써 근로의욕이나 현장의 혁신 가능 성을 저해한다는 점 등의 한계를 내재하고 있다. ** 셀(Cell)생산방식 1~10명 정도의 기능공이 소규모 팀을 구성해 모든 공정의 조립 작업을 직접 수행하는 방식을 말한다. 셀 생산방식은 컨베이어 시스템과는 달리 전체 생산 효율이 팀 의 평균적 능력이나 팀 내의 가장 뛰어난 구성원에 의해 좌우되며 구성원이 전 체 공정을 커버함에 따라 문제가 발생했을 때 근본적인 원인을 ..
1. 숫자 이름으로 된 레이어를 숫자 단축키로 간단히 변경하기 단축키 : 0 ,1, 2, 3, 4, ,5, 6, 7, 8, 9 - 초기화 기능 추가 단축키 : 000, 111, 0 ,1, 2, 3, 4, ,5, 6, 7, 8, 9 2. 치수에 파이 기호 삽입하기 단축키 : pi 3. 제자리 블럭 잡기 (블럭 이름 정의 포함) 단축키 : bb - 추가 : (블럭 이름 정의 미포함) 4. Chamfer, Fillet 된 부분 모서리 만들기 단축키 : ree 5. 개인 설정 osnap으로 초기화 하기 (끝점, 교차점, 수직점) 단축키 : ius 6. 중심선 그리기 단축키 : cc 7. 도면 정리하기 단축키 : ff - dcl 없이 단독 실행형으로 수정 by nadau 8. 장공(Slot Hole) 그리기 단축..
;; dcl의 창에서 선택받은 목록을 분리해서 리스트로 돌려줌 : ("0 1 3 99") => (0 1 3 99) (defun list2lst (str / n lst) (setq lst (list (atoi str))) (while (setq n (vl-string-position (ascii " ") str)) (setq str (substr str (+ n 2))) (setq lst (append lst (list (atoi str)))) ) lst ) ;;사용예 레이어목록을 뿌려주고 여러개선택하여 받은값을 기준으로 선택된 레이어목록을 구성함. ...... (start_list "layer_lst" 3)(mapcar 'add_list la-list)(end_list) ...... ?(action_ti..
(if (tblsearch "layer" "5") (command "layer" "s" "5" "") (command "layer" "m" "5" "c" "blue" "5" "") ) ex) (if (= (tblsearch "layer" "0") nil) ;layer 1 이 있는지 없는지 확인 없으면 만든다. (command "layer" "m" "0" "c" "7" "" "lt" "continuous" "" "")) ; | 이름 | 색상 | 선종류
보호되어 있는 글입니다.
보호되어 있는 글입니다.
보호되어 있는 글입니다.
비파괴 검사에 대한 자료입니다.