While döngüsü ile ilgili sorun | Forumlar - Çizim Okulu


Forum	Download	Galeri	AboneOl

Üye Ol veya Giriş Yap

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 438, Üye: 1
nokta28

Forumlar > AutoLISP > While döngüsü ile ilgili sorun

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
25.10.2018 13:39 86743	mesuttasar Kıdemli Girişimci 32 ileti İnşaat Mühendisi İstanbul
Arkadaşlar merhaba, aşağıdaki kodlarla ilk başta üç nokta girip bunlardan bir liste oluşturuyorum. Daha sonra girdiğim yeni noktadan , önceki noktalara line çizmek için aşağıdaki kodları yazdım ama while kısmında sanırım yazım yanlışı yapıyorum. Hata nerede acaba? Şimdiden teşekkür ederim. Kod: (defun c:mst() (setq liste nil i 0 y 0) (setq a1 (getpoint "\nİlk Nokta..")) (setq liste (cons a1 liste)) (setq a2 (getpoint "\nİkinci Nokta..")) (setq liste (cons a2 liste)) (setq a3 (getpoint "\nÜçüncü Nokta..")) (setq liste (cons a3 liste)) (command "_.line" a1 a2 a3 a1 "") (setq new (getpoint "\nYeni Nokta..")) (setq liste (cons new liste)) (setq y (length liste)) (setq i 0) (while (< i (- y 1)) (command "_.line" (nth i liste) (nth (- y 1) liste) "") (setq i (+ i 1)) ) ) ~~Bir mum,diğer bir mumu yakmakla ışığından bir şey eksiltmez.~~

25.10.2018 15:19 86746	mesuttasar Kıdemli Girişimci 32 ileti İnşaat Mühendisi İstanbul
Listeye yeni bir eleman eklendiğinde bu listenin sonuna değilde ilk elemanı olarak eklendiği için istediğimi gerçekleştiremiyormuşum. Reverse komutu ile yapmak istediğimi yapabildim. Kod: (defun c:mst() (setq liste nil i 0 y 0) (setq a1 (getpoint "\nİlk Nokta..")) (setq liste (cons a1 liste)) (setq a2 (getpoint "\nİkinci Nokta..")) (setq liste (cons a2 liste)) (setq a3 (getpoint "\nÜçüncü Nokta..")) (setq liste (cons a3 liste)) (command "_.line" a1 a2 a3 a1 "") (while (setq new (getpoint "\nYeni Nokta..")) (setq liste (cons new liste)) (setq y (length liste)) (setq listson (reverse liste)) (setq m (- y 1)) (setq i 0) (while (< i m) (command "_.line" (nth i listson) (nth m listson) "") (setq i (+ i 1)) ) ) (princ) ) ~~Bir mum,diğer bir mumu yakmakla ışığından bir şey eksiltmez.~~

25.10.2018 15:35 86747	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Yazdığınız lispi gözden geçirerek gereksiz kodları temizlemek gerek. Yeni başladığınızı düşünerek fazla da kafa karıştırmak istemem. Örneğin; Koordinatları listelerken her biri için cons uygulamak yerine (setq liste (append (list a1)(list a2)(list a3))) kodunu uygulayabilirsiniz.

25.10.2018 17:05 86748	mesuttasar Kıdemli Girişimci 32 ileti İnşaat Mühendisi İstanbul
Alıntı ehya : Yazdığınız lispi gözden geçirerek gereksiz kodları temizlemek gerek. Yeni başladığınızı düşünerek fazla da kafa karıştırmak istemem. Örneğin; Koordinatları listelerken her biri için cons uygulamak yerine (setq liste (append (list a1)(list a2)(list a3))) kodunu uygulayabilirsiniz. Teşekkür ederim hocam, dediğiniz çok daha mantıklı böylece reverse koduna da gerek kalmamış olur. :) mesuttasar (25.10.2018 17:13 GMT) ~~Bir mum,diğer bir mumu yakmakla ışığından bir şey eksiltmez.~~

> 1 <

Copyright © 2004-2022 | Tüm Hakları Saklıdır | 3869 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim
SQL: 1.131 saniye - Sorgu: 53 - Ortalama: 0.02133 saniye