Textlerin Justification Modunu Değiştiren Lisp

Forumdan

99 kategoride 17 binden fazla konu başlatıldı bu konulara yaklaşık 90 bin cevap verildi tüm bunlar yaklaşık 109 milyon kez görüntülendi

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Özel Yazılımlar

Program Ekle

Ziyaretçi: 624, Üye: 3
ali3235, E2619, ustatek

Detaylar »

Forumlar > AutoLISP > Textlerin Justification Modunu Değiştiren Lisp

İnceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
19.12.2009 16:02 54148	Harbi65 Üstad 428 ileti İnş.Tekn. Teknik Ressam KASTAMONU
Kod: (DEFUN C:TJF (/ Yaz:Sec Jf:Undo Yaz:Dt Yaz#10 Yaz#11) (setvar "CMDECHO" 0) (command "UNDO" "GROUP") (princ "\n< Kaptan Design by © 2009 / Kastamonu / harbi65@gmail.com > \n") (setq Jf:Undo 0) (if (or (= Txt#71 nil)(= Txt#72 nil)(= Txt#73 nil)) (setq Txt#71 0 Txt#72 0 Txt#73 0 Konum "Left") ) (initget "L C R TL TC TR ML MC MR BL BC BR") (while (setq Yaz:Sec (nentsel (strcat "\r Justification Modu değişecek yazıyı seçin... [Lef/Cen/Rig / TLef/TCen/TRig / MLef/MCen/MRig / BLef/BCen/BRig] <" Konum "> :"))) (cond ((member Yaz:Sec (list "L" "C" "R" "TL" "TC" "TR" "ML" "MC" "MR" "BL" "BC" "BR")) (Txt:Pozisyon Yaz:Sec) ) (T (if (= "TEXT" (cdr (assoc 0 (setq Yaz:Dt (entget (car Yaz:Sec)))))) (progn (setq Yaz:71 (cdr (assoc 71 Yaz:Dt)) Yaz:72 (cdr (assoc 72 Yaz:Dt)) Yaz:73 (cdr (assoc 73 Yaz:Dt)) Yaz#10 (cdr (assoc 10 Yaz:Dt)) Yaz#11 (cdr (assoc 11 Yaz:Dt)) ) (if (and (eq Konum "Left") (not (equal (list 0.0 0.0 0.0) Yaz#11))) (setq Yaz:Dt (subst (cons 10 Yaz#11) (cons 10 Yaz#10) Yaz:Dt) Yaz:Dt (subst (cons 11 (list 0 0 0)) (cons 11 Yaz#10) Yaz:Dt)) ) (if (and (/= Konum "Left") (equal (list 0.0 0.0 0.0) Yaz#11)) (setq Yaz:Dt (subst (cons 11 Yaz#10) (cons 11 Yaz#11) Yaz:Dt)) ) (setq Yaz:Dt (subst (cons 71 Txt#71)(cons 71 Yaz:71) Yaz:Dt) Yaz:Dt (subst (cons 72 Txt#72)(cons 72 Yaz:72) Yaz:Dt) Yaz:Dt (subst (cons 73 Txt#73)(cons 73 Yaz:73) Yaz:Dt) ) (entmod Yaz:Dt) ) (progn (alert "* Seçilen Nesne TEXT değil...! *") ) ) ) ) (initget "L C R TL TC TR ML MC MR BL BC BR") ) (command "UNDO" "END") (setvar "CMDECHO" 1) (princ) ) (print " Seçilen Textlerin Justification Modunu değiştirir.... Komut: [ TJF ] ") ;;; (defun Txt:Pozisyon (Yaz:Sec /) (cond ((= Yaz:Sec "L") (setq Txt#71 0 Txt#72 0 Txt#73 0 Konum "Left") ) ((= Yaz:Sec "C") (setq Txt#71 0 Txt#72 1 Txt#73 0 Konum "Center") ) ((= Yaz:Sec "R") (setq Txt#71 0 Txt#72 2 Txt#73 0 Konum "Right") ) ((= Yaz:Sec "TL") (setq Txt#71 0 Txt#72 0 Txt#73 3 Konum "Top Left") ) ((= Yaz:Sec "TC") (setq Txt#71 0 Txt#72 1 Txt#73 3 Konum "Top Center") ) ((= Yaz:Sec "TR") (setq Txt#71 0 Txt#72 2 Txt#73 3 Konum "Top Right") ) ((= Yaz:Sec "BL") (setq Txt#71 0 Txt#72 0 Txt#73 1 Konum "Bottom Left") ) ((= Yaz:Sec "BC") (setq Txt#71 0 Txt#72 1 Txt#73 1 Konum "Bottom Center") ) ((= Yaz:Sec "BR") (setq Txt#71 0 Txt#72 2 Txt#73 1 Konum "Bottom Right") ) ((= Yaz:Sec "ML") (setq Txt#71 0 Txt#72 0 Txt#73 2 Konum "Middle Left") ) ((= Yaz:Sec "MC") (setq Txt#71 0 Txt#72 1 Txt#73 2 Konum "Middle Center") ) ((= Yaz:Sec "MR") (setq Txt#71 0 Txt#72 2 Txt#73 2 Konum "Middle Right") ) ) )

19.12.2009 16:07 54149	ehya Yönetici 3590 ileti Teknik Ressam Ankara
harbi65 iyi uğraşmışsın ama, yerleşim yerini değiştirdiğinde yazıların yeri de değişiyor. Yazının yerini değiştirmeden yerleşim yerini değiştiren lisp EXPRESS menü içerisinde TJUST komutu ile yapılabiliyor.

19.12.2009 16:34 54151	Harbi65 Üstad 428 ileti İnş.Tekn. Teknik Ressam KASTAMONU
Expres menüdeki TJUST komutuna hiç dikkat etmemişim... Mantık olarak yazının yeri değişmeyince yerleşim modunu değiştirmenin ne anlamı var... Yeri değişmedikten sonra aynı şekilde kalabilir... :S

19.12.2009 19:53 54156	ProhibiT Yetkili 1616 ileti İnşaat Mühendisi Ankara
Merhaba arkadaşlar, Text objelerinde Alignment ve Justification denen 2 özellikle karşılaşıyoruz. Left, Right ve Aligned Text'lerde Alignment, diğerlerinde justification olayından bahsediyoruz. Left ve Right aligned Textlerde Tek nokta var, assoc 10 ile tanımlanan "Text Insertion Point". Aligned ve Justification özelliğine sahip Text'lerde ise, biri assoc 10 ile tanımlanan "Text Insertion Point" diğeri assoc 11 ile tanımlanan "Text Justification/Alignment Point". Text Justification "Left" veya "Right" olduğunda, assoc 11 0 0 0 oluyor. Yani özetlediğimizde; Bazı justification seçenekleri tek noktaya ihtiyaç duyuyor, bu da "Insertion Point" oluyor. Bazı justification seçenekelri iki noktaya ihtiyaç duyuyor, bunlar "Insertion Point" ve "Justification Point" oluyor. Text objesinin Quick Properties'ten text justification'ı değiştirdiğimizde; - Tek noktalıdan tek noktalıya veya çift noktalıdan çift noktalıya geçişlerde problem yok. - Tek noktalı hizalamadan çift noktalı hizalamaya geçilince assoc 11, assoc 10'un değerini alıyor, assoc 10 yeniden hesaplanıyor. - Çift noktalıdan tek noktalıya geçilince, assoc 10 olarak assoc 11 alınıyor, assoc 11 sıfırlanıyor. Burada bence önemli olan; bir text objesini alıp, justification'unu tek noktalıdan çift noktalıya değiştirip, aynı programla geri tek noktalıya döndürdüğümüzde, Yazının ilk konumu koruması... Text objeleriyle uğraşırken, TextBox AutoLisp komutuna dikkatinizi çekmek isterim... Bu komut, Alignmnet ve Justification özelliği ne olursa olsun, Text objesini içine alan kutunun, sağ alt köşe noktasını ve sol üst köşe noktasını tanımlayan iki nokta üretiyor. Kolay gelsin... Beğenmek için anlamak lazım...

19.12.2009 20:08 54158	Harbi65 Üstad 428 ileti İnş.Tekn. Teknik Ressam KASTAMONU
Benim anlamadığım... Yazının yeri konumu değişmeden Justifaction durumunu değiştirmeye neden ihtiyaç duyulur...? Şahsen ben bu şekilde hiç ihtiyaç duymadım... Yazının yeri değişmiyorsa öylece kalsın... Örneğin Left durumunda yazıyı yazdık diyelim.. Alt alta sağa dayalı olarak yazılar hizalanacak.. Bunların durumunu Right yaptığımızı düşünürsek yazının yeri değişmeden nasıl olacak bu iş..? Yada değişmeyince ne anlamı var..?

19.12.2009 21:48 54163	ehya Yönetici 3590 ileti Teknik Ressam Ankara
harbi65 bir proje düşün. örneğin mahal yazıları left yerleşim noktasına göre yazmışsın. Ancak uzun mahal isimlerinde her defasında sağa sola kaydırmak zorunda kalıyorsun. Baktın olmuyor, TJUST komutu ile bu yazıları yeri değişmeden yerleşim noktasını Center olarak değiştirdin ve mahal isimlerini aynen değiştirmeye devam edersin. Hemde sağa sola kaydırma ihtiyacı duymadan. Bu yer değiştirme sıkıntısı benim canımı çok sıkıyordu. Express menü ile gelen tjust komutu ile bayağı bi rahatlamıştım. Bunun gibi birçok örnek çıkarılabilir. Ayrıca yazdığın lispteki kaydırma işlemi olacaksa, zaten MOdify komutu ile rahatlıkla bu yazıların yerini değiştirebilirsin. Hemde hiç uğraşmadan. Haksızmıyım...

19.12.2009 22:14 54166	Harbi65 Üstad 428 ileti İnş.Tekn. Teknik Ressam KASTAMONU
Ehya; Bahsettiğin koşul için haklısın. Bahsettiğin gibi bir düzeltme yapılacaksa yazının yerinin değişmemesi doğru olur... Bu durum kullanım amacına bağlı bir durum. Ancak Justifacition özelliği diyince ilk akla gelen yazının yaslanma noktası.. Yazıları herhangi bir referansa hizalamak gibi bir amaç varsa yazının yeri değişmesi gerekir... Sağa dayalı hizalama yapılacaksa Right özelliğinden faydalanılır bildiğin üzere... Bu durumda TJUST komutu da işe yaramaz dimi...? Uzun lafın kısası, bu tamamen amaca bağlı...

29.12.2009 10:33 54491	aslanv Uzman 87 ileti Rest. Y. Mimar İstanbul
merhaba arkadaşlar. Text alignment Z değeri 0 iken text geometry değeri 0 dan farklı ve çizim içindeki Z lerden kurtulamadım. ehya senin "cds" lispini de denedim olmadı. Bunun çaresi nedir acaba?

29.12.2009 10:45 54492	ehya Yönetici 3590 ileti Teknik Ressam Ankara
bu düzelmeyen çizimden foruma ekleyebilirmisin?

29.12.2009 11:09 54494	Harbi65 Üstad 428 ileti İnş.Tekn. Teknik Ressam KASTAMONU
Bunu dener misin... Kod: (defun c:TGZ (/ a i adt a10 a11) (setvar "CMDECHO" 0) (command "UNDO" "GROUP") (setq a (ssget (list (cons 0 "TEXT")))) (setq i 0) (repeat (sslength a) (setq adt (entget (ssname a i))) (setq a10 (cdr (assoc 10 adt)) a11 (cdr (assoc 11 adt))) (setq adt (subst (cons 10 (list (car a10) (cadr a10) 0)) (assoc 10 adt) adt) adt (subst (cons 11 (list (car a11) (cadr a11) 0)) (assoc 11 adt) adt)) (entmod adt) (setq i (1+ i)) ) (command "UNDO" "END") (setvar "CMDECHO" 1) (princ) )

29.12.2009 12:14 54497	aslanv Uzman 87 ileti Rest. Y. Mimar İstanbul
harbi65 bunu denedim ama bu sefer text in Z si 3294 lere çıkarıyor. Bu çizimde genel olarak Z lerin sıfırlamasında bir sorun var. Düzlemmi bozuk nedir anlayamadım. (3D viewden yan bakışlara bakarsanız zoomlayınca farklı kotları göreceksiniz. Minik de olsa bir Z değeri var. Dosyaya buradan ulaşabilirsiniz. Bazen de arc larda center Z 0 oluyor ama başlangıç ve bitiş uçları 0 dan farklı 3 boyutta. Onları sıfırlayamıyorum. Yardımlarınızı bekliyorum. Teşekkürler. admin (05.12.2017 07:06 GMT)

29.12.2009 12:36 54499	Harbi65 Üstad 428 ileti İnş.Tekn. Teknik Ressam KASTAMONU
3 tane polyline çizginin haricinde bunların hepsi sıfır görünüyo...? sorun nerde?

29.12.2009 12:59 54502	aslanv Uzman 87 ileti Rest. Y. Mimar İstanbul
öyle görünüyor gibi ama Z farkı çok az olduğu için anlaşılmıyor. Merdiven üzerinde basamak numaralandırmalarına bakarsan onlarda text geometry 0.002 gibi bir değer. (iyice zoomlayınca belli oluyor.) Bu nedenle Örneğin express den text altında automatic text numbering yapmaya kalınca objects are not paralel to UCS hatası veriyor.

30.12.2009 10:16 54522	ehya Yönetici 3590 ileti Teknik Ressam Ankara
dosyanı şimdi inceleyebildim. Bahsetmiş olduğun yerleri de kontrol ettim. Ancak hiçbir sorun görünmüyor. Z si farklı olan nesne ise sadece paftanın altında bulunan blokta.. Bunun haricinde bir sıkıntı göremedim.

01.02.2010 08:41 55246	worley Yeni üye 1 ileti elektrik muhendisi izmir
mrb arkadaslar benim sorunum su birden fazla yazi grubunu referans aldigim bir dogruya degecek sekilde hizalamak bununla ilgili bir hizalama komutu varmi yada lisp varmi iyi gunler

> 1 <