Arkadaşlar bu lisp yeni elime geçti sizinle paylaşmak istedim. Komut için 3 yazıp enter'a basıyoruz. Sonra tekrar enter yapıp komutu çalıştırıyoruz. Kim yazdıysa eline sağlık.
(DEFUN C:3 ()
;;(setq a (dictsearch (namedobjdict) "ACAD_DGNLINESTYLECOMP"))
(alert "File cleanup process starting/Dosya Temizleme islemi calisiyor")
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
(command "-purge" "all" "*" "n" )
(command "qsave")
(command "-purge" "all" "*" "n" )
(command "qsave")
(command "-purge" "all" "*" "n" )
(alert "File cleanup process finished/Dosya Temizleme islemi bitti")
)
Zaman zaman dosyalarımıza yapışan nesnelerden kurtulamadığımız zamanlar oluyor. Hatta Autocad bunun için 2014 de yama 2015 ve sonrasında bunu bütünleşik verdi. Eski versiyonlar için yukarıdaki kod çoğu zaman bu eklenti ihtiyacını karşılıyor. İyi forumlar...
aslında kullandığım Autocad eski versiyon olduğundan lisp çok işime yarıyor "ACAD_DGNLINESTYLECOMP" ne ise ! :) ,fazlaca düşüyor dosya MB'ı yani 12mb- 8-9mb oluveriyor.. çizgi tipleri ile alakalı bişey ama bilmiyorum.
ya bu klasik autocadci hastaligi. :-) 3 kere escape e basmak gibi. Itiraf edin hadi 3 kere basmayan varmi? fazlasi cikar eksigi cikmaz. Adam Saglam olsun diye 3 kere yazmis. :-)
Alıntıözkan-wien :
ya bu klasik autocadci hastaligi. :-) 3 kere escape e basmak gibi. Itiraf edin hadi 3 kere basmayan varmi? fazlasi cikar eksigi cikmaz. Adam Saglam olsun diye 3 kere yazmis. :-)
