14.11.2014 10:09    

özkan-wien
arkadaslar while döngüsünden kullanici enter i ile nasil cikariz?

14.11.2014 14:29    

Travaci
Kodlara bakıp kafa yoramadım : ) yüklemede yükleyemedim hata verip autocad i kapatıyor. Anlıyacağın ne istiosun hala anlamadım.

14.11.2014 15:13    

Travaci
Dedim ya hata alınca kodlara bakma bile bakmadım : )
; error: Exception occurred: 0xC0000005 (Access Violation)
; warning: unwind skipped on exception

14.11.2014 16:23    

Travaci
Böylede birşey anlamıorum :D Yaa özkan yapmak istediğini söyle yapabilirsem ben yazıyım :)

14.11.2014 17:00    

Travaci
Böyle birşey için niye while a gerek var anlamadım ki, ayrıca niye entmake listeni dışarda yaratıyorsun. Ya özkan sen iyisimi sil bu başlığı, kendine yeni bir sayfa aç :D

14.11.2014 22:24    

özkan-wien
While gerek var cunku bir kere insert yapmiyorum. Bazen iki bazen 5. bazen 7.
Entmake i nerde yaratmam lazim. Isin ilginc yani hala lispin ne is yaptigini anlayamaman. :-)
Revize bulutlarinin layerlarini indexe gore siralamak. Turkiyede index diye bisey yok mu hala ?:-)
Mesela 01.01.2014 de 3 degisiklik yaptim. O degisiklikleri revision cloud la (o bulut.dwg) isaretledim ve layer adi index-a oldu.
Ertesi gun 5 yerde revize oldu. 5 bulut otomatikman index-a layeri var oldugundan index-b oldu.
Anladin mi? :-)
Bu lisp bende calisiyor bir yildir kullaniyorum. Sen isin makarasindasin.
Tek sorun 3-5 insert yaptiktan sonra (while dongusu) enterla cikmak istiyorum.
Su anki calisir halinde "escape" ile cikiyorum.
Daha da anlamadiysan silcem konuyu. Lispten vazgectim mevzuyu anladim de yeter. :-)

özkan-wien (14.11.2014 22:33 GMT)

15.11.2014 07:42    

miyatu
Konunun ne oldugunu bilmiyorum ama veri girisinin beklendigi durumlarda dongu sartini ((while (/= x nil)) nil e baglarsan enter yaptiginda donguyu sonlandirman mumkun olabilir. Tabi bu senin neyi nasil yaptiginlada alakali. kolay gelsin.

15.11.2014 21:56    

ehya
Böyle basit bir örnek işine yarar sanırım.
Kod:

(defun c:deneme ()
  (setq pick t)
  (while (/= pick nil)
    (setq pick (getpoint "\nNokta."))
    (command "_.point" pick))(princ))

17.11.2014 08:06    

özkan-wien
@miyatu
@ehya
evet aradigim buydu tesekkür ederim. iyi calismalar.

> 1 <
Copyright © 2004-2022 SQL: 1.987 saniye - Sorgu: 67 - Ortalama: 0.02965 saniye