티스토리

My Coding World
검색하기

블로그 홈

My Coding World

goodsgoods.tistory.com/m

프로그램과 함께 하는 코딩인생

구독자
2
방명록 방문하기
공지 내 인생은 코딩.... 모두보기

주요 글 목록

  • [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") .. 공감수 0 댓글수 1 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.. 공감수 0 댓글수 0 2023. 9. 2.
  • [lisp] 특정레이어만 빼고 Layer 끄기 등 레이어 관련 리습 공유 캐드작업을 하다가 이런 기능은 없을까? 특히나 layer를 여러가지 원하는 형태로 적용해서 리습을 사용하면 정말 편리합니다. 내가 선택한 레이어만 빼고 모든 레이어 끄기? 이것도 한번의 클릭이 필요한 것이지만, 항상 특정레이어만 빼고 다 빼고 싶을때.? 뭐 이런식으로 응용해서 사용하는 것이 중요하죠. 자신의 업무환경에 맞게 레이어만 잘 다뤄도 업무의 효율이 올라갈 것으로 생각됩니다. 레이어 관련 4개의 리습을 공유해 봅니다. 여기저기 필요한 것들을 모아서 함께 사용하면 좋을 것 같아서 공유해 봅니다. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; L1:선택레이어끄기 선택한 레이어를 꺼줍니다. 이것을 la명령어를 사용해서 하면 몇번의.. 공감수 0 댓글수 0 2022. 3. 14.
  • 오토리습(autolisp) WB 명령으로 블록 쉽게 저장해 보자 캐드작업을 하다보면, 블록을 하나, 둘... 이런식으로 계속 만들어야 하는 경우, 손이 아무리 빠른 사람도 지겹게 마련입니다. 이런 작업을 매일... 수없이 반복한다면, 어? 이거 편리하게 하는 방법이 없을까? 해서.... 찾아보았습니다. 우린 폭풍 검색을 하겠죠? 오토캐드뿐만 아니라 리습을 지원하는 국내 캐드프로그램 캐디안에서도 당연히 됩니다. WBLOCK을 쉽게 하는 방법을 리습이란 언어로 구현다고 보면 될 것입니다. 특히, NCT작업등 산업현장에서 수업이 블럭을 잡고 해체하고 또 잡고 만들고 하는 작업의 반복입니다. 한번이라도 클릭을 줄일 수 있다면 그건 영양가가 있다고 생각합니다. 왜냐하면, 그 동작을 계속하면 **** 하루에 수백번을 더 눌러야 하는 결과가 나오니까요. ;=============.. 공감수 0 댓글수 0 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.. 공감수 0 댓글수 1 2022. 1. 11.
  • lisp 명령어 탐구생활, lisp으로 캐드의 지겨운 반복 벗어나 보자! 오토리습으로 도면 그리는 사람들도 이젠 칼퇴근 좀 해 봅시다!. 가정으로 돌아가 가정을 돌보자구요! autolisp은 단축키? '단축키를 만들어보자' 캐드의 Acad.pgp 는 사용자로 하여금 단축키를 정의할 수 있는 화일인데, 이를 통해서 우리가 쉽게 한글자 또는 한 단어로 쉽게 명령을 실행하는 것이다. 1. 'Line' 명령의 단축키 지금의 autocad상에서는 'vlide'란 명령어를 입력하면 화면이 하나 뜹니다. 아래와 같이 말이죠. 오토캐드에서 제공하는 lisp 편집기라고 보면 됩니다. 자, 이제 여러분의 생애 첫 리습을 만들어 봅시다. (defun c:Li() (command "LINE")) 위의 명령어는 "line"을 "Li" 라는 단축키로 정의해 둔 것입니다. 즉, c: 다음의 "Li" 가.. 공감수 5 댓글수 1 2022. 1. 11.
  • 라인을 폴리라인으로 만드는 간단 리습(Lisp) Pedit 대용 안녕하세요. 라인을 그어놓고 , 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.. 공감수 0 댓글수 0 2020. 5. 17.
  • 오토리습으로 원하는 동작이 안될때 이것을 꼭 살펴보세요~ 객체를 라인에 맞게 정렬하는 리습을 짜서 업무에 활용중인데, 계속 약간의 오류가 발생하는 것입니다. 정렬이 80%는 맞게 되는데, 20%는 혹은 10%는 맞지 않는거예요~ 아무래도 프로그램을 잘 못되서 그런지 알고 계속 오류를 찾아봤는데, 아무리 해도 해도 안되는 것입니다. 결국 문제는 osnap이 걸려있으면 시작포인트가 오스냅이 작동해서 다르게 잡힌다는 것을 수동으로 하면서 찾아냈지요~ 너무 '허무'하네요~~ 하지만, 이것이 오토리습으로 프로그램을 만들때 정말 중요하다는 사실.... 설정은 이렇게 하면 됩니다. (setq os (getvar 'osmode)) (setvar 'osmode 0) ~ 여기에 만들 프로그램 코드를 넣으면 됩니다. ~ (setvar 'osmode os) 오스냅을 일단 끄고 객체.. 공감수 0 댓글수 1 2020. 3. 24.
  • autolisp, 오토리습으로 가능한 또다른 세상~ 우린 설계를 위해서 캐드를 배웁니다. Line명령에서 시작해서 circle... pline, arc 등등 명령을 배우면서 하나하나 그려나가지요. 그러다보면 설계가 계속적인 반복이 많다는 것을 금새 알아차립니다. 오토리습은 그런 반복적인 일이 아주 지긋지긋하게 싫은데 캐드를 써서 만들어야 하는 사람들에게 배워두면 아주 단비같은 존재가 아닐까 싶네요~ 리습강좌를 들으면서 나름 정리해 두면 좋을 것 같은 내용을 추려서 공유해 봅니다. 정보는 나누면 배가 되는 것이니까요. 각자의 취향대로 autolisp 언어도 만들 수 있으니, 많은 사람들의 아이디어가 합치면 거대한 프로젝트도 가능한거 아닐까요? github나 기타 프로그램들이 이런 동력으로 성장했다고 알고 있습니다. 오토리습을 통해 산업에서 좀더 실수를 줄일.. 공감수 0 댓글수 1 2020. 3. 12.
  • 오토리습autolisp, 객체의 하단 중앙을 잡아주는 리습연습 오토캐드의 꽃이라고 할 수 있는 리습을 연습합니다. 레이져편집을 하거나 반복되는 작업을 편하게 할 수 있는 리습은 정말 캐드의 꽃이라고 할 수 있지요.... 물론 캐드라는 것이 너무 방대해서 리습도 하나의 작은 개념이라고 할수도 있지만, 캐드의 고급사용자가 되기 위해서는 반드시 리습을 아는 것과 모르는 것은 업무속도가 엄청 차이가 날 것입니다. 처음 리습을 접하는 분들에겐 그냥 소스를 활용해서 사용해도 좋을 것 같아서 공유해 봅니다. 객체의 하단 중앙을 잡아주는 리습입니다. 많이 미흡하지만, 혹시 필요한 분들을 위해서 공유합니다. (defun c:mc(/ objs entname vlentname minpoint maxpoint lowleftpoint lowleftpointx lowleftpointy lo.. 공감수 0 댓글수 0 2020. 3. 11.
  • [autolisp] 객체를 원하는 만큼 이동하는 리습문장 캐드에서 백미는 역시 리습이 아닐까 싶네요. 리습으로 설계시간을 단축한다면 이는 일을 정말 잘하는 직장인 또는 자영업자가 되는 길이 아닐까 싶군요. 리습을 통해 더 나은 세상을 꿈꿔봅니다. 객체를 선택 후 위로 50미리 이동하는 리습입니다. 간단히 수정하면 위로 아래로 옆으로 등등 모두 구현이 가능하지 않을까 싶네요. 아직 리습에 대해 모르는 것이 많지만, 하나하나 배워가며 연습해서 설계를 앞으로 더 멋지게 하려고 해요~ 모두모두 화이팅입니다. (defun c:up50 (/ s) (if (setq s (ssget ":L")) (while (getpoint "\nPick a point to nudge: ") (command "_.move" s "" '(0. 0. 0.) '(0. 50. 0.)) ) ) (p.. 공감수 0 댓글수 0 2020. 1. 1.
  • [AutoLisp] Text 두개의 문자를 합치는 방법 오토리습은 아주 훌륭한 프로그램 같습니다. 이젠 캐드 프로그램까지 손대게 되네요. 프로그램 코딩은 힘든 작업이지만, 늘 하면서 보람도 느끼는 작업이네요. 최대한 빠른시간에 무엇보다도 정확하게 하는 것이 중요하겠지요. 잘못되면 큰 손해가 나오는 것이 설계니까요. 간단하게 두 텍스트를 합치는 리습이 있어서 소개합니다. 명령어 "td" 입력하고 객체 1번 선택 엔터, 2번선택 엔터 치면 1번객체에 2번객체가 달라붙는 방식입니다. 간단하지만, 유용할 것 같습니다. 위와 같이 떨어져있는 텍스트 문장을 이젠 마법처럼 함께 붙여줍니다. 1번 객체를 선택하고 엔터나 스페이스키를 누른 후 2번 객체를 선택하고, 다시 엔터나 스페이스를 누르면, 신통방통하게... 위와 같이 됩니다 ^^ 리습코드는 아래 내용을 복사해서 사용.. 공감수 0 댓글수 2 2019. 12. 25.
    문의안내
    • 티스토리
    • 로그인
    • 고객센터

    티스토리는 카카오에서 사랑을 담아 만듭니다.

    © Kakao Corp.