Forumumuzda yükselen çıta nedeniyle acemi kullanıcıların soru sormaya çekindiğini fark ettik ve sizlere daha iyi destek verebilmek için acemi kullanıcı bölümlerini açtık.
İşte bunlardan biri:
AutoLISP kodlamaya yeni başlayanların kolay ya da zor her türlü soruyu çekinmeden sorabilecekleri forum bölümüdür.
Lütfen sorularınızı çekinmeden yazın! Size cevap vermek bizim için bir keyif.
Turgay sorunu bir çok kez okumamama rağmen birşey anlamadım : ) Madem (assoc 10-11) leri listeliyorsun neden remove a gerek duyuyorsun ?Birinci nesnenin sonu ile ikinci nesnenin başı aynı deği mi ! Yazmaya çalıştığın fonksiyonu paylaşırsan daha iyi anlaşılır. Autolisp ve visual lisp beraber kullanılabilir, bundan dolayı bir hata almazsın.
...
(setq ls nil)
(setq ss (ssget (list (cons 0 "Line"))))
...
(repeat (setq n (sslength ss))
(setq ls (append (list (cdr (assoc 10 (entget (ssname ss (setq n (1- n))))))) ls))
)
...
Şeklinde 10 ve 11 noktalarını listeye aldıktan sonra aşağıdaki gibi listedeki benzer elemanları listeden çıkararak ilk ve son hali arasındaki farka bakarak tekrar iki listenin elemanlarını yukarıdaki gibi birleştiriceksin.
Mevcut listen (setq l '((a b) (e d) (c b) (d c))) ise bunu '((a b) (b c ) (c d) (d e)) yaparken bir kuralı olmalı.
Aslında sizin ilk listenizi a b c d e şeklinde düzenleyip bunu sıraladıktan sonra istediğiniz listeyi rahatça kurgulayabiliriz.
Söylediklerim konusunda hem fikir iseniz bununla ilgili basitçe bir örnek fonksiyon hazırlarım
bir lisp programını çalıştırdığımda , objeye yaklaşarak seçim yaptığımda lisp düzgün çalışıyor.Ancak ekrandan uzaklaşınca lisp düzgün çalışmıyor.bununla ilgili bi ayar var mı?
Benim cevap verdigim iletinin uzerindeki "alinti" dan yapilir. Bunu yaparken ileti, yazacagin cevabin uzerine gelir. Forumdaki kirliligi onlemek adina o iletiyi silip kendi iletini yazabilirsin.
Not: Bu sadece pc den giriste yapilabilir. Mobil den giriste olmuyor. (diye biliyorum)
Haritacıyım. Civil 3D üzerinde yoğunlaşmak istiyorum. LISP kodları üzerinde deneme-yanılma yoluyla bir şeyler yapmaya çalışıyorum. Basic programlama bilgim az çok var ama LISP mantığını tam çözebilmiş değilim. Mesele şu: Biz sahadan ölçüm aletleriyle yüzlerce noktalın alımını yapıyoruz ve bir text dosyası olarak onları netcad ya da civil 3d üzerine atabiliyoruz. Şu tür bir text dosyası:
Bu nokta dosyasını nokta adı, y,x,z koordinatları olarak Cogo Points olarak Civil 3D'ye atıyorum.. Bunun tersini bir lisp ile yaptırmak istiyorum. Yani çizimdeki benim seçtiğim Cogo Point'leri yukarıdaki format ile dışarı aktarsın.. İnternet üzerinde aktarım yapan epey lisp var ama ben NOKTA ADI (NAME) ile aktarısn istiyorum numara ile değil.. Lakin bu "name" değerinin hangi değişkende saklandığını ve onu nasıl çağıracağımı bir türlü bulamadım. entity name var o başka bir şey.. ASSOC fonksiyonuyla ilgili bir şey ama bu NAME hangi numaralı code'da saklanıyor ve onu nasıl çağırırız?
(cogo point properties'e baktığımda name, atributes kısmında görünüyor..)
Cogopoints nedir bilmem ama autocad içerisindeki point nesnelerinin koordinatlarını verdiğiniz isme göre txt dosyasına kaydeden bir uygulama paylaşıyorum.
Komut ismi NPT
Kod:
(defun c:NPT ()
(if (setq ss (ssget (list (cons 0 "POINT"))))
(progn
(if (setq ad (getstring "\nNokta adını yazın:"))
(progn
(if (setq dkyt (getfiled "Dosyayı kaydedin" (getvar "dwgprefix") "txt" 1))
(progn
(setq c 0 say (sslength ss))
(setq opp (open dkyt "w"))
(while (< c say)
(setq tek (ssname ss c)
sp (cdr (assoc 10 (entget tek)))
op (write-line (strcat ad (itoa (+ c 1)) " " (rtos (car sp)) " " (rtos (cadr sp)) ) opp)
c (1+ c)))
(close opp)
))))))
(princ))
Çok teşekkür.. Verdiğiniz örnek kod, geliştirmeler yapmak için faydalı.. Noktaları sizin başlatacağınız bir isimlendirme ile sıralı olarak kaydediyor.. Ekte gönderdiğim çizimde hem cogo (Coordinate Geometry) points hem de normal autocad points nesneleri var.. Cogo Points'lerde properties'e baktığımızda Atributes>Name kısmında nokta adları da var.. Bu nokta adını Lisp kodu ile nasıl elde ederiz ve txt dosyasına yazarız? 392326-eskiz.dwg
392326-eskiz.dwg
Sonraki Sayfa
