Farklı dosyalardaki aynı isimli block reference değiştirme

[highlevel]

Merhaba,

Çizimlerimde block reference olarak kullandığım anteti değiştirmek istiyorum. Yaklaşık 816 tane çizimim var ve bu antet içinde yer alan tarih rev no ve logo bölümlerini değiştirmem gerekiyor. Tek tek çizimleri açmadan yapabileceğim bir yol var mı???? Yardım ederseniz çok sevinirim.

[Melody]

Antet dosyanı diğer 816 dosyaya xref olarak tanıtırsan, daha sonra antet dosyasında yapacağın her değişiklik direk olarak tüm dosyalara yansır.

[orhunkeskinbicak]

aklıma gelen en kolay yol 816 dosyayı daha önceden düzenlemesini yaptığın bir dosyaya çağırmak eğer blok isimleri aynı ise otomatik olarak değişecektir.
dosyaların ismini 1.dwg 2.dwg 3.dwg ..... gibi sıralı değiştire bilirsen hızlı bir şekilde bu işlemi yapan bir lisp de yazılabilir..

yada çıktılar a3 yada a4 gibi standart boylarda ise iki kez çıktı alarak halledebilirsin
önce antet sonra çizim

iyi çalışmalar

[Sword]

Sanırım sorununuz Autocad scriptlerini kullanarak çözebilirsiniz.

1. İlk önce bütün çizimlerinizi aynı klasör içine toplayın.
2. Sonra yeni kullanmak istediğiniz bloğu tanımlayıp autocad klasörünün içerisine kaydedin.
3. Notepad'i açıp aşağıdaki komutları yazalım ve uzantısı scr olacak şekilde kaydedelim.
   

   open "c:\a.dwg"
   -insert EskiBlokAdi=YeniYaratipKaydettigimizBlokAdi (command /e "resume")
   qsave
   close

   buradaki a.dwg yerine çizimlerimizden birisni adı olacak.
4. Autocad de herhangi bir boş çizim açıkken Tools menüsünün altından run script komutuyla yarattığımız script dosyasını çalıştırdığımız zaman belirttiğimiz isimdeki çizimi açıp içerisindeki bloğu değiştirip kaydederek kapatacaktır.

Şimdilik bu yazdığım sadece bir çizimin içerisindeki antet bloğunda değişikli yapacaktır. Tüm çizimler için aynı şeyi yapmamız gerekiyor. Bunun içinde:

1. Dos ekranını açıp çizimlerin bulunduğu klasöre gidip aşağıdaki komutları yazıyoruz
   

   dir *.dwg >liste.txt /b

   Bu şekilde tüm çizimlerin bir listesini elde etmiş olduk.
2. Şimdi bu dosyayı wordpad de açıp find and replace yardımıyla başına ve sonuna gerekli script kodlarını yazdırırsın. Bunu daha pratik yapan text editör vardı ama unuttum oldukça uzun zamandır kullanmıyorum.

Bütün bu yazdıklarımı yaptıktan sonra

open "c:\a1.dwg"
-insert antet=yeniAntet (command /e "resume")
qsave
close
open "c:\a2.dwg"
-insert antet=yeniAntet (command /e "resume")
qsave
close
open "c:\a3.dwg"
-insert antet=yeniAntet (command /e "resume")
qsave
close
open "c:\a4.dwg"
-insert antet=yeniAntet (command /e "resume")
qsave
close
open "c:\a5.dwg"
-insert antet=yeniAntet (command /e "resume")
qsave
close

Şeklinde bir script dosyanız oluşacak. Ve bu script dosyasını çalıştırdığımız zaman elimizde kahvemiz oturup tüm çizimlerin çabucak değişmesini seyredebileceğiz.

[orhunkeskinbicak]

öncelikle değişiklikleri yaptığımız bloğumuzu wblock yapıp AutoCAD.... klasörümüzün içine atıyoruz "önemli olan insert noktalarımız aynı olsun"

