장바구니 | 마이페이지 | 캐쉬충전 | 로그인 | 이용안내 | 고객센터
CAD 지식공유EPLAN 지식공유스토어커뮤니티회사소개
회원가입아이디·비밀번호찾기
CAD 지식공유
회로도
표준심볼
Lisp
EPLAN 지식공유
부품
매크로
양식
구성
심볼
프로젝트
스크립트
유틸리티
스토어
기술서적
정규교육
컨설팅
소프트웨어
도면용역
기타
교육/강좌
동영상 강좌
특별 강좌
EPLAN 가이드
EPLAN electric P8
FA 지식공유
유틸리티
기타
Lisp 인기순위
기계 레이아웃 도...
뷰어다운로드
MS워드MS엑셀
파워포인트아크로벳리더
ACAD이플랜
기계 레이아웃 도면 용량 줄이기 - 리습
트위터미투데이페이스북
파일명 small entity delete.LSP
분류 CAD 지식공유 > Lisp
가격 무료 구매등급 새싹회원
등록일 2013년 05월 14일 판매자 ende
구매 0건 조회수 4,393회
자료번호 #0000197 파일크기 563Byte
다운로드
키워드 : 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)
)
목 차 목차없음

등록된 상품평이 없습니다.

위 정보를 구매한 경우 엔지니어링 적합성 여부는 구매자가 판단해야 합니다.
판매되는 회로는 컨텐츠 등록자의 노하우 이며, 이는 산업군별/제어 목적별로 다른 엔지니어링 구조를 가질수 있음을 의미 합니다.
제품 제작에 앞서 반드시 사용된 부품의 용량/ 케이블의 굵기와 같은 엔지니어링 정보를 확인 하시기 바랍니다.
해당 정보 및 게시물 저작권과 기타 법적 책임은 자료 등록자에게 있습니다.
위 정보및 게시물 내용의 불법적 이용, 무단전재및 배포는 금지되어 있습니다.
저작권침해, 명예훼손 등 분쟁요소 발견시 하단의 저작권 침해신고를 이용해 주시기 바랍니다.
회사소개 | 개인정보취급방침 | 회원약관 | 고객지원센터 | 저작권 침해신고 | 제휴 및 광고문의
이앤디일렉트릭(주)  대표이사 : 이준호  개인정보책임자 : 전선영  이메일 : support@ende.co.kr
사업자등록번호 :130-86-53291 통신판매업신고 : 2013-경기부천-0318 
주소 : (421-808) 경기도 부천시 오정구 삼정동 36-1 부천테크노파크 쌍용3차 IT 302동 804호 
대표전화 : 070-4349-1177 기술문의 : 070-4349-1176
Copyright 2001-2012 END Electric Co., Ltd. All rights reserved.