AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > seçilen text aynı yapan lisp
16.10.2014 14:42    
raskoln
merhabalar

seçilen textleri aynı yapan lisp varmıdır.

yani bir text te örneğin POZ:1 yazıyor. bu texte tıklayıp sonra diğer 20 tane textlere tıklayınca hepsini aynı yapsın
yani çoklu seçim yapabilmemiz lazım

16.10.2014 14:52    
özkan-wien
(defun c:ydeg ()
(setq reft (entget (car (entsel "\nReferans Text'i seciniz..."))))
(if reft (setq yazi (assoc 1 reft)) (exit))
(while (setq tart (car (entsel "\nDegistirilecek Text'i seciniz...")))
(setq tart (entget tart) tart (subst yazi (assoc 1 tart) tart))
(entmod tart) (entupd (cdr (assoc -1 tart)))
)
(prin1)
)


yazan:travaci

16.10.2014 15:32    
Travaci


Linkleri görebilmek için ÜYE olmalısınız.



Yukarıdaki lisp i kullanarak neden propertiesten değiştirmiyorsun ?

17.10.2014 06:49    
raskoln
(defun c:ydeg ()
(setq reft (entget (car (entsel "\nReferans Text'i seciniz..."))))
(if reft (setq yazi (assoc 1 reft)) (exit))
(while (setq tart (car (entsel "\nDegistirilecek Text'i seciniz...")))
(setq tart (entget tart) tart (subst yazi (assoc 1 tart) tart))
(entmod tart) (entupd (cdr (assoc -1 tart)))
)
(prin1)
)


bu lisp tam aradığım lisp fakat çoklu seçim yapmıyor yani referans objeyi seçiyorum sonra sadece bir tane text seçmeme izin veriyor yani birden fazla text seçmek için düzeltebilirmisiniz lispi

> 1 <
Copyright © 2004-2022 SQL: 0.86 saniye - Sorgu: 52 - Ortalama: 0.01654 saniye