üstden alıntı yaptığım aşağıdaki kodu da herhangi bir text editörde uzantısı .scr olacak şekilde kaydediyoruz örneğin "block.scr" ve onuda AutoCAD.... klasörüne atıyoruz
"EskiBlokAdi" yazan yere dosyamızdaki blok adını
"YeniYaratipKaydettigimizBlokAdi" yerine de wblock yaptığımız blok adını yazıyoruz ( burada önemli olan iki bloğunda insert noktalarının aynı olması ve yeni bloğumuzun AutoCAD.... klasörü içine kaydedilmiş olması

-insert EskiBlokAdi=YeniYaratipKaydettigimizBlokAdi (command /e "resume")
_qsave
_quit

buraya kadar zaten Sword anlatılmışdı ben birtek close yerine quit yazdım karışmasın

AutoCAD.../Support/acad2006doc.lsp nin en alt satırınada şunları yazıyoruz

(command "script" "block.scr")

block.scr AutoCAD.... klasörüne kaydetrtiğimiz script adı


sonra block değiştirmek istediğimiz dosyaya çift tıklatıyoruz
sonra diyerlerine çift tıklatıyoruz

AutoCAD dosyayı açıyor Değiştiriyor kapatıyor.

Sword ün anlattığı yöntem daha basit elbette... ancak Scripti yazmak biraz uzun.

enson olarak

AutoCAD.../Support/acad2006doc.lsp *** dosyasında yaptığımız değişikliği geri almayı unutmuyoruz.

*** AutoCAD.../Support/acad2006doc.lsp dosyası AutoCAD in başlangıç .lsp dosyasıdır içine yazılanlar her defasında yüklenir lisp lerimizin otomatik yüklenmesinin sağlandığı dosyada budur.


kolay gelsin...

[Sword]

Script yazmanın en kolay yolu şudur arkadaşlar. En azından benim elimdeki olanaklarla bulduğum en kolay yol.

Daha önceki mesajda anlattığım şekilde dosyalarımızın yarattığımız listesini MS Word ile açıyorsunuz.Daha sonra Tools->Macro->Record New Macro bu şekilde ilk bir kaç satır için gerekli işlemi elle yapıyoruz. Sonra kaydı durdurup tekrar eden kısmı belirleyip for-next döngüsü içine koyuyoruz. Kaç çizimiz varsa döngünün o kadar çalışmasını sağlıyoruz.

Ben kaydettiğim makroyu aşağıda yazıyorum doğrudan kullana bilirsiniz. Bu makroda dikkat edilecek 2 nokta var. makroyu çalıştırmadan önce imlecin dosyanın en başında olmasına dikkat edin(Ctrl+home yapmak yeterli). Bir de aşağıda verdiğim diğer kodu kopyalamış olun. Çünkü her satırın sonuna onu yapıştırıyor.

Sub Macro2()
For i = 0 To 816
    Selection.TypeText Text:="open """
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:=""""
    Selection.TypeParagraph
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.HomeKey Unit:=wdLine
Next
End Sub

-insert EskiBlokAdi=YeniYaratipKaydettigimizBlokAdi (command /e "resume")
qsave
close

Bunların dışında MS Wordun koyduğu " işareti AutoCad de sorun çıkartıyordu diye aklımda kalmış. Dosyayı sonra wordpad ile açıp onların hepsini find and replace yapmak lazım.

Biraz zahmetli bir iş gibi gözükse de dosyaları tek tek tıklayıp açmaktan son derece kolay.
Ayrıca birşey daha söylemek istiyorum. highlevel cevap verirsek çok sevineceğini söylmeişsin. Bu kadar arkadaş seni mutlu etmişizdir umarım. Sende işine yarayıp yaramadığını söylersen bizde mutlu olabiliriz.

Herheze iyi çalışmalar...

[orhunkeskinbicak]

çok iyi yazmışsın konuyu açan ilgilenmesede

o dediğin dir *.dwg >liste.txt /b yaptım böyle birşey oluşturdu bunu temizlemek gerekecek

/b dışında bir yol ile sadece dosya adlarını listeletebiliyormuyuz

D s�r�c�s�ndeki birimin etiketi yok.
Birim Seri Numaras�: **********
D:\3bDWG\1agac dizini

10.11.2004 09:29 311.362 agac-1.dwg
20.06.2001 17:28 76.030 agac-2.dwg
20.06.2001 17:28 69.459 agac-3.dwg
20.06.2001 17:28 38.350 agac-4.dwg
20.06.2001 17:28 39.321 agac-5.dwg
20.06.2001 17:28 97.787 agac-6.dwg
20.06.2001 17:27 331.694 cicek-1.dwg
16.09.1998 04:54 40.933 Tree2.dwg
16.09.1998 04:54 30.790 Tree4.dwg
16.09.1998 04:55 42.531 Treee.dwg
16.09.1998 04:55 53.821 Treef.dwg
16.09.1998 04:55 70.528 Treeh.dwg
16.09.1998 04:55 34.038 Treek.dwg
16.09.1998 04:55 57.486 Treen.dwg
16.09.1998 04:55 45.502 Treeo.dwg
16.09.1998 04:56 60.418 Trees.dwg
16.09.1998 04:56 52.019 Treey.dwg
17 Dosya 1.452.069 bayt
0 Dizin 40.645.636.096 bayt boŸ


neyse buldum
dir *.dwg >liste.txt /b /-c yapmak gerekiyo

[orhunkeskinbicak]

+ bu makro durmuyor ctrl +alt + del yapmak zorunda kaldım

pardon pardon 816 yı görmemişim güzel bir espiri olmuş

[highlevel]

Öncelikle herkese teşekkür ederim. Yazdıklarınızı yapmayı denedim. ama bir türlü beceremedim. Yani olmadı. Bloğum AntetA0 şeklinde ve içinde atributelar var. Tıkladığınızda tarih, rev no, pafta adı vslere üzerine 2 kere tıkladığınızda değişebiliyor. "Shopdrawing"yazan yere "As-built" yazmam
ve tarih bölümünü vs. değiştirmem gerekiyor. Yazılanları uyguladığımda sadece değişiklik yapılabilen bölümler (atributelar) kalıyor, diğer çizimler (çerçevesi, logolar vs) yok oluyor.