|
|
|
|
|
|
 뷰어다운로드 |
|
|
|
|
|
|
|
 |
 |
| 키워드 : cad, lisp, 리습, 용량 줄이기 |
|
|
| 소개글 |
레이아웃 센서 배치도를 작성 하다 보면, 기계 설계에서 넘겨준 CAD도면이 용량이
너무 큰 경우가 많습니다.
전기도면에 구지 표현하지 않아도 될 정보들이 가득하고 복잡한 도면 인데요.
작은 객체를 삭제하여 용량을 줄이는 리습을 공개 합니다. |
| 요약 |
<명령 사용 방법>
1. 명령어 sd 입력
2. 길이를 입력하세요: 길이값 입력
3. 라인(길이), 원(원주길이), 호, 폴리라인, 타원, 스플라인, 솔리드, 텍스트 등등의 객체에 대해 입력된 길이값 보다 작은 객체를 모두 삭제 합니다.
<사용 조건>
1. 기계 도면이 블럭으로 묶여 있다면 explode 해서 명령어를 적용 하면 됩니다.
2. 실질적으로 작은 객체들을 삭제하므로 용량이 현저히 줄어 듭니다.
이 리습은 무료로 공개 합니다.
<프로그램 내용>
(defun c:sd ()
(setvar "cmdecho" 0)
(setq len_input (getreal "n 길이를 입력 :"))
(setq ent (ssget '((0 . "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE,SOLID,TEXT,MTEXT"))))
(setq n 0 distan 0)
(repeat (sslength ent)
(setq ent_next (ssname ent n))
(command "lengthen" ent_next "")
(setq distan (getvar "PERIMETER"))
( if ( > len_input distan )(command "erase" ent_next ""))
(setq n (1+ n))
)
( princ "
이 LISP은 이앤디일렉트릭(주)에서 제작 되었습니다.
궁금하신점은 ceo@ende.co.kr 이준호 에게 문의 주세요." )
(setvar "cmdecho" 1)
) |
| 목 차 |
목차없음 |
 |
|
|
 |
|
위 정보를 구매한 경우 엔지니어링 적합성 여부는 구매자가 판단해야 합니다.
판매되는 회로는 컨텐츠 등록자의 노하우 이며, 이는 산업군별/제어 목적별로 다른 엔지니어링 구조를 가질수 있음을 의미 합니다.
제품 제작에 앞서 반드시 사용된 부품의 용량/ 케이블의 굵기와 같은 엔지니어링 정보를 확인 하시기 바랍니다.
해당 정보 및 게시물 저작권과 기타 법적 책임은 자료 등록자에게 있습니다.
위 정보및 게시물 내용의 불법적 이용, 무단전재및 배포는 금지되어 있습니다.
저작권침해, 명예훼손 등 분쟁요소 발견시 하단의 저작권 침해신고를 이용해 주시기 바랍니다. |
|
파일명
통신판매업신고 : 2013-경기부천-0318 
