* E Posta Adresiniz:
* Kodu Girin:

İleti Yazar
10.05.2019 08:28
87380    
autolisper

[2] Girişimci

Online Durumu

10 ileti

Merhabalar ,

(setq sayac 0)
(while (< sayac 100)
(command "text" (10.0 20.0 0.0) "" "" "deneme" "" "")
(setq (1+ sayac))
)

bu kod çalışıyor ve kod yardımıyla 100 defa belirttiğim noktaya deneme yazıyor. Benim istediğim 100 defa değil tek seferde 100 yazı yazması bu nasıl yapılabilir.

not: sorunun net anlaşılması için yukarıdaki şekilde yazdım.
not2: sayacım 100 e kadar olmayacak seçilen listenin boyu kadar olacak.
not3: verdiğim nokta örnektir seçilen listedeki elemanlardan nokta üretilecek.

konu yardımcı olabilecek arkadaşlara şimdiden teşekkürler.

10.05.2019 08:57
87381    
Travaci

[70] Editör

Online Durumu

2186 ileti
Teknik Ressam
Konstantinopol

Kod:

(repeat (setq n (length liste))
  (command "_.text" (nth (setq n (1- n)) liste)  "" "" "deneme" "" "")
)

10.05.2019 09:06
87382    
autolisper

[2] Girişimci

Online Durumu

10 ileti

Hocam emeğinize teşekkür ederim fakat farklı bir sonuç ile karşılaşmadım bu da teker teker yazıyor f2 den baktığımda. ctrl+z kullandığımda da aynı şekilde teker teker geri alıyor. İlk halinden farklı sonuç vermiyor.

10.05.2019 09:44
87383    
Travaci

[70] Editör

Online Durumu

2186 ileti
Teknik Ressam
Konstantinopol

Hepsini birden yazamazsın, benım cewabım senın dıger soruların ıcındı.
Amacın bütün işlemleri tek seferde geri almaksa
Kod:

(command "_.undo" "be")
....
....
Kodların
....
....
(command "_.undo" "e")

> 1 <
Copyright © 2004-2019 | Tüm Hakları Saklıdır | 3018 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim