seçerek text oluşturmak | Forumlar

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

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

Forumlar > AutoLISP > seçerek text oluşturmak

10.09.2012 14:36

k005

Merhaba arkadaşlar

1. text = 1022

2. text = PL10*120

3. text = 132

bu üç ayrı text i birleştirerek (PLAKA 1022) 10mm KALINLIĞINDA 132 ADET biçiminde nasıl yazdırabilirim ?

Not: 10mm ikinci text deki PL ifadesinin önündeki sayıdır..

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

Herkese kolay gelsin..

69924

10.09.2012 16:35

Travaci

PL10*120'dan 10'u çekebilseydik kolaydıda : )

69927

10.09.2012 18:03

ProhibiT

Tüm plaka kalınlıkları 10, 12 veya 14 gibi iki basamaklı sayı değildir herhalde. 8 veya 6 mm'lik levhalar da olabilir bu durumda, PL'den sonra, *'dan önceki bölümü okumak gerekecek.

Kod:

(setq T1 1022
T2 "PL10*120"
T3 132
T4s (+ 2 (vl-string-position (ascii "L") T2)) ;;; L'nin yerini bulduk.
T4e (1+ (vl-string-position (ascii "*") T2)) ;;; *'ın yerini bulduk.
T4 (substr T2 T4s (- T4e T4s)) ;;; L ile * arasını aldık.
TxT (strcat "(PLAKA " (itoa T1) ") " T4 "mm KALINLIĞINDA " (itoa T3) " ADET"))

N'olur noktasını virgülünü sormayın. Yazar olmanın ilk şartı okur olmaktır. Lutfen okuyunuz.

69930

11.09.2012 05:25

k005

ProhibiT :
** Yazar olmanın ilk şartı okur olmaktır. Lutfen okuyunuz.**
------------------------------------------------
hocam bu sözünüze %100 katılıyorum.. kod için çok teşekkür ediyorum.. tamamdır.. diğer eklemeleri yapıp düzenleyeceğim.. ;)

> 1 <


	Forum	Download	Galeri	Üye Ol \| Giriş