nesne değiştirme | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 340, Üye: 0

Detaylar »

Forumlar > AutoLISP > nesne değiştirme

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

İleti	Yazar
19.11.2008 07:45 43512	blackhole Yeni üye 54 ileti projeci istanbul
lisp uzmanları sizlere sesleniyorum:) iki nesne düşünün birini diğerinin yerine move diğerini öbürünün yerine move yani nesne yer değiştirme yapılabilirmi? ama mümkün olan en kısa yoldan mesela değiştirilecek nesneyi seçin hangisinin yerine geleceğini seçin desin ve ikisinin yerini otomatik olarak değiştirsin fikir benden yapması sizden zor ama hadi hayırlısı:)

19.11.2008 09:29 43523	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
degistirmek istedigin nesnenin turunu soylersen ona gore bir lisp yazabilirim ama genel herhengi bir nesneyi herhengi bir nesneyle degistirmek istiyorum dersen referans noktalari ile ilgili sikinti cikabilir... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

19.11.2008 09:32 43524	fox Kıdemli Uzman 236 ileti
bence iki nesnenin orta noktasından mirror yap olsun bitsin:)

19.11.2008 09:39 43526	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
iide iki nesenenin hangi noktalarini referans alacaksin Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

19.11.2008 09:43 43527	fox Kıdemli Uzman 236 ileti
mesele sadece iki nesnenin yerini değiştirmekse, nesnelerinin gabarilerinin merkez noktalarını bir doğru halinde düşünürsek bu doğrunun orta noktası referans noktamızı teşkil edecektir.

19.11.2008 09:45 43528	blackhole Yeni üye 54 ileti projeci istanbul
köşeli çizim düşünün köşeden tutup diğerini öbürünün köşesine veya dikdörtgense merkezinden yani karşılıklı kenarların mid inden diğerinin aynı şekilde?

19.11.2008 09:59 43530	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
(defun c:yd() (prompt"ilk nesne grubunu sec") (setq l1 (ssget)) (setq p1 (getpoint "\n ikinci nesne grubu icin referans noktasi sec:")) (terpri) (prompt"ikinci nesne grubunu sec:") (setq l2 (ssget)) (setq p2 (getpoint "\n birinci nesne grubu icin referans noktasi sec:")) (command "move" l1 "" p1 p2"") (command "move" l2 "" p2 p1 "")) bi bak bakalim istedigin gibi olmusmu daha gelistirilebilir... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

19.11.2008 10:36 43532	fox Kıdemli Uzman 236 ileti
(terpri) ne işe yarıyor???

19.11.2008 11:21 43534	blackhole Yeni üye 54 ileti projeci istanbul
harika olmuş teşekkürler:)

20.11.2008 09:29 43577	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
Alıntı fox : (terpri) ne işe yarıyor??? satir atlatir kendinden sonra gelen mesaj yeni bir satirda yazilir genelde prompt kodundan once kullanilir... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

20.11.2008 12:02 43584	fox Kıdemli Uzman 236 ileti
aşağıdaki kod selection da kullanılamıyor mu? (setq l1 (ssget "\n ilk nesne grubunu seç"))

20.11.2008 12:21 43586	ehya Yönetici 3554 ileti Teknik Ressam Ankara
ssget fonksiyonunda kullanıcı mesajı yazamazsın. Kodlama aşağıdaki gibi olmalı... (princ "\nİlk nesne grubunu seçin:") (setq l1 (ssget))

20.11.2008 12:34 43587	fox Kıdemli Uzman 236 ileti
entsel içinde geçerlimi bu.

20.11.2008 12:43 43588	ehya Yönetici 3554 ileti Teknik Ressam Ankara
entsel komutunda kullanıcı mesajı yazabilirsin.

20.11.2008 12:53 43589	fox Kıdemli Uzman 236 ileti
ahanda kodu editledim kullanıcı mesajıda yok terpride yok:) Kod: (defun c:yd() (alert "\nİlk nesne grubunu seçin:") (setq l1 (ssget)) (setq p1 (getpoint "\n ikinci nesne grubu icin referans noktasi sec:")) (alert "\nİkinci nesne grubunu seçin:") (setq l2 (ssget)) (setq p2 (getpoint "\n birinci nesne grubu icin referans noktasi sec:")) (command "move" l1 "" p1 p2"") (command "move" l2 "" p2 p1 "")) Bu arada miyatu lispini editledeğim için kusura bakma, neticede kodları sen yazdın. fox (20.11.2008 13:10 GMT)

22.11.2008 00:15 43668	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
Alıntı fox : ahanda kodu editledim kullanıcı mesajıda yok terpride yok:) Kod: (defun c:yd() (alert "\nİlk nesne grubunu seçin:") (setq l1 (ssget)) (setq p1 (getpoint "\n ikinci nesne grubu icin referans noktasi sec:")) (alert "\nİkinci nesne grubunu seçin:") (setq l2 (ssget)) (setq p2 (getpoint "\n birinci nesne grubu icin referans noktasi sec:")) (command "move" l1 "" p1 p2"") (command "move" l2 "" p2 p1 "")) Bu arada miyatu lispini editledeğim için kusura bakma, neticede kodları sen yazdın. iide benim yaptığımdan farklı bişey olmamış ki bu daha uzun olmuş lisp yazmanın amacı işlemleri kısaltmaktır... yinede başarılı bir editleme olmuş... benim yazdığım tüm lispleri istediğin gibi editleyebilirsin... başkalarının kullanmasını istemesem kimseyle paylaşmam... benim en sinir olduğum şey bilgi saklamaktır ama saklamak isteyenede saygı gösteririm... Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

22.11.2008 06:20 43671	fox Kıdemli Uzman 236 ileti
sadece sorduğum kısmı yani terpriyi kaldırdım onun yerine alerti kullandım.

24.11.2008 08:36 43737	blackhole Yeni üye 54 ileti projeci istanbul
birde buna nesneleri değiştiriyoruzda hizalama yapsak move la align değil ama nesneleri aynı hizata alıcak ilk seçtiğim nesnenin hizasına ikinci nesneyi alsın:)

24.11.2008 08:46 43738	fox Kıdemli Uzman 236 ileti
Kod: (defun c:yd() (alert "\nİlk nesne grubunu seçin:") (setq l1 (ssget)) (setq p1 (getpoint "\n ikinci nesne grubu icin referans noktasi sec:")) (alert "\nİkinci nesne grubunu seçin:") (setq l2 (ssget)) (setq p2 (getpoint "\n birinci nesne grubu icin referans noktasi sec:")) (setq p3 (list (car p1) (cadr p2))) (command "move" l1 "" p1 p2"") (command "move" l2 "" p2 p3 "")) böyle bişey mi?

24.11.2008 09:35 43741	miyatu Kıdemli Uzman 142 ileti Tekniker ISTANBUL
Alıntı blackhole : birde buna nesneleri değiştiriyoruzda hizalama yapsak move la align değil ama nesneleri aynı hizata alıcak ilk seçtiğim nesnenin hizasına ikinci nesneyi alsın:) x temi hizalama istiyorsun yoksa y demi yoksa her ikisinde mi ona gore bi calisma yapayim Kendini gelistirmeyen insanlar, bildiklerini paylasmaya korkarlar...

> 1 < [2]

Sonraki Sayfa