My Coding World

캐드하시는 분들 편리하게 사용하는 리습이죠.PI 명령아마도 리습을 활용하는 분들 중에 가장 많이 사용하는 것일 수 있습니다.PI 명령을 통해 블럭을 한번에 출력하면 하나씩 윈도우로 잡아서 출력하는 것보다 시간과 노력을 줄일 수 있지요.[목차]를 누르면 여기서 리습을 추가하면, 캐디안을 실행 후 자동으로 로드합니다.인터넷에서 도는 코드는 아래와 같습니다.;;; CTB, PRINTER, PAPER 설정;;;;;; 이 부분의 변수 ctb_file, prt_name, paper_size 에 ctb파일이름,프린터설정세이브파일이름,용지설정이름으로 ;;; 대체한후 AutoCAD에서 로드하여야 한다.;;; ;;;;Plot Device 설정(setq prt_name "SINDOH D450/CM Series PCL") ..

(DEFUN C:L0 () (command "clayer" "0")) (DEFUN C:LNCT () (command "clayer" "NCT")) (DEFUN C:Lmagenta () (command "clayer" "MCO")) (DEFUN C:LHIDDEN2 () (command "clayer" "HIDDEN2")) (defun C:L1 (/ lo cla) (setvar "cmdecho" 0) (princ " = LAYER OFF") (setq lo (entsel)) ;(setq lo (car lo)) ;(setq lo (cdr (assoc 8 (entget lo)))) (if lo (setq lo (cdr (assoc 8 (entget (car lo))))) (setq lo (strcase (get..

캐드작업을 하다가 이런 기능은 없을까? 특히나 layer를 여러가지 원하는 형태로 적용해서 리습을 사용하면 정말 편리합니다. 내가 선택한 레이어만 빼고 모든 레이어 끄기? 이것도 한번의 클릭이 필요한 것이지만, 항상 특정레이어만 빼고 다 빼고 싶을때.? 뭐 이런식으로 응용해서 사용하는 것이 중요하죠. 자신의 업무환경에 맞게 레이어만 잘 다뤄도 업무의 효율이 올라갈 것으로 생각됩니다. 레이어 관련 4개의 리습을 공유해 봅니다. 여기저기 필요한 것들을 모아서 함께 사용하면 좋을 것 같아서 공유해 봅니다. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; L1:선택레이어끄기 선택한 레이어를 꺼줍니다. 이것을 la명령어를 사용해서 하면 몇번의..

캐드작업을 하다보면, 블록을 하나, 둘... 이런식으로 계속 만들어야 하는 경우, 손이 아무리 빠른 사람도 지겹게 마련입니다. 이런 작업을 매일... 수없이 반복한다면, 어? 이거 편리하게 하는 방법이 없을까? 해서.... 찾아보았습니다. 우린 폭풍 검색을 하겠죠? 오토캐드뿐만 아니라 리습을 지원하는 국내 캐드프로그램 캐디안에서도 당연히 됩니다. WBLOCK을 쉽게 하는 방법을 리습이란 언어로 구현다고 보면 될 것입니다. 특히, NCT작업등 산업현장에서 수업이 블럭을 잡고 해체하고 또 잡고 만들고 하는 작업의 반복입니다. 한번이라도 클릭을 줄일 수 있다면 그건 영양가가 있다고 생각합니다. 왜냐하면, 그 동작을 계속하면 **** 하루에 수백번을 더 눌러야 하는 결과가 나오니까요. ;=============..

아는 지인의 요청으로 리습을 간단하게 만들어 보려고 합니다. 아래와 같은 철판에서 강제로 오프셋을 주고 띄운뒤 100mm 선을 그려주는 리습?을 하고 싶어하는 분이 있어서, 고민끝에 제가 할 수 있는 범위내에서 만들어보도록 했습니다. 리습기본 명령어와 여러가지 변수를 활용해서 만들기 시작했죠. 오랫만에 리습을 건드는 것이라 명령어를 많이 잊어버렸네요. ㅠ.ㅠ 수평 모서리 한 점을 누르면 노란색 선이 100 그려지는 함수 그냥 'DDD'라고 만들었네요. (defun c:ddd (/ ent pt pointx pointy upgap endx newstart newend) ; 수평 horizontality (setq pt (getpoint "\nSelect Edge Point : ")) (setq pt2 (ge..

오토리습으로 도면 그리는 사람들도 이젠 칼퇴근 좀 해 봅시다!. 가정으로 돌아가 가정을 돌보자구요! autolisp은 단축키? '단축키를 만들어보자' 캐드의 Acad.pgp 는 사용자로 하여금 단축키를 정의할 수 있는 화일인데, 이를 통해서 우리가 쉽게 한글자 또는 한 단어로 쉽게 명령을 실행하는 것이다. 1. 'Line' 명령의 단축키 지금의 autocad상에서는 'vlide'란 명령어를 입력하면 화면이 하나 뜹니다. 아래와 같이 말이죠. 오토캐드에서 제공하는 lisp 편집기라고 보면 됩니다. 자, 이제 여러분의 생애 첫 리습을 만들어 봅시다. (defun c:Li() (command "LINE")) 위의 명령어는 "line"을 "Li" 라는 단축키로 정의해 둔 것입니다. 즉, c: 다음의 "Li" 가..

안녕하세요. 라인을 그어놓고 , Pedit를 이용해서 join을 누르고 하는 동작들을 간단히 하는 방법이 없을까? 라고 고민하는 분들에게 좋은 팁이 될 것 같네요~ 먼저 리습으로 풀어보면... ; 과정은 이렇습니다. Line을 Pline으로 만든 후 Join하는 방식인데요. (defun c:ple(/ ss k ed en q) (prompt "\n>폴리라인으로 만들 객체를 선택 하세요..") (setq ss (ssget)) (setq k 0) (repeat (sslength ss) (setq ed (entget (ssname ss k)) en (cdr (assoc 0 ed))) (if (/= en "LWPOLYLINE") (setq q 1)) (setq k (1+ k)) );repeat (if q (com..

객체를 라인에 맞게 정렬하는 리습을 짜서 업무에 활용중인데, 계속 약간의 오류가 발생하는 것입니다. 정렬이 80%는 맞게 되는데, 20%는 혹은 10%는 맞지 않는거예요~ 아무래도 프로그램을 잘 못되서 그런지 알고 계속 오류를 찾아봤는데, 아무리 해도 해도 안되는 것입니다. 결국 문제는 osnap이 걸려있으면 시작포인트가 오스냅이 작동해서 다르게 잡힌다는 것을 수동으로 하면서 찾아냈지요~ 너무 '허무'하네요~~ 하지만, 이것이 오토리습으로 프로그램을 만들때 정말 중요하다는 사실.... 설정은 이렇게 하면 됩니다. (setq os (getvar 'osmode)) (setvar 'osmode 0) ~ 여기에 만들 프로그램 코드를 넣으면 됩니다. ~ (setvar 'osmode os) 오스냅을 일단 끄고 객체..