IT tech Coding/AutoLisp12 [lisp] 도면 블럭을 한번에 출력하는 명령어 'PI'에 대한 코드 설명 캐드하시는 분들 편리하게 사용하는 리습이죠.PI 명령아마도 리습을 활용하는 분들 중에 가장 많이 사용하는 것일 수 있습니다.PI 명령을 통해 블럭을 한번에 출력하면 하나씩 윈도우로 잡아서 출력하는 것보다 시간과 노력을 줄일 수 있지요.[목차]를 누르면 여기서 리습을 추가하면, 캐디안을 실행 후 자동으로 로드합니다.인터넷에서 도는 코드는 아래와 같습니다.;;; CTB, PRINTER, PAPER 설정;;;;;; 이 부분의 변수 ctb_file, prt_name, paper_size 에 ctb파일이름,프린터설정세이브파일이름,용지설정이름으로 ;;; 대체한후 AutoCAD에서 로드하여야 한다.;;; ;;;;Plot Device 설정(setq prt_name "SINDOH D450/CM Series PCL") .. 2024. 5. 31. [lisp] 두개의 레이어를 켜고 싶을때 리습명령어 (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.. 2023. 9. 2. [lisp] 특정레이어만 빼고 Layer 끄기 등 레이어 관련 리습 공유 캐드작업을 하다가 이런 기능은 없을까? 특히나 layer를 여러가지 원하는 형태로 적용해서 리습을 사용하면 정말 편리합니다. 내가 선택한 레이어만 빼고 모든 레이어 끄기? 이것도 한번의 클릭이 필요한 것이지만, 항상 특정레이어만 빼고 다 빼고 싶을때.? 뭐 이런식으로 응용해서 사용하는 것이 중요하죠. 자신의 업무환경에 맞게 레이어만 잘 다뤄도 업무의 효율이 올라갈 것으로 생각됩니다. 레이어 관련 4개의 리습을 공유해 봅니다. 여기저기 필요한 것들을 모아서 함께 사용하면 좋을 것 같아서 공유해 봅니다. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; L1:선택레이어끄기 선택한 레이어를 꺼줍니다. 이것을 la명령어를 사용해서 하면 몇번의.. 2022. 3. 14. 오토리습(autolisp) WB 명령으로 블록 쉽게 저장해 보자 캐드작업을 하다보면, 블록을 하나, 둘... 이런식으로 계속 만들어야 하는 경우, 손이 아무리 빠른 사람도 지겹게 마련입니다. 이런 작업을 매일... 수없이 반복한다면, 어? 이거 편리하게 하는 방법이 없을까? 해서.... 찾아보았습니다. 우린 폭풍 검색을 하겠죠? 오토캐드뿐만 아니라 리습을 지원하는 국내 캐드프로그램 캐디안에서도 당연히 됩니다. WBLOCK을 쉽게 하는 방법을 리습이란 언어로 구현다고 보면 될 것입니다. 특히, NCT작업등 산업현장에서 수업이 블럭을 잡고 해체하고 또 잡고 만들고 하는 작업의 반복입니다. 한번이라도 클릭을 줄일 수 있다면 그건 영양가가 있다고 생각합니다. 왜냐하면, 그 동작을 계속하면 **** 하루에 수백번을 더 눌러야 하는 결과가 나오니까요. ;=============.. 2022. 2. 15. [autolisp] 절곡라인을 점으로부터 그려볼까? 내맘대로 리습 아는 지인의 요청으로 리습을 간단하게 만들어 보려고 합니다. 아래와 같은 철판에서 강제로 오프셋을 주고 띄운뒤 100mm 선을 그려주는 리습?을 하고 싶어하는 분이 있어서, 고민끝에 제가 할 수 있는 범위내에서 만들어보도록 했습니다. 리습기본 명령어와 여러가지 변수를 활용해서 만들기 시작했죠. 오랫만에 리습을 건드는 것이라 명령어를 많이 잊어버렸네요. ㅠ.ㅠ 수평 모서리 한 점을 누르면 노란색 선이 100 그려지는 함수 그냥 'DDD'라고 만들었네요. (defun c:ddd (/ ent pt pointx pointy upgap endx newstart newend) ; 수평 horizontality (setq pt (getpoint "\nSelect Edge Point : ")) (setq pt2 (ge.. 2022. 1. 11. lisp 명령어 탐구생활, lisp으로 캐드의 지겨운 반복 벗어나 보자! 오토리습으로 도면 그리는 사람들도 이젠 칼퇴근 좀 해 봅시다!. 가정으로 돌아가 가정을 돌보자구요! autolisp은 단축키? '단축키를 만들어보자' 캐드의 Acad.pgp 는 사용자로 하여금 단축키를 정의할 수 있는 화일인데, 이를 통해서 우리가 쉽게 한글자 또는 한 단어로 쉽게 명령을 실행하는 것이다. 1. 'Line' 명령의 단축키 지금의 autocad상에서는 'vlide'란 명령어를 입력하면 화면이 하나 뜹니다. 아래와 같이 말이죠. 오토캐드에서 제공하는 lisp 편집기라고 보면 됩니다. 자, 이제 여러분의 생애 첫 리습을 만들어 봅시다. (defun c:Li() (command "LINE")) 위의 명령어는 "line"을 "Li" 라는 단축키로 정의해 둔 것입니다. 즉, c: 다음의 "Li" 가.. 2022. 1. 11. 이전 1 2 다음 반응형