Merhabalar...
Uzun bi zamandan sonra tekrar bu forum'a mesaj atmak güzel.. Benim sormak istediğim bi soru var. Offset komutunun yazılış fonksiyonu hakkında bilginiz var mı? Bu konuda bilgi verirseniz sevinirim. Amacım yeni bir lisp uygulaması için istiyorum.

Şimdiden teşekkür ederim...

ehya_bote

<b>"Offset komutunun yazılış fonksiyonu"</b> terimini biraz daha açar mısınız?

Merhabalar...
Offset komutu derken. bir çizgiyi seçip mesafe ve yön gösterildiğinde gideceği yön ve koordinatları nasıl buluyor. Özellikle pline olan nesnelerde. Pline olan nesnelerin verilen mesafeye ve gösterilen yöne göre yeni köşe koordinatlarını nasıl bulabilirim. Bu offset yön fonksiyonu içe ve dışa doğru fark eder mi?

ehya_bote

Aşağıdaki <b>Poffset</b> fonksiyonuna LWPOLYLINE veya POLYLINE nesnesinin içindeki düğüm (vertex) koordinatlarını liste halinde vererek offsetini elde edebilirsiniz. Sonra bu offset koordinat listesini tekrar <b>entget</b> ile elde ettiğiniz listeye aynı sırada gömerek <b>entmake </b>(veya <b>entmod</b>) komutuyla istediğiniz nesneyi elde edebilirsiniz.

Not: İyi bir LISP editörü arıyorsanız size ConTEXT programını öneririz: [url]http://www.fixedsys.com/context[/url]. Program ücretsizdir.


[code]
<font color="green">;Poffset: verilen <b>path</b>'i <b>dst</b> kadar offset eder ve yeni path'i (newpath) döndürür
;<b>dst</b> pozitif ise sağa, negatif ise sola offset yapılır.
;
;Örnek:
; path= '((2.0 2.0 0.0) (2.0 6.0 0.0) (4.0 6.5 0.0) (5.5 7.5 0.0) (9.0 7.5 0.0) (9.0 3.5 0.0) (11.0 3.5 0.0))
; dist= 1.0
;
;(Poffset path dist)
;Sonuç:
; '((3.0 2.0 0.0) (3.0 5.22 0.0) (4.41 5.57 0.0) (5.8 6.5 0.0) (8.0 6.5 0.0) (8.0 2.5 0.0) (11.0 2.5 0.0))</font id="green">
(defun Poffset (path dst / newpath i p1 p2 p3 aci pi/2)
(setq pi/2 (* 0.5 pi))
(setq i 1 p2 (car path) p3 (cadr path))
(setq newpath (list
(polar (car path) (- (angle p2 p3) pi/2) dst)
))
(while (< i (1- (length path)))
(setq p1 p2
p2 p3
p3 (nth (1+ i) path)
)
(setq newpath (cons (polar (nth i path)
(+ (angle p2 p1) (setq aci (* 0.5 (ang3P p1 p2 p3))))
(/ dst (cos (- aci pi/2)))
)
newpath
)
)
(setq i (1+ i))
)
(setq newpath (cons (polar p3 (+ (angle p3 p2) pi/2) dst) newpath))
(reverse newpath)
)

<font color="green">;APEX-P1 ve APEX-P2 çizgileri arasındaki açıyı ölçer</font id="green">
(defun ang3p (p1 apex p2)
(anginUC (- (angle apex p2) (angle apex p1)))
)

<font color="green">;anginUC: ANGle measured IN Unit Circle
;verilen açıyı (ang) 0-2pi arasına indirger</font id="green">
(defun anginUC (ang)
(+ (rem ang (+ pi pi)) (if (minusp ang) (+ pi pi) 0.0))
)
[/code]

Verdiğiniz bilgiler çok işime yarayacak.
Çok teşekkür ederim.
İyi çalışmalar.

ehya_bote

Merhaba....
Bu konu ile ilgili birşey öğrenmek isterim.
Vertex koordinatlarını liste halinde almaktan bahsetmişsiniz. Bu koordinatları liste halinde alan komut mu var. Yoksa bunun için bir fonksiyon mu yazıyorsunuz?

<b>NESNEVERİ</b> (kısaltması <b>L</b>) komutunu olası tüm nesnelerin veri yapısını (düğüm konum noktaları da dahil olmak üzere) ekrana basmak için kullanabilirsiniz.

Merhaba...
Alınan vertex'leri ekrana yazdırma da bir sıkıntım yok. Ancak yukarıda örneğini vermiş olduğunuz lisp'te path olarak tanıttığınız listeyi nasıl alabilirim.?

Aşağıdaki kod seçilen nesne bir <b>LWPOLYLINE</b> ise düğüm konum noktalarını değilse <b>nil</b> döndürür:

[code](defun getvtx (/ pline pldata data path)
(setq pline (entsel "\nBileşikçizgiyi seç: "))
(setq pldata (entget (car pline))) <font color="green">;Nesnenin datasını çek</font id="green">
(if (equal "LWPOLYLINE" (cdr (assoc 0 pldata))) <font color="green">;Seçilen nesne bir LWPOLYLINE m'ola?</font id="green">
(progn
(foreach data pldata
(if (equal 10 (car data)) <font color="green">;Eğer bu bir düğümse</font id="green">
(setq path (cons (cdr data) path)) <font color="green">;XYZ'sini path'in başına ekle</font id="green">
)
)
(reverse path) <font color="green">;listeyi ters çevir ve geri gönder</font id="green">
)
nil <font color="green">;nesne LWPOLYLINE diilse nil döndür</font id="green">
)
)[/code]

bu polyline daki vertex koordinatlarını ekrana nasıl yazdıracağım yardımcı olursanız sevinirim.

[code](if (equal 10 (car data))
(setq path (cons (cdr data) path))
)[/code]
Satırını şöyle yapın, noktalar listeye eklenmek yerine ekrana basılır:
[code]
(if (equal 10 (car data))
(progn
(princ (cdr data))
(princ "\n")
)
)[/code]