안녕하세요!! 처음 오셨나요??

techno 님

(Today 0 Total 87,970 )

내 질문글 보기

내 답변글 보기

내 지식폴더


	기계기구설계
	자동화설계및기술
	설계계산식
	공기압기술
	유압기술
	금속재료및열처리
	기계요소
	자동차기술
	MOTOR기술자료
	3D작품
	설계도
	유압설계자료
	제어계측기술
	자동조립기술
	금형기술자료
	공학자료실
	반도체
	동력전달기계요소
	업체카다로그

자료실 추가/삭제

저작권위반 자료삭제요청

제목

: 캐드파일 용량 줄여주는 lisp입니다.

분류

: 기계금속 > 기계설계

판매가격

: 무료자료

작성자

: techno

작성일

: 2006.09.01

조회/다운

: 5,950회 / 125건

평점/추천

: 0 / 1 명

다운로드

: de-4933.lsp

오토캐드리습파일입니다.
레이어 필터링
커멘드상태에서 appload 해서 파일 로딩 후 "DC" 치고 삭제할 것들 지우시면 됩니다.

캐드 파일을 열어 작업 후 저장이 아주 늦게 되는 경우나 쓸데없이 파일 용량이 큰 경우 이걸 사용하면 용량이 확 줄더라구요.

;;;출처:http://www.cad.pl/wwwboard/21186.htm
;;; Delete layer filters *
;;; September 2001, Stig Madsen *
;;; *
;;; Deleting named layer filters is achieved by deleting *
;;; the single XRecords in dictionary "ACAD_LAYERFILTERS" *
;;; If a layer filter is currently in effect the filter is *
;;; deleted but is visible in the Layer Dialog until one of *
;;; the 3 built-in filters is chosen. *
;;; The built-in filters cannot be deleted. *
;;;;;
;;;;;
(vl-load-com)
(defun C:dc (/ cmd activeDoc xDictLayers
flag xtype xvalue layfilters
count tmp tmpName ask
)
(setq activeDoc (vla-get-ActiveDocument (vlax-get-acad-object))
xDictLayers (vla-getExtensionDictionary (vla-get-Layers activeDoc))
cmd (getvar "CMDECHO")
)