Yazıları birleştirdikten sonra hafızaya almak

AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim

aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A

Forumlar > AutoLISP > Yazıları birleştirdikten sonra hafızaya almak

01.06.2014 07:47

k005

Merhaba arkadaşlar;

iki yada daha Fazla sayıdaki yazıları ( text ) birleştiriyorum.. birleştirmenin tamamlandığı esnada birleşen bu yazıyı hafızaya nasıl alabilirim ? ( cTRL+c) bunu başka bir yere Excel e yapıştıracağım..

yardımcı arkadaşa şimdiden teşekkürler.

77697

01.06.2014 14:16

ehya

Kod:

(defun setClipText(str / html result)
(if (= 'STR (type str))
(progn
(setq html (vlax-create-object "htmlfile")
result (vlax-invoke (vlax-get (vlax-get html 'ParentWindow) 'ClipBoardData) 'setData "Text" str)
)
(vlax-release-object html)
str
)
)
)

(setq deneme-yazi "1000")

(setClipText deneme-yazi)

77698

01.06.2014 15:54

k005

Ehya hocam verdiğiniz kodları lispe uyguladım. şöyle bir sonuç çıkıyor ;

önce yazı birleştirme yapıyorum., en son hangi parça yazıyı seçtiysem onu hafızaya kopyalıyor.. birleşmiş yazıyı hafızaya alamıyorum.

örnek :

birinci text: Bahçe
ikinci text : duvarı

birleşince : Bahçe duvarı . ama sadece duvarı kısmını hafızaya alabiliyorum vermiş olduğunuz kod ile..

77699

01.06.2014 16:11

ehya

Kod:

(setClipText (strcat "birinci text" "ikinci text"))

77700

01.06.2014 20:24

k005

Teşekkürler hocam, Tamamdır..

> 1 <


	Forum	Download	Galeri	Üye Ol \| Giriş