10.12.2013 18:23

75345    

Harbi65 hocam ve konuya katkıda bulunan arkadaşlarımıza böyle incelikli kavramları paylaştıkları için teşekkür etmek isterim. Aynı soruların tekrar tekrar sorulması genelde paylaşımcılar açısından heves kırıcı olabiliyor. Böyle bir konuyu görmekten kendi adıma çok keyif aldım ve bir şeyler yazmadan geçemedim. :)

Genel olarak AutoCAD Nesnesi (object) olarak adlandırılan kavramlar farklı guruplar altında yer alırlar.

Drawing Objects (Çizim Nesneleri): Line, Polyline, Spline, Text, Block (insert edilmiş Blocklar ki bunlara gerçekte Insert varlıkları diyoruz) ve bunun gibi çizimi oluşturan varlıklardır (entities). Çizim nesnelerinin verilerine entget veya vlax-get-property işlevleriyle ulaşıyoruz.

Table Objects (Tablo Nesneleri): Layer, Linetype, View, Style, Block tanımları, UCS, DimStyle ve Vport gibi nesnelerin tanımlarının yer aldığı, genelde ekranda görünmeyen ama ekranda görünen nesnelerin nasıl ve ne şartlarda oluşturulup görüntüleneceğini belirleyen kavramlardır. Tablo nesnelerinin bilgilerine tblobjname, tblnnext ve entget gibi işlevlerle ulaşıyoruz.

Dictionary Object (Sözlük nesneleri): Bu bölümdeki nesnelerin detaylarına girmeden, yukarıda ele alınan örnekte söz konusu edilen Multi Line Style (Mlinestyle) tanımları bu bu bölümde, Named Object Dictionary altında yer aldığını belirtmekle yetinelim.

Daha önce de burada sorulan Çizim veritabanına kendi bilgilerini eklemek isteyen arkadaşlarımızın sorularının cevapları da Dictionaries kavramında karşılığını buluyor. Forum ortamında fazla derin dalıp karmaşa yaratmamak adına burada yamak uygun gelmedi. Bu konunun detayları yazıldı, ilgilenen arkadaşlar yakın bir zamanda ulaşabilecekler.

Dictionary nesnelerinin bilgilerine, dictsearch gibi işlevlerle erişiyoruz. dictadd ile yeni tanımlar ve eklemeler, dictremove işlevi ile de çıkarmalar yapabiliyoruz.

Ele alınan konuya gelince, DUVAR isimli Mlinestyle tanımının varlığını araştırırken, iki ayrı şartı denetlemeye gerek yok. Altında herhangi bir Multi Line Style tanımı olmasa (içi boş olsa) bile çizim veritabanında Acad_MLineStyle tanımı her durumda bulunacaktır. Bu bir başlıktır, altı boş bile olsa başlık her durumda vardır. Bu açıklamalar ışığında ele alınan kontrol işlemini doğrudan yapmak mümkündür.
şeklinde yazmak mümkün.
Çizim veritabanında DUVAR isimli MLinestyle var ise;
ifadesiyle de bu tanımı çizimden kaldırabiliriz.
Bulunmayan bir MLineStyle tanımının AutoLISP kullanılarak eklenmesi biraz daha uzun bir işlem. :)

Herkese kolay gelsin.

Beğenmek için anlamak lazım...

11.12.2013 10:41

75350    

Prohibit Hocam cok tesekkürler, su yazdiginiz bilgiler keske digital bi ortamda kitap olsa da aradigimizi kolayca bulsak. her kösede bi Bilgi var sayenizde ama maalesef toplu halde degiller.

Lisp ile mlstyle olusturmak isteyen arkadaslar icin kodu da ben ekleyim. (ben yazmadim ama )

ProhibiT (11.12.2013 12:13 GMT)

11.12.2013 15:11

75352    

Eline saglik hocam hemen kopyaladim. Prohibit hocam ikiden fazla sayida cizgiden olusan mlstyle a disardan nasil müdahale ederiz.
birinci duvar 20 cm ikinci duvar 12 olacak mesela. hangi dxf codlarini editlemem gerekiyor?
asagidaki rengi denedim ama olmadi, cizgilerin kodunu da tam cözemedim.
Daha dogrusu 3 tane 49 var.


(defun c:mle (/ )
(setq mlineDict (dictsearch (namedobjdict) "ACAD_MLINESTYLE"))
(setq mlineStd (dictsearch (cdr (assoc -1 mlineDict)) "duvar2"))

(entmod (subst (cons 62 2)(assoc 70 mlineStd) mlineStd))

)

