Aslında soruyu yanlış sordum. Yapmak istediğim şuydu: seçilen line ların start point ve end point lerinin Y değerlerini eşitlemek. Bunu yaparsam line lar yatay olacak. Açıyla falan uğraşmaya gerek yok. Yardımlarınız için teşekkürler.
Kodları teknik olarak incelediğimizde;
Seçim setinin hem genel hem de filtreli oluşturulması :yes
Önce sayaca başlangıç değeri atanıp sonra döngüye girilmesi :yes
Döngünün kuruluşu ve sayacın işleyişi :yes
Sayacın üst sınırı için gereksiz yere değişken tutulmaması :yes
Assoc list değiştirmek yerine vla- kullanmak :yes
Temiz çıkış için princ ile bitirmek :yes
Local değişkenleri defun başında tanımlayarak ortalıkta dolaştırmamak :yes
Gereksiz değişken tutmadan mantık çerçevesinde en kısa kodlama :yes
Eline sağlık Erkan Travacı, çok beğendim.
Haklısınız yüklü olduğundan unutuyoruz, undo grubu neden koymadım çünkü bazı işlemlerde undo ya gerek kalmıyor, bunlar hangilerinde daha tam idrakına varamadım, uğraşa uğraşa ezberimde kalmışlar. Buda o işlemlerden biri, undo yaptığımda her text'e uyguluyor.
;;; 90 ve 270 dereceye çeviren fonksiyon işinizi görür.
İlk fonksiyonu "Ortogonal Yap", ikinciyi "Yataya Çevir", üçüncüye de "Dikeye Çevir" diye düşünebilirsiniz. Rotate işlemi için kullanılacak Base point noktası hedeflenen açıya göre doğrunun uygun ucu olarak alınır.