[lisp] 원 또는 사각형의 중심선 그리기
[lisp] 원 또는 사각형의 중심선 그리기 원 또는 반원 , 그리고 사각형의 중심선을 그려주는 리습입니다. 그리고 추가적인 옵션으로 길이를 설정하는 부분을 추가 시켰습니다. 길이 입력은 0 에서 100 까지 퍼센트로 입력 가능하며 기본 설정 값은 10입니다. 사용방법은 위와 같은 그림을 그리고 객체를 선택하여 Input length to extend the center line : 중심선의 연장 길이를 설정하고 엔터를 누르면 위와 같은 중심선을 얻을 수 있습니다.
[LISP TIP] 나쁜 OSNAP 선이 날아가네?! 응!?
[LISP TIP] 나쁜 OSNAP 선이 날아가네?! 응!? 제가 몇일 전에 다듬질 기호를 그리는 LISP을 사용하다가 이상하게 LINE들이 많이 지그재그로 겹쳐있는 곳에 선이 삐죽하고 날아가는 증상이 생겨서 이상하다 싶었는데 알고 보니 LISP 구문 실행 중에도 OSNAP이 적용되어 작도 되는 구간에 OSNAP이 잡히는게 있다면 그 쪽으로 삐죽하고 날아가는 거였습니다. 결국 (command "osnap" "off") 구문으로 해결했습니다. 참고로 삐죽 날아간 다듬질 기호 그림을 올려요 ㅡㅡ;
;만든이 : 아키모아 정길복님. ;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 개발 Tool을 실행하자!! (ㅜㅜ) 이걸 알기 전까지 메모장을 얼마나 열었던가 !!!! ㅠ Autocad를 설치하면 기본적으로 Lisp을 개발하고 편집할 수 있는 프로그램이 같이 설치됩니다.!!! (지금까지 몰랐던 .... 그래서 메모장을 수시로 열었던 1人 ㅡㅡ) 그것의 이름은 Visual LISP 이라는 넘이죠 우선 이 넘을 활성화 시킬려면 명령을 쳐서 좀 불러야됩니다. command : vlide 이게 이넘을 부르는 명령입니다. 처음에 VisualLISP 이라서 vlisp라고 치면 나오는 줄 알았다는.... 검색으로 찾아보니 vlide더군요 췟! 그럼 실행 화면을 한번 볼까요~ 이걸 보시라 편집에 디버그까지 필요한건 다 있는것이 아닌가 +_+ 이걸 모르고 메모장이..
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" "" "")) ; | 이름 | 색상 | 선종류
보호되어 있는 글입니다.
** 공차 자동 기입 메뉴 기입할 공차의 종류를 선택하고 치수를 선택하면 그 공차가 적용됩니다.
아래 리습을 이용하면 치수기입 처음 부터 지름부호(Ø)를 가진 치수를 넣으실 수 있습니다. 치수 입력후에도 DIMPOST는 변함없이 초기상태 유지를 합니다. (DEFUN C:VHD(/ a b) ;;;수직/수평 지름치수 (COMMAND "LAYER" "S" "사용자레이어이름" "")(SETVAR "DIMTOL" 0) (setq a (getpoint "\n First point")) (setq b (getpoint a "\n Second point")) (COMMAND "dimlinear" a b "t" "%%c" pause) ) 아래 리습은 이미 작성된 치수에 지름(Ø) 기호 넣기입니다. (DEFUN C:PI () (PRINC "=pi()") (COMMAND "dimoverride" "dimpost" "%..
** 블럭 만들어서 제자리 붙이기 카피클립(ctrl+shift+c , ctrl+shift+v) 을 이용한 간단한 리습입니다.(귀차니즘때문에 만듬 ㅋ) -> 명령(MB 객체 선택 -> 기준점 선택 -> 엔터 -> 기존 객체가 있던 자리에 새로운 블럭이 생성되고 기존 객체는 삭제함 아주 간단하져? 간단하지만 편할때가 있더라구요.... 저 컴에는 이런 잡다한 것들이 너무 많아서리 잠시 만들어서 쓰고나면 나중엔 명령어를 모릅니다. 나중에 다시 쓸땐 한참을 찾거나(두뇌 버전이 낮아서) 새로 만든답니다. (찾는 시간에 수작업을 하는 것이 빠를 때도 있음 ㅋㅋㅋ) ;;카피클립으로 블럭 만들어서 제자리 붙이기(일반 객체는삭제됨) (defun c:MB (/ ent bp) (graphscr) (prompt " >> 객체 ..
검은 굵은 글씨가 명령어 이구요 붉은 글씨는 사용자가 입력을 해주셔야 사용 가능합니다. ;;;---★선종류 & 색상 바꾸는...★--------------------------------------------- (defun C:1 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 굵은선 (defun C:2 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 가는실선 (defun C:3 () (command "SELECT" "\\" "CHANGE" "P" "" "P" "C" "색상이름또는번호" "LT" "선종류" "")) ; 중..