06.09.2016 08:13    

yilmazakifemre
merhaba arkadaşlar,
çalıştığım yerde çok fazla işimi kolaylaştıracak bir lispe ihtiyacım var.

1-içeriğini değiştirmek istediğim texti bulup benim istediğim yazı ile değiştirme (bu değiştireceğim yazı hep sabit aynı olacak)
2-herhangi bir yere kaydettiğim blok objeyi resimde belirlenecek koordinattaki yere çağırma
3-zoom extent
4-save and close

bunların hepsini bir seferde yapabilecek bir lisp için yardımcı olurmusunuz.

saygılar, sevgiler.

09.09.2016 12:44    

yazgunesi
Birden fazla program çalıştırma örneği :

Kod:

(defun c:coklukomut ()
(c:komut1)
(c:komut2)
)


Yukarıdaki örnekte birden fazla autolisp programını aynı anda çalıştırıyoruz, daha doğrusu ard arda sırasıyla..
Buradaki bizimö program ismimizi coklukomut olarak tanımladık.
Komut1, komut2 ise çalıştırılacak program isimleridir.
Örnek birkaç basit program da yapalım test etmek için.

Kod:

(defun c:komut1 ()
(princ " Birinci komut programı çalıştırıldı ! ")
)


Kod:

(defun c:komut2 ()
(alert “İkinci komut programı çalıştırıldı !”)
)


Zoom extens, otomatik save ve Autocad'ten çıkış yapma lispi :

Kod:

(defun c:zz ()
(COMMAND "CMDECHO" 0)
(command "zoom" "e")
(command "qsave")
(COMMAND "CMDECHO" 1)
(command "close")
)

01.11.2016 06:57    

yilmazakifemre
bide resim üzerindeki antette olan isim kısmında bu lisp komutu girdiğimde ismi bulup benim ismimle değiştirip sonra kayıt yapıp kapamasını sağlayamazmıyız.

01.11.2016 06:58    

yilmazakifemre
yardımlarınız için çok teşekkür ederim.
lütfen son yazdığıma da yardım ediniz.
saygılar

01.11.2016 11:50    

yazgunesi
Merhaba, yakin zamanda örnek bir autolisp programı paylaşırım bu sayfada..

Örnek açısından söyle bahsedeyim, attribute özellikli anted hazirlamak mümkündür. Bu konuda da bir örnek paylaşırım.

01.11.2016 12:11    

yilmazakifemre
anladım. ancak elimdeki çizimlerimde hazı antedler var. sadece hepsinde aynı olan bir yazı var. bir isim diyelim. ben dosyaları açtığımda. ki bunlar çok fazla olabiliyor.
her birinde bir komutla benim lispin içine ekleyeceğim yazıyı mevcut olanla değiştirmesi,
sonrada yukardaki komutları yapıp kapanması.

04.11.2016 22:11    

yilmazakifemre
Alıntı
yazgunesi :
Merhaba, yakin zamanda örnek bir autolisp programı paylaşırım bu sayfada..

Örnek açısından söyle bahsedeyim, attribute özellikli anted hazirlamak mümkündür. Bu konuda da bir örnek paylaşırım.



merhaba üstadım.
bir şeyler yapabildiniz mi?

14.11.2016 12:04    

yilmazakifemre
arkadalar konuya yardımcı olabilecek yok mu. ben kendi imkanımla bir şeyler yapmaya çalışıyorum ancak yazdığım komutların biri ikisi çalışıyo gerisi hata veriyor bir türlü beceremedim.

(defun c:sx ()
(COMMAND "CMDECHO" 0)

(setq m2_yer (getpoint "Yer Gösterin:"))
(setq dde_tek (ssname dde_sec c))
(command "ddedit" dde_tek)
(command "pasteclip" m2_yer "0")
(command "zoom" "e")
(setq dde_sec (ssget (list (cons 0 "TEXT"))))
(command "qsave")
(COMMAND "CMDECHO" 1)
(command "close")
(princ "\n (prin1))

14.11.2016 12:23    

ehya
yilmazakifemre





yazdığın kodun analizini yapmak gerekirse, hatalarla dolu ve haliyle çalışmaz..
ne yapmak istediğini söylersen daha net yardımcı oluruz..

15.11.2016 06:51    

yilmazakifemre
hazır kullandığım bir anted var ve yüzlerce dwg yi tek tek açıp değişikliklerimi yapıp tekrar kaydediyorum. bunların hepsi dxf olarak üretiyorum sonra açıp işim bittiğince dwg olarak kaydediyorum.

sırayla yaptığım işlem ki ben bunları bir lisp yardımıyla daha hızlı yapmak istiyorum

1- dxf doylararını açıyorum
2- her zaman aynı yerde olan bir yazıyı doğrusuyla değiştiriyorum.
3- resme farklı bir klasörümde kayıtlı bir blok detayı alıp yapıştırıyorum
4- zoom extend
5- save as --> dwg
ve son.

bunların hepsini ben tek bir komuta sığdırmak istiyorum. komutu girdikten sonra bu maddeleri ben başka bir komut girmeden yapmasını istiyorum.

ilginiz için teşekkür ederim.

saygılarımla
Akif Emre YILMAZ

15.11.2016 07:46    

alumina
Alıntı
yilmazakifemre :



klasorde bulunan yuzlerce dosyayi tek tek actiktan sonra bu islemleri lisple yapsaniz ne olur, yapmasaniz ne olur.
Soyle olsa daha guzel olur sanki. Icınde yuzlerce dxf dosyasi olan klasordeki butun dxf dosyalarini lispin kendisi tek tek acip bu islemleri yapip dwg olarak kaydedip kapatsa, hatta daha sonra klasordeki dxf leri silse, sizde bu esnada cayinizi icip seyretseniz. Dimi yani.

15.11.2016 13:15    

yilmazakifemre
Haklısınız ben bunu hiç düşünememiştim.
böle bir çalışma yapmak lazım. o kadar yoğun ve çok olan işlerin arasında böle zor bir iş için lisp olsa hiç çalışmadan kahvemi içip bilgisayarın işi yapmasını izleyebilirim. Çok zekice gerçekten.
diğer işleride yapacak birini bulurum elbet.

yardımlarınız ve zeki fikirleriniz için çok teşekkür ederim. bundan sonra daha iyi düşünüp öyle konu açacağım.

15.11.2016 13:24    

alumina
Alıntı
yilmazakifemre :


Boyle bir lispin biraz tuzlu olacagini da dusunmelisin.

16.11.2016 07:01    

yilmazakifemre
Ben lispi yazdım dünden bugüne sabahladım hallettim. sorunsuz çalışıyor.
teşekkürler.

18.11.2016 17:54    

boldpilot70
Alıntı
yilmazakifemre :
Ben lispi yazdım dünden bugüne sabahladım hallettim. sorunsuz çalışıyor.
teşekkürler.



Lispi burada paylaşırsan diğer arkadaşlarda faydalanabilir

18.11.2016 19:28    

alumina
Alıntı
boldpilot70 :


Raskoln,
Gecmiste de buna benzer isteklerin olmustu, dosyalari acsin bir takim islemler yapsin (hatta bunlardan bir taneside layerleri 0 yapsindi) sonra kapatsin vs. Arkadas su an icin bunu yazamaz, bosuna heveslenme :)

19.11.2016 09:10    

boldpilot70
Bu benim isteğim değil ki kendisi istemiş zaten kendisi yazmış öyle yazmış

> 1 <
Copyright © 2004-2022 SQL: 3.695 saniye - Sorgu: 92 - Ortalama: 0.04016 saniye