Forum
Download
Galeri
Üye Ol
|
Giriş
AutoCAD
•
AutoLISP
•
Programlama
•
Püfler
•
Komutlar
•
Terimler
•
Eğitim
aLd
•
TCad
•
FacadeCAD
•
Cephe Kot
•
HQ Library
•
FreeMUST
•
Pasdoc.A
Forumlar
>
AutoLISP
>
dwg dosya boyutu küçültme
85384
14.08.2017 07:03
yasinkaratas01
Merhaba;
Elimde 35 mb lık bir dwg dosyası var bu boyutu küçültmek yardımlarınızı bekliyorum
saygılarımla
85385
14.08.2017 07:42
ehya
dosya içinde anormal bir durum yok ise, küçültemezsiniz. Dwg formatı zaten sıkıştırılmış bir veri altyapısına sahiptir.
85390
14.08.2017 17:33
macros55
PURGE
ENTER all tıkla.daha sonra çizimide gizli olan referansları ve blockları kontrol et
85391
15.08.2017 05:35
mateus
Linkleri görebilmek için
ÜYE
olmalısınız.
85478
08.09.2017 11:39
badabum
dosyanızın yedeğini alıp deneyin, kayıplara neden olabilir
Kod:
(defun C:Mclean ( / OldLay FrzLay Counter rpt)
(setq OldLay (getvar "CLAYER" ))
(setq FrzLay (cdr (assoc 70 (tblsearch "LAYER" "Defpoints"))))
(setq Counter 1)
(if (or (= FrzLay 1) (= FrzLay 5)) (command ".-layer" "Thaw" "defpoints" "") ( ))
(if (tblsearch "LAYER" "Defpoints") (setvar "CLAYER" "Defpoints") ( ))
(setq rpt(getint "\nKAÇ TEKRAR? <1> :"))
(if (not rpt) (setq rpt 1))
(repeat rpt
(command "-Purge" "All" "*" "N")
(command "-Purge" "R" "*" "N")
(command "-overkill" "All" "" "")
(command "audit" "Y")
(princ (strcat "*************** OVERKILL PURGE AUDIT TAMAMLANDI. ***************\n"))
(princ (strcat "************ İŞE YARAMADI MI? O ZAMAN >> WBLOCK DENEYIN << *************\n"))
(setq Counter (1+ Counter))
)
(if (= (tblsearch "LAYER" OldLay) nil) (setvar "CLAYER" "0") (setvar "CLAYER" OldLay))
(if (or (= FrzLay 1) (= FrzLay 5)) (command ".-layer" "Freeze" "defpoints" "") ( ))
(princ)
)
>
1
<
Copyright © 2004-2022 SQL: 1.291 saniye - Sorgu: 54 - Ortalama: 0.0239 saniye