Lisp istekleri | Forumlar

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: 462, Üye: 1
admin

Detaylar »

Forumlar > AutoLISP > Lisp istekleri

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

İleti	Yazar
03.12.2013 14:29 75275	özkan-wien Üstad 448 ileti Ankara
arkadaslar bir Layerin "on" "off" oldugunu nasil kontrol ederiz lisple?

03.12.2013 15:23 75277	ehya Yönetici 3597 ileti Teknik Ressam Ankara
özkan-wien Kod: (setq layer "DUVAR") (setq sor (tblsearch "layer" layer)) Sonuç : ((0 . "LAYER") (2 . "DUVAR") (70 . 0) (62 . 7) (6 . "Continuous")) 62 nolu dxf kodu pozitif ise "on", negatif ise "off" durumundadır. Ek bilgi olarak; 70 nolu dxf kodu, 1 ise "freeze" li; 2 ise "New VP Freeze" li, 4 ise "lock" lu; 5 ise "freezli" ve "lock" lu; v.s v.s. gibi seçenekleri de kullanabiliriz.

03.12.2013 15:26 75278	ProhibiT Yetkili 1616 ileti İnşaat Mühendisi Ankara
Layer nesnesinin (table object) varlık adı (entity name) ilişkilendirililmiş (associaiton) listesinde 62 DXF grup kodu ile ilişkilendirilmiş renk numarası pozitif ise layer "ON", renk negatif ise layer "OFF" durumdadır. Kod: (setq LayAd (getstring "\Layer adı: ") LayLs (tblsearch "Layer" LayAd) LayCL (cdr (assoc 62 LayLs))) (if (< LayCL 0) (princ (strcat LayAd " layer'ı off durumda")) (princ (strcat LayAd " layer'ı on durumda"))) Beğenmek için anlamak lazım...

03.12.2013 16:04 75279	ehya Yönetici 3597 ileti Teknik Ressam Ankara
Hocam bu sefer de hızlı çıktım sizden.. :)

03.12.2013 16:17 75280	özkan-wien Üstad 448 ileti Ankara
ayri ayri tesekkür ederim

03.12.2013 18:03 75282	ProhibiT Yetkili 1616 ileti İnşaat Mühendisi Ankara
ehya hocam bu başıma sık geliyor :) Beğenmek için anlamak lazım...

04.12.2013 07:21 75284	ehya Yönetici 3597 ileti Teknik Ressam Ankara
macros55 Mevcut FASTSEL komutunu kullanın...

