bu lispi yapacak varmıdır? | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 520, Üye: 2
asamet, mttlp

Detaylar »

Forumlar > AutoLISP > bu lispi yapacak varmıdır?

Bu başlığı inceleyenler : 2 ziyaretçi, 0 üye : ---

İleti	Yazar
08.10.2014 13:39 78749	raskoln Üstad 243 ileti uzman istanbul
sadece birinci sıradaki text i seçmesini sağlayabilirmisiniz lisp ile üç kere seçim yapsam bile en üstteki text i seçmiyor

08.10.2014 14:09 78750	raskoln Üstad 243 ileti uzman istanbul
yardım edecek hiç kimse yokmu raskoln (08.10.2014 14:23 GMT)

08.10.2014 18:11 78756	raskoln Üstad 243 ileti uzman istanbul
text ler block şeklinde fakat blokları patlatabilirimde benim istediğim seçtiğim çizimlerin üzerinde text olarak poz numaraları yazıyor toplu bir şekilde tüm parçaları seçtiğimde aynı poz numaralarından kaç tane varsa seçsin istiyorum. yani poz 1 den 5 tane varsa 5 tanesinide seçsin istiyorum altta travacı bir lisp yapmıştı fakat o lisp poz numaralarını değilde parçanın malzemesinin isimlerini seçiyor. bana aynı poz numaralarını seçen bir lisp lazım (defun c:stxt (/) (sssetfirst nil (ssget "x" (list (cons 0 "text") (cons 1 (cdr (assoc 1 (entget (ssname (ssget ":s" (list (cons 0 "text"))) 0)))))))) (princ))

08.10.2014 18:38 78757	kerem1453 Kıdemli Uzman 111 ileti teknik ressam ankara
Linkleri görebilmek için ÜYE olmalısınız. sayfayı bir incele sanırım istedigine uygun bir lisp.

09.10.2014 05:43 78758	raskoln Üstad 243 ileti uzman istanbul
hayır verdiğiniz linkteki lispler işimi görmedi aşağıdaki lisp güzel fakat alt alta yazılmış textlerde en alttaki yazıyı seçiyor bunu en üstteki yazıyı seçecek şekilde ayarlayabilirmisiniz. (defun c:stxt (/) (sssetfirst nil (ssget "x" (list (cons 0 "text") (cons 1 (cdr (assoc 1 (entget (ssname (ssget ":s" (list (cons 0 "text"))) 0)))))))) (princ))

09.10.2014 06:57 78763	kerem1453 Kıdemli Uzman 111 ileti teknik ressam ankara
(defun c:sEc (/) (princ "\nSecilecek text veya textleri belirleyin:") (setq frStSLcT (ssget)) (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)) travacı ustamızın yazdıgı bu lisp birden çok aynı içerikteki texti belirledigin bir alan içinde seçmeni sağlıyor bu lisp senin işini görmesi lazım normalde.

09.10.2014 07:38 78765	raskoln Üstad 243 ileti uzman istanbul
bu lispin çalışma mantığı nasıldır yani mtext mi blokmu normal text mi yani nasıl çalışıyor

09.10.2014 09:59 78770	raskoln Üstad 243 ileti uzman istanbul
(defun c:stxt (/) (sssetfirst nil (ssget "x" (list (cons 0 "text") (cons 1 (cdr (assoc 1 (entget (ssname (ssget ":s" (list (cons 0 "text"))) 0)))))))) (princ)) bu lispi düzenleyecek varmıdır. düzenleme şekli seçilen textlerin aynı olanlarını seçecek ve alt alta 3 sıra text varsa en üsttekini seçecek

09.10.2014 10:32 78771	kerem1453 Kıdemli Uzman 111 ileti teknik ressam ankara
çalışma şekli şöyle A-B-C diye 3 tane ayrı text objesi oldugunu düşün sen lispi çalıştırıp A B C textlerini seçiyosun daha sonra seçim yapmasını istedigin alanı belirliyosun o alandaki A B C olan textleri işaretliyo sana.yazıların altlı üstülü yan yana oluşuna bakmıyo hepsinde aynı işlemi yapıyor.normal text objeleri için hazırlanmış bir lisp (setq lsTslCt (ssget (list (cons 0 "*text") (cons 1 wRd)))) bu satırdaki text yazısını mtext olarak değiştirirsende mtextlerde arama yapar.

> 1 <