AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > bu lispi yapacak varmıdır?
08.10.2014 13:39    
raskoln



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    
raskoln
yardım edecek hiç kimse yokmu

raskoln (08.10.2014 14:23 GMT)

08.10.2014 18:11    
raskoln
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    
kerem1453


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    
raskoln
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    
kerem1453
(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    
raskoln
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    
raskoln
(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    
kerem1453
ç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 <
Copyright © 2004-2022 SQL: 1.329 saniye - Sorgu: 65 - Ortalama: 0.02044 saniye