AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Küçük veya büyük harf kullanmak
10.12.2009 15:49    
yazgunesi
Arkadaşlar setq komutu ile tanımladığım değişkenlerde metinsel ifadeler kullanıyorum..

Bu metinsel ifadeler ile işlem yaparken büyük harfli yazıyı küçük harfli haline dönüştürme ihtiyacı hissetim.. Sizce böyle bir şey mümkün mü ?

Kod:

(setq msg1 (strcase "\n Tıkla bakimm:" ))


Kod:

(setq islem1 (ornekkomut (eval (read "msg1"))  ))



Command satırında gözüken yazı :

Command: lnx2
TıKLA BAKIMM:

Ben command satırında gözüken değişken yazısının tamamı ile büyük harf olarak gözüksün istemiyorum !
Sizce nasıl düzeltebiliriz bu problemi ?

yazgunesi (10.12.2009 16:16 GMT)

10.12.2009 15:55    
ehya
cengiz, akşam saatinden olsa gerek hiçbişi anlamadım :blush

neyi küçük harf istiyorsun? tam olarak söyleyebilirmisin?

10.12.2009 16:03    
yazgunesi
Kod:

; ****************************************************
;
;    Command  satırında  gözüken  yazıya
;             Müdahalle etme lispi
;
; ****************************************************

(defun c:lnx2 ( )
 
   (setq oldsnap (getvar "OSMODE"))
   (setvar "OSMODE" 0)
 
   (setq msg1 (strcase "\n Tıkla bakimm:" ))   ; command satırında gözükecek olan yazı
   (setq msg2 (strcase "\n Diger nokta:" ))
   (setq msg3 (strcase "\n Son nokta:" ))
 
   (setq yr1 (getpoint (eval (read "msg1")) ))  ; bu satır doğru mu acaba ?
   (setq yr2 (getpoint (eval (read "msg2")) ))
   (setq yr3 (getpoint (eval (read "msg3")) ))
   
   (command "line" yr1 yr2 yr3 "c" )     ; çizgi çizdirme işlemi
   (setvar "OSMODE" oldsnap)
   (princ)
)

(Princ "Lisp'i çalıştırmak için >> lnx2 << yazınız!")

; ****************************************************



Command satırında gözüken yazı :

Command: lnx2
TıKLA BAKIMM:


Düşündüm düşündüm, değişik birşey yapayım dedim...
Yukarıdaki lispte command satırında gözüken yazının BÜYÜK harfli değil normal bir metin gibi gözüksün istiyorum. Lispi test ederseniz ne demek istediğimi anlarsınız arkadaşlar.

10.12.2009 16:06    
ehya
cengiz benim aklımı zorluyorsun ama neyse :)

strcase komutu yazıyı büyük harfe çevirmek için kullanılır. Bundan dolayı büyüyor. Ama yok bu illa olacak diyorsan

(setq msg1 (strcase "\n Tıkla bakimm:" t))

olarak değiştirirsen metinlerin küçük olarak görünecektir.

12.12.2009 10:01    
yazgunesi
Teşekürler ehya. Ana fikir command satırında gözükecek olan yazıya bir şekilde müdahele etmek, değiştirmek vs. vs.. Aklıma takılan problem ''strcase'' kullanmakla ilgiliymiş.

> 1 <
Copyright © 2004-2022 SQL: 0.736 saniye - Sorgu: 54 - Ortalama: 0.01362 saniye