04.12.2013 09:47 75288	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
asvm44 Kod: ;*********** Çizim İçinde Belirlenen Text leri Seçer *********; (defun c:Sec (/) (princ "\nSecilecek text veya textleri belirleyin:") (setq frStSLcT (ssget (list (cons 0 "text")))) (if (= frStSLcT nil) (progn (princ "\nSeçim yapılmadı.!")) (progn (setq c 0 say (sslength frStSLcT) mYLsT '()) (while (< c say) (setq tek (ssname frStSLcT c) sBjT (cdr (assoc 1 (entget tek)))) (if (not (member sBjT mYLsT)) (setq mYLsT (append (list sBjT) mYLsT))) (setq c (+ c 1))) (setq d 0 wRd "") (repeat (length mYLsT) (setq wRd (strcat wRd (nth d mYLsT) ",") d (+ d 1))) (princ "\nTextlerin aranacağı bölgeyi belirleyin:") (setq lsTslCt (ssget (list (cons 0 "*Text") (cons 1 wRd)))) (if (= lsTslCt nil) (progn (princ "\nAranan text bulunamadı.!")) (progn (sssetfirst nil lsTslCt)) ) ) ) (princ) )

05.12.2013 06:14 75291	waytooraider Kıdemli Uzman 162 ileti makine mühendisi istanbul
Travaci Hocam Sec dedikten sonra;textleri aranacak bölgeyi secin den hemen sonra secim yerine all diye yazarsak tümünü seçmesini sağlayabilirmiyiz. Saygılarımla.

05.12.2013 07:03 75293	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
Seçim yapılacak bölgeyi sorduğunda all diyebilirsin.

06.12.2013 23:08 75302	waytooraider Kıdemli Uzman 162 ileti makine mühendisi istanbul
Merhabalar.i, Aynı uzunlukta ki nesneleri seçmek istiyorum.Mesela çizim de 10000 tane aynı uzunlukta çember var.Quick selecte seçmek ilk yapılması gereken ama Lisp ile yapmak mümkün mü? Sonsuz saygılarımla.

07.12.2013 22:48 75307	given Girişimci 20 ileti Teknik Ressam Ankara
Herkese merhabalar, Sitede karistirdim ama bulamadim. Rakamlari siralayan bir lisp ariyorum. Soyle ki; elimde KL-OB-001' den KL-OB-357' ye kadar Text ile yazilmis kolon numaralari var. Bu rakamlari, buyukten kucuge veya kucukten buyuge ust uste siralayarak arada silinen veya cikarilan rakamlarin olup olmadigini kontrol etmem gerekmektedir. Lisp olmadan yapilabilecegini sanmiyorum. Baska bir yolunu bilen varsa ve paylasirsa cok sevinirim. :) Yardimlariniz icin simdiden tesekkur ederim. Kolay gelsin,

08.12.2013 08:22 75308	ProhibiT Yetkili 1616 ileti İnşaat Mühendisi Ankara
Kod: (defun c:srT (/ Lst Mmb n) (setq Mmb (ssget (list (cons 0 "*text"))) n -1 Lst nil) (while (< (setq n (1+ n)) (sslength Mmb)) (if (not Lst) (setq Lst (list (cdr (assoc 1 (entget (ssname Mmb n)))))) (setq Lst (append Lst (list (cdr (assoc 1 (entget (ssname Mmb n))))))))) (foreach eLm (vl-sort Lst '<) (print eLm)) (princ)) Beğenmek için anlamak lazım...

08.12.2013 17:17 75309	given Girişimci 20 ileti Teknik Ressam Ankara
Prohibit hocam, Lisp cok iyi calisiyor ama kucuk bir sorun var. Soyleki; uc haneli yazilmis olan 006 rakami kendisinden kucuk olan cift haneli rakamlardan ornegin 04 den kucuk goruyor. Dolayisiyla 006 rakami siralamada 04 un uzerinde yer aliyor. Ayni durum tek ve cift haneli rakamlarda da karsima cikti. Bunu duzeltmek sizi cok ugrastiracaksa bu sekliyle de idare edebilirim. Vakit ayirdiginiz icin tesekkur ederim, elleriniz dert gormesin hocam. Saygilarimla,

09.12.2013 07:33 75311	ProhibiT Yetkili 1616 ileti İnşaat Mühendisi Ankara
Doğrudur, vl-sort işlevi sıralamayı bu şekilde yapar. Soldan sağa doğru sıralama yapıldığı için 04 olarak verilen değer, üç basamaklı 006 ile karşılaştırılırken, 040 olarak ele alınıp 006 dan büyük diye düşünülür. Verdiğiniz örnekte "KL-OB-001' den KL-OB-357' ye kadar" dediğiniz için ben de herhangi bir kontrole gerek görmeden genel anlamda sıralamayı yeterli gördüm. ikinci tire işaretinden sonraki kısmını alıp buna göre de sıralanabilir. Ama, bu durumda da başlangıçtaki sayısal olmayan kısım sıralanmaz. Yalnızca en sonda yer alan kısım sayısal değere dönüştürülerek sıralama yapılabilir. Başlangıçtaki ve sondaki gurupları kendi içlerinde ve birlikte sıralamak ise oldukça uzun bir iş. Beğenmek için anlamak lazım...

09.12.2013 16:21 75331	given Girişimci 20 ileti Teknik Ressam Ankara
Prohibit hocam o kusur bile sayilmaz. Bugun butun gun bu lispi kullandim ve benim bir gunde yapabilecegim bir isi 10 dakikaya dusurdu. Size ne kadar tesekkur etsem azdir. Tekrar tesekkur ederim hocam, iyi ki varsiniz. Saygilarimla,

10.12.2013 10:23 75339	özkan-wien Üstad 448 ileti Ankara
arkadaslar mesela "duvar" isimli bir mlstyle var mi yok mu diye nasil kontrol ederim, yardimlariniz icin simdiden tesekkürler. özkan-wien (10.12.2013 10:35 GMT)

10.12.2013 12:10 75341	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
Alıntı özkan-wien : Kod: (if (not (tblsearch "STYLE" "duvar")) (princ "\nNot Found")) table-name A string that identifies a symbol table. Valid table-name values are "LAYER", "LTYPE", "VIEW", "STYLE", "BLOCK", "UCS", "APPID", "DIMSTYLE", and "VPORT". The argument is not case sensitive.

10.12.2013 13:30 75342	özkan-wien Üstad 448 ileti Ankara
Alıntı Travaci : Alıntı özkan-wien : Kod: (if (not (tblsearch "STYLE" "duvar")) (princ "\nNot Found")) table-name A string that identifies a symbol table. Valid table-name values are "LAYER", "LTYPE", "VIEW", "STYLE", "BLOCK", "UCS", "APPID", "DIMSTYLE", and "VPORT". The argument is not case sensitive. tesekkür ederim travaci, senin yazdigin ama text style, benim aradigim multilinestyle "mlstyle" liste

10.12.2013 14:23 75343	Harbi65 Üstad 428 ileti İnş.Tekn. Teknik Ressam KASTAMONU
Alıntı özkan-wien : arkadaslar mesela "duvar" isimli bir mlstyle var mi yok mu diye nasil kontrol ederim, yardimlariniz icin simdiden tesekkürler. Kod: (if (not (and (setq DicSr (dictsearch (namedobjdict) "ACAD_MLINESTYLE")) (setq DicSr (dictsearch (cdr (assoc -1 DicSr)) "DUVAR")))) ........... ...........

Önceki Sayfa

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] [25] [30] [35] [40] [45] > 49 < [50] [55] [60] [65] [70] [75] [80] [85] [90] [95] [100] [101]

Sonraki Sayfa