12.12.2013 08:03

75356    

Doğrudur. Aslında MLineStyle tanımlarını AutoCAD'in Purge işlemi ile aynı mantıkta düşünmek gerekir. Örneğin, DUVAR isimli MLSTYLE çizim içinde kullanılmış ise, Ne AutoCAD komutlarıyla ne de yukarıda verdiğimiz dictremove işleviyle kaldırılamaz. AddMLs işlevinde de DUVAR isimli MLStyLe'ın mevcut olup olmadığını kontrol ettikten sonra, mevcut değilse, tanım oluşturuyoruz. Böyle bir kontrol yapılmadan, mevcut bir MLStyLe yeniden tanımlanmaya çalışıldığında, işlem hata ile sonuçlanacaktır. Yani tanımlı bir MLStyLe'ı da değiştiremiyoruz. Evet, farklı Duvar kalınlığı ve farklı yalıtım kalınlıkları için ayrı ayrı MLSTYLE tanımlanması gerekiyor.

Beğenmek için anlamak lazım...

12.12.2013 14:26

75366    

Alıntı

---

ProhibiT :
Değişkenleri fonskiyondan alt fonksiyona koşturup yormaya gerek yok. :)
Bir de daha önceki mesajımda yazdığım gibi, iki tane ayrı şartı denetlemeye de gerek yok.

Kod:

(defun c:AddMLS (/ dic)
  (if (not (dictsearch (setq dic (cdr
        (assoc -1 (dictsearch (namedobjdict) "ACAD_MLINESTYLE")))) "DUVAR"))
    (dictadd dic "DUVAR"
      (entmakex (list (cons 0 "MLINESTYLE") (cons 100 "AcDbMlineStyle")
                  (cons 2 "DUVAR") (cons 70 272) (cons 3 "") (cons 51 1.5708)
                    (cons 52 1.5708) (cons 71 2) (cons 49 -0.5) (cons 62 1)
                      (cons 6 "BYLAYER") (cons 49 0.5) (cons 62 1)
                        (cons 6 "BYLAYER"))))) (princ))

---

Sayin Prohibit hocam,
dün lispi bu sekilde degistirdim ama inanilmasi güc bi hata veriyor. En azindan ben anlayamadim :-).
lispi yükleyip calistirin ve lütfen (2 -3 kez pickleyin) herhangi bir sekilde duvar cizin. islem bitince
cizdiginiz duvar polyline olacak. Justification "t" ve "b" de. duvar kalinligi "0.2"
simdi komut satirindan "justification" ayarini ortaya "z" ye getirin.
ve lispi tekrar calistirin.
justification ayari ortada iken cizilen duvarin sol kapanma noktasi hep ayri kaliyor. yani polyline yapilamiyor.
lispsiz ml komutuyla bi duvar daha cizin ve "x" enter "l" ve "join" "p" dediginizde sol parcanin birlesmedigini göreceksiniz.

hatayi düzeltmek daha da ilginc.
komut satirina mlst yazip (daha önce wand stylindeki tüm objeler silinecek) acilan pencereden "modify" ye ve sonra "ok" "ok" e tiklayip cikin.

lispi Justification "z" de tekrar calistirin ve düzeldigini göreceksiniz. Ben de aynen bu sekilde. 2014 versiyon.

ProhibiT (12.12.2013 14:58 GMT)

16.12.2013 09:37

75392    

hocam vaktin oldugunda incelersen sevinirim. Justificazion "Z" ayarinda hata veriyor kisacasi

16.12.2013 10:00

75398    

Alıntı

---

özkan-wien

---

Lisp ini başlatırken ve bitirirken çağırcaksın
Ör;


Eğer bunlar bir kısa yola tanımlı olsaydı mesela



Aşağıdaki gibi olucaktı



Bu şekilde herhangi bir dosyada yazılan kodları (yüklü olduğu taktirde) başka lisplere çağırarak kullanıyoruz, her lisp dosyasında yazılı olmasına gerek kalmıyor.

18.12.2013 09:17

75412    

arkadaslar merhaba ,
secim setinden aldigim bir elemanin layerini "command" kullanmadan nasil degistiririm.
eleman1 le eleman_layername cepte.


(command "_.change" eleman1"" "_P" "_LA" eleman_layername "")

tesekkürler.

18.12.2013 09:21

75414    

özkan-wien

---

---

18.12.2013 10:16

75416    

özkan-wien

---

---