28.03.2015 09:53
alpayelmas
|
Merhaba;
Arkadaşlar biraz değişik bir soru olduğunu biliyorum ama bilgi olanlar yardımcı olabilirmi?.
boş bir autocad sayfası Drawing1.dwg açtığımda bir lisp kodu ile seçtiğim bir klasör içerisindeki dwg dosyalarının tamamına lisp işlemini otomatik yaptıracak bir kod varmıdır? diyelim ki 50 adet dwg var nokta klasöründe bu dwg ler de her katın aplikasyon pointlerini içeriyor. ben lisp ile yazılmış komutu verdiğimde bu klasördeki tüm dosyalardan sıra sıra nokta koordinarlarını ayrı ayrı textlere kaydettirmek istiyorum. koordinatları yazdırdığımız lispler bol mıktarda var . dwg sayısı arttıgında tek tek autocadden acıp çalıştırmak yerıne nasılsa rutın bır ıslemı yapıyor dırek lisp koduyla point koordinatlarını textlere kaydedıyor. sadece klasorden tum dwg lerı belırleyıp bır degıskene atsa gerısını halledebılırım.
Teşekkürler...
|
28.03.2015 13:30
k005
|
alpayelmas
Bu anlattığınız şekilde zor görünüyor.. Ama şöyle olabilir ; Bahsettiğiniz Bu 50 dwg Dosyasını 1 dwg dosyasında Toplayıp işleme tabi tutabilirsiniz.
|
28.03.2015 15:10
alumina
|
Alıntı k005 :
alpayelmas
Bu anlattığınız şekilde zor görünüyor.. Ama şöyle olabilir ; Bahsettiğiniz Bu 50 dwg Dosyasını 1 dwg dosyasında Toplayıp işleme tabi tutabilirsiniz.
Pardon nasil zor gorunuyor? Imkansiz mi? Denediniz de olmadi mi?
|
28.03.2015 15:21
k005
|
alumina
Tek dosya üzerinden gidilirse olabilir.. Denemedim. 50 dosya üzerinden zor görünüyor.
|
28.03.2015 15:41
alumina
|
Alıntı k005 :
alumina
Tek dosya üzerinden gidilirse olabilir.. Denemedim. 50 dosya üzerinden zor görünüyor.
Ertan;
Insanlari yanlis yönlendirme !!!
|
28.03.2015 15:45
k005
|
alumina
Sizin öneriniz nedir ?
|
28.03.2015 15:51
alumina
|
Alpay, acik olan tek bir dosyadan (default dosya) belirlenmis bir klasordeki butun dwg leri sirasiyla acip pointleri txt dosyasına yazdırmak istedigini soyledi. Active-x destegiyle hemen yazar bunu. Sen ona yardımcı ol klasordeki dosya isimlerini degiskene atsin.
|
28.03.2015 15:58
k005
|
VBA olarak Klasördeki dwg dosyalarının listesini bir değişkende verebilirim. AutoLisp e nasıl uyarlanır bilemiyorum.
|
28.03.2015 16:12
alumina
|
Ugrasin biraz. Arastirin. Yapmaya calisin. Yapamadiginizda o yazmaya calistiginiz lsp dosyasini buraya atin bir görelim. Gerisi kolay. Ama once ugrastiginiz bir gorunsun.
|
28.03.2015 16:34
k005
|
Yapamadığımızda değil,, Şimdiki aşamadan itibaren yardım gerekiyor. Soruyu ben sormadım. Yardımcı olmak açısından Fikrimi söyledim.. Başlangıçtaki Algoritmanın İyi kurulması gerekiyor. Bu da sonucu getirir.. zaten.. Saygılarımla.
|
28.03.2015 17:22
alumina
|
tamam algoritmayi iyi kurun o zaman.
|
28.03.2015 21:01
alpayelmas
|
Arkadaşlar buldum buldum. kod assagıda dediğiniz gibi bir klasor ıcınden yalnızca dwg lerden bırını secınce o klasordekı tum dwg dosyaları acıp lısp ı uygulayan bir scr uzantılı dosya olusturuyor. sonra bu scr yi autocad e surukledıkmı herbır dwg yı acıyor ve lısp ı calıstırıyor. tabı ben burda uygulamak ıstedıgım lısp ın en sonuna lısp ın komutunuda ekleyerek load edılen lsp dosyasını otomatık calıstırttım. kod assagıda.
Kod:
(defun c:make_script ( / prefix file_scr)
(setq
prefix (strcat (vl-filename-directory (getfiled "Select a file drawing for batch your directory" "" "dwg" 16)) "\")
file_scr (open (strcat prefix "batch_dir.scr") "w")
)
(foreach dwg (vl-directory-files prefix "*.dwg" 1)
(write-line "_.open" file_scr)
(write-line (strcat """ prefix dwg """) file_scr)
;;Begin of your commands
(write-line "(load "C:\\Users\\Daniel\\Documents\\AutoCAD programs\\ReTagDup.lsp")" file_scr)
(write-line "retagdup" file_scr)
;;End of your commands
(write-line "_.qsave" file_scr)
(write-line "_.close" file_scr)
)
(close file_scr)
(princ (strcat "\nYou can use the SCRIPT :" prefix "batch_dir.scr"))
(prin1)
)
|
30.03.2015 09:10
özkan-wien
|
Lisp hata veriyor
|
30.03.2015 10:12
alpayelmas
|
(load c: ... devam eden satırı duzenlemelisin..
|
30.03.2015 10:22
alumina
|
Alıntı alpayelmas :
(load c: ... devam eden satırı duzenlemelisin..
Sunu dogru duzgun script kullanmadan yazıp paylassan ya.
|
30.03.2015 11:10
özkan-wien
|
orasi degil
; error: malformed string on input
|
30.03.2015 11:12
özkan-wien
|
biz bu lispi zamaninda yazmadik mi alumina ?
|
30.03.2015 11:29
alumina
|
Dwg to dxf to dwg icin deneme yapmistik. O zaman olmamisti. 2 gun once yazdim.
|
30.03.2015 11:41
özkan-wien
|
olmustu diye hatirliyorum ben.
dwg lerin icinde calistirmak istediginiz lispi paylasirmisiniz.
|
özkan-wien
|
hayir alpayelmasin calistirmak istedigi lisp ne?
|