05.11.2019 07:31

87729    

ahmet82

---

---

Bak bakalım ?

22.11.2019 11:28

87766    

Slm,
Bir fonksiyon kullanarak aşağıdaki listeyi elde ediyorum.

((("S" . "1")("A" . "5.0")("H" . "100.0")("W" . "100.0")("F" . "H"))
(("S" . "2")("A" . "4.0")("H" . "50.0")("W" . "80.0") ("F" . "H"))
(("S" . "3")("A" . "2.0")("H" . "75.0")("W" . "60.0")("F" . "H"))
(("S" . "4")("A" . "6.0")("H" . "20.0")("W" . "100.0")("F" . "E"))
(("S" . "5")("A" . "8.0")("H" . "50.0")("W" . "120.0")("F" . "H"))
)
Bu listeyi test.dat olarak kaydetmek ve daha sonra ihtiyacım olduğunda bu dosyadan bilgileri okuyarak aynı listeyi oluşturmak istiyorum.
Nasıl bir yol izlemeliyim.Ne yapmalıyım.

Yardımcı olursanız sevinirim.

03.12.2019 17:05

87796    

Forumda yeniyim. Autolisp öğrenebilmek için çabalıyorum. Çalıştığım kurumda önceden bir bölüm lispler yazılmış fakat hepsi .vlx olarak kaydedilmiş. Lisp dosyalarını bulamıyorum ve .vlx olan dosyaların içeriğini göremiyorum.

Bir kaç soru sormak isterim yardımcı olursanız çok sevinirim.
1) belirli bir rectangle üzerinde bilgisayarın c'sinde kayıtlı olan blokları (dwg dosyalarını ) otomatik olarak nasıl yerleştirebilirim. Örnek ; 2500mm ye 2500mm olan rectangle içerisine 900mm parçalar halinde bloklar yerleştireceğim geriye kalan kısma 200mmlik blok yerleşecek.
2) saydığımız bu blokları exele aktarmam gerekecek.
Not: daha önce şirkette yazılmış bir lispte blok say komutu kullanılarak bloklar sayılıyor ve daha önce hazırlanılmış olan exel listesine exel listesi açıldıktan sonra sağ klik yapılarak yenile diye bir seçenek seçilip blok adetleri belli değerlerle çarpılıp adet çıkarılması sağlanıyor. Yenile dediğinde direkt autocadde saydığı ( blok say komutu ile ) değerleri nasıl exele aktarıyor?
Bayağı meşakkatli bir iş gibi geldi yıllardır yaklaşmaya çekindim ama artık bu lisp olayına biryerden girmek lazım. Yardım ederseniz sevinirim. Herkesin emeğine sağlık çok güzel işler başarmışsınız çoğu yorumunuzu okumaya çalıştım. Teşekkürler

04.12.2019 03:49

87798    

Alıntı

---

Travaci :
1) Bloğu çağırdıktan sonra array komutunu kullanabilirsin.
2) Sitemizde bununla ilgili bir lisp daha önce paylaşılmış olsa gerek.

---

YANIT İÇİN TEŞEKKÜR EDERİM. FAKAT SANIRIM YANLIŞ ANLATTIM KONUYU. BELİRLİ BİR BÖLGEYE KAYITLI DWGLERDEN BİR KAÇINI YERLEŞTİRMEK İSTİYORUM . BİR RESİM EKLEDİM UMARIM BECEREBİLMİŞİMDİR. RESİMDEKİ PARÇALARIN HER BİRİ AYRI BİR DWGDİR. LISP YARDIMIYLA SEÇECEĞİM RECTANGL A YERLEŞSİN İSTİTORUM.
2)DAHA ÖNCE PAYLASILAN LISPI YONLENDİREBİLİR MİSİSNİZ?

12.12.2019 03:17

87819    

agaa

---

Autocad ortamında iken VLIDE komutunu çalıştırıp Lisp Editorünü açın.
File sekmesinden DCL dosyasını açın.
Tools --> Interface Tools --> Preview DCL in Editor çalıştırın.

25.12.2019 05:57

87859    

Selamlar Herkese,
Dcl Konusunda yardımlarınıza ihtiyacım var,

Dcl Kodu:

test : dialog {
label = "Deneme" ;
: column {
: row {
: column {
height = 26;
width = 8;

: text { value = "Etiket1"; alignment = left;}
: text { value = "Etiket2"; alignment = left;}
: text { value = "Etiket3"; alignment = left;}
: text { value = "Etiket4"; alignment = left;}
: text { value = "Etiket5"; alignment = left;}
: text { value = "Etiket6"; alignment = left;}
: text { value = "Etiket7"; alignment = left;}
: text { value = "Etiket8"; alignment = left;}
: text { value = "Etiket9"; alignment = left;}
: text { value = "Etiket10"; alignment = left;}
: text { value = "Etiket11"; alignment = left;}
: text { value = "Etiket12"; alignment = left;}
: text { value = "Etiket13"; alignment = left;}
: text { value = "Etiket14"; alignment = left;}
: text { value = "Etiket15"; alignment = left;}
: text { value = "Etiket16"; alignment = left;}
: text { value = "Etiket17"; alignment = left;}
: text { value = "Etiket18"; alignment = left;}
: text { value = "Etiket19"; alignment = left;}
}
: column {
: list_box { key = "mylist1";
height = 26;
width = 6;
multiple_select = false;
fixed_width_font = true;
horizontal_margin = none;
}
}
: column {
: list_box { key = "mylist2";
height = 26;
width = 6;
multiple_select = false;
fixed_width_font = true;
horizontal_margin = none;
}
}
}
ok_only ;
}
}
Lisp kodu:

(defun c:test (/)
(setq L '(("A1" "A2" "A3" "A4" "A5" "A6" "A7" "A8" "A9" "A10" "A11" "A12" "A13" "A14" "A15" "A16" "A17" "A18" "A19")
("B1" "B2" "B3" "B4" "B5" "B6" "B7" "B8" "B9" "B10" "B11" "B12" "B13" "B14" "B15" "B16" "B17" "B18" "B19")
))
(if(not(setq dcl_idt (load_dialog "test.DCL")))(exit)
(progn
(if (not(new_dialog "test" dcl_idt))(exit)
(progn
(setq indx 0
List1 (nth indx L)
List2 (nth (1+ indx) L)
)
(start_list "mylist1" 3)(mapcar '(lambda (x) (add_list x)) List1)(end_list)
(start_list "mylist2" 3)(mapcar '(lambda (x) (add_list x)) List2)(end_list)

(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")

(setq ddiag (start_dialog))
(unload_dialog dcl_idt)

(if (= ddiag 1)
(princ "\n OK!")
)
(if (= ddiag 1)
(princ "\n Cancel!")
)
)
)
)
)
(princ)
)

olan bir fonksiyonum var.

listedeki elemanların değerini gösteren etiketler Dcl de sol sütunda,orta ve sağ sütunda da iki liste kutusu var.
Etiket1 , A1 , B1
Etiket2 , A2 , B2
Etiket3 , A3 , B3
.
.
Şeklinde.
Sorunum da şu:
Dcl görünümünde Etiket ve liste elemanlarını hizalamayı başaramadım.
Liste görünümünde elemalar arasındaki açıklığı (A1 A2 A3 arasında) arttırmanın bir yolu yok sanırım.
Etiketler arasında ki açıklığı ayarlamanın yolu nedir?Nasıl ayarlayabilirim?
Spacer0 , Spacer1, Spacer_width hepsini denedim.


Yardımcı olursanız sevinirim.Saygılar.