10.05.2019 08:28    

autolisper
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. :wink:yes:O_o:dozingoff:blush:blush:blush:blush

10.05.2019 08:57    

Travaci
Kod:

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

10.05.2019 09:06    

autolisper
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    

Travaci
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-2022 SQL: 0.822 saniye - Sorgu: 54 - Ortalama: 0.01522 saniye