Öncelikle bugüne kadar hem bu forumun değerli yöneticilerine hemde Alumina hocama teşekkür ederek başlamak istiyorum. Sayenizde çok şey öğreniyoruz gerçektende. Öğrendikçe de haliyle yeni problemlerle karşı karşıya kalıyorum. En son takıldığım yer şöyle;
Kod:
(defun c:mss()
(setq linelist nil
noklist nil)
(setq a1 (getpoint "\n1.Nokta.."))
(setq a2 (getpoint "\n2.Nokta.."))
(setq a3 (getpoint "\n3.Nokta.."))
(setq noklist (append (list a1)(list a2)(list a3)))
(command "_.line" a1 a2 "") ;ÇİZGİNİN ADI L1 OLSUN
(setq linelist (car (entlast))) ;L1'in entity name değerini linelist adında bir listeye atamak istiyorum
(setq entlast nil)
(command "_.line" a2 a3 "") ;ÇİZGİNİN ADI L2 OLSUN
(setq linelist (cons (car entlast) linelist));L2 çizgisinin entity name değerini linelist adında oluşturduğum listeye eklemek istiyorum
(setq entlast nil)
(command "_.line" a3 a1 "") ;ÇİZGİNİN ADI L3 OLSUN
(setq linelist (cons (car entlast) linelist)) ;L3 çizgisinin entity name değerini linelist adında oluşturduğum listeye eklemek istiyorum
(setq linelist (reverse linelist))
);defun kapanış parantezi
Öncelikle 3 nokta seçiyorum ve bunlar a1,a2 ve a3 değerlerine atayarak nokta listesini oluşturuyorum.
Daha sonra a1 ve a2 arasına line çizip bunun entitiy name değerlerini bir liste altında tutmak istiyorum. Sırasıyla aynı işlemi a2 ve a3 arasında çizdiğim ve a3 ile a1 arasında çizdiğim line elemanları içinde yapmak istiyorum.
Yani linelist isimli bir listede ayrı ayrı çizilen üç çizginin (L1,L2,L3) entitiy değerlerini almak istiyorum.
Bundan sonra ilave bir nokta girdiğimde , girilen son noktadan diğer noktalara line çizdiğimde, kesişen line elemanları var mı yokmu kontrol (entget komutuyla bu lineların "L1, L2, L3" start ve end point noktalarına ulaşacağım) edip bir sonraki aşamaya geçeceğim ama linelist listesi ni oluşturamıyorum.
Bu noktada yardımınıza ihtiyacım var.
Saygılarımla,
