Aynı isimli blokları tek seferde seçmek, kopyalamak veya taşımak

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 683, Üye: 7
ehya, hsyn7, IBRAHIM-CNGZ, kgokgun944, mttlp, seneca, Travaci

Detaylar »

Forumlar > AutoCAD > Aynı isimli blokları tek seferde seçmek, kopyalamak veya taşımak

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

İleti	Yazar
03.11.2015 11:15 82342	Travaci Editör 2394 ileti Teknik Ressam Konstantinopol
Can kod da hata varmı bilmiyorum ama command kullanırken osnap i kapamalısın.

03.11.2015 11:24 82343	CAN123 Kıdemli Uzman 120 ileti Teknik Ressam ANKARA
Travaci merhaba, Kapattım ancak aynı sorun devam ediyor. Kod da hata var.

03.11.2015 13:19 82345	Travaci Editör 2394 ileti Teknik Ressam Konstantinopol
Can bunu sen bulursun yaa. Tek tek kodlarına bakarsan anlarsın, bizde farklı birşey yapmıcaz : ) Biraz ara ver kontrol et. Biryerden biryere giderken yanlış açıyla gitmişssindir. Ya acıyı katmamıssındır yada deltasını alırken acılı durumu dusunmemıssındır. Ikı durumuda kontrol et.

03.11.2015 14:35 82346	CAN123 Kıdemli Uzman 120 ileti Teknik Ressam ANKARA
Travaci selam, Yapamadığım şey üçüncü noktadan ilk iki nokta arasındaki hatta olan dik ölçüyü alamamak. Nasıl alabiliriz?

03.11.2015 15:08 82347	Travaci Editör 2394 ileti Teknik Ressam Konstantinopol
Visual lisp ile daha kolay yolla yapılabiliyor şimdilik bu aklında olsun. Autolisp ile ; 1. ve 2. nokta arasına hayali bir çizgi çiz. 3. noktadan bu cızgıye (hangi açıyla gidiceğini zaten bulabilirsin) başka bir çizgi çiziceksin. Burada inters komutunu kullanıp kesiştiği yerden ölçünü alıcaksın. İnters ile ilgili sitede örnekler bulabilirsin. Edit: İki örneğede burdan bakabilirsin. Linkleri görebilmek için ÜYE olmalısınız.

17.12.2015 14:09 82504	seboli61 Kıdemli Uzman 156 ileti Teknik Ressam istanbul
Kod: (defun c:dd (/) (setvar "cmdecho" 0) (setq osmd (getvar "osmode")) (setq lyr (getvar "clayer")) (if (not (tblsearch "Layer" "YT-ETKİALANI-2" )) (command "layer" "N" "YT-ETKİALANI-2" "LW" "0.2" "YT-ETKİALANI-2" "LT" "CONTINUOUS" "YT-ETKİALANI-2" "C" "7" "YT-ETKİALANI-2" "")) (while (= ol nil) (setq ol (getreal "\nÖlçek Değeri Giriniz 1/100 için 100 gibi....")))(princ) (setq nkt1 (getpoint "\nBirleşimNoktasınıSeç:")) (setvar "osmode" 0) (setvar "clayer" "YT-ETKİALANI-2") (command "donut" 0 (* ol 0.075) nkt1 ) (setvar "osmode" osmd) (setvar "clayer" lyr) (command "_.undo" "e") (setvar "cmdecho" 1) ) Yukarıda ki ufak bir lispim de komut çalıştığında ilk donutum YT-ETKİALANI-2 layerdan bir donut koyuyor. 2. Defa koymak istediğimde Current Layer'ım ne ise ondan koymaya devam ediyorum. Benim istediğim komut çalışmaya devam ederken 2. defa da koymak istediğim layerdan olsun.

17.12.2015 15:27 82505	Travaci Editör 2394 ileti Teknik Ressam Konstantinopol
Kod: (vla-put-layer (vlax-ename->vla-object (entlast)) "YT-ETKİALANI-2") ile son çizilen nesnenin layerını değiştirebilirsin. Hal böyle olunca Kod: (setq lyr (getvar "clayer")) (setvar "clayer" "YT-ETKİALANI-2") (setvar "clayer" lyr) bunlara gerek kalmıyor. Diğer dikkat ediceğimiz kısım Layer açma ve undo yu noktayı seçtikten sonra başlatırsak kullanıcı komutu çalıştırıp escape yaptığında ne undo begin olucak nede layer açılmış olucak. Diğer yazım ve mantık hataları da ileride yaptıkça düzelicektir...

16.01.2016 16:31 82709	mak7510 Girişimci 3 ileti mühendis istanbul
Seçilen objelerin alanlarını ve toplam alanı hesaplayıp yazan Lisp yükledim ancak autolisp error bad argument type streamp nil hatası veriyor ne yapmam gerekiyor

16.01.2016 17:02 82710	alumina Editör 769 ileti Insaat Muhendisi Istanbul
yuklediginiz lispi paylasirmisiniz

17.01.2016 12:05 82716	mak7510 Girişimci 3 ileti mühendis istanbul
sitede mevcut Seçilen objelerin alanlarını ve toplam alanı hesaplayıp yazan Lisp isminde aln kısa kotlu yüklemeye calıştım ancak olmadı

17.01.2016 16:05 82717	mak7510 Girişimci 3 ileti mühendis istanbul
Linkleri görebilmek için ÜYE olmalısınız.

26.01.2016 00:00 82820	osmantaylan Girişimci 3 ileti İnşaat Teknikeri Aksaray
Herkese merhaba ; öncelikle cizimokulu.com ' a bu güzel site için ve yardımcı arkadaşlarada emekleri için teşekkürler. AutoLisp için henüz yeniyim pek fazla bir bilgi sahibi değilim araştırıyorum ancak şu hususda yardımınıza ihtiyacım var Autocad 2015 kullanıyorum indirmiş olduğum bazı lispleri denemeye çalışıyorum ancak başarılı olamıyorum acaba programın sürümünden kaynaklımıdır yada lisp kodlamaları daha önceki sürümlerde yapıldığı için bu sürümde çalışmazmı dosyaları gerken yere atarak Appload kısmındaki tüm işlemleri sırasıyla yapıyorum ama Autocad'i her açtığımda eklediğim lisp dosyalarının adını içeren bir pencere geliyor ve '' Load'' '' Dont Load'' '' Cancel '' seçenekleri çıkıyor.Buna rağmen Komutları program tanıyor ama işlevleri gerçekleştirmiyor Ne yapmam gerekmektedir Yardımlarınız için şimdiden teşekkür ederim

26.01.2016 00:00 82821	osmantaylan Girişimci 3 ileti İnşaat Teknikeri Aksaray
Herkese merhaba ; öncelikle cizimokulu.com ' a bu güzel site için ve yardımcı arkadaşlarada emekleri için teşekkürler. AutoLisp için henüz yeniyim pek fazla bir bilgi sahibi değilim araştırıyorum ancak şu hususda yardımınıza ihtiyacım var Autocad 2015 kullanıyorum indirmiş olduğum bazı lispleri denemeye çalışıyorum ancak başarılı olamıyorum acaba programın sürümünden kaynaklımıdır yada lisp kodlamaları daha önceki sürümlerde yapıldığı için bu sürümde çalışmazmı dosyaları gerken yere atarak Appload kısmındaki tüm işlemleri sırasıyla yapıyorum ama Autocad'i her açtığımda eklediğim lisp dosyalarının adını içeren bir pencere geliyor ve '' Load'' '' Dont Load'' '' Cancel '' seçenekleri çıkıyor.Buna rağmen Komutları program tanıyor ama işlevleri gerçekleştirmiyor Ne yapmam gerekmektedir Yardımlarınız için şimdiden teşekkür ederim

26.01.2016 06:57 82823	Travaci Editör 2394 ileti Teknik Ressam Konstantinopol
Linkleri görebilmek için ÜYE olmalısınız. Linkleri görebilmek için ÜYE olmalısınız. Linkleri görebilmek için ÜYE olmalısınız. Linkleri görebilmek için ÜYE olmalısınız.

03.02.2016 08:18 82871	heisenberg33 Girişimci 4 ileti Topoğraf mersin
Iyi gunler, elimde bulunan karelajdaki kotlari belirledigim oranda arttirmak istiyorum. Ornegin : 2189.500'e + 0.350 m ilave etmek istiyorim. Karelajda ortalama 1000 adet kot var. Bu islemle alakali elinde lisp olan var mi acaba?

03.02.2016 12:15 82884	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Alıntı heisenberg33 : Kod: (defun c:kt (/ ss vl dz dc i sy en st) (vl-load-com) (if (setq ss (ssget '((0 . "*text")))) (if (setq dz (getvar 'dimzin) vl (getreal "\nEnter value:")) (progn (vla-startundomark (setq dc (vla-get-activedocument (vlax-get-acad-object)))) (setvar 'dimzin 0) (repeat (setq i (sslength ss)) (if (numberp (distof (setq sy (cdr (assoc 1 (setq en (entget (ssname ss (setq i (1- i)))))))))) (entmod (subst (cons 1 (if (>= (setq st (+ (atof sy) vl)) 0) (strcat "+" (rtos st 2 3)) (rtos st 2 3))) (assoc 1 en) en)))) (setvar 'dimzin dz) (vla-endundomark dc) ) ) ) (princ) )

03.02.2016 12:46 82886	Travaci Editör 2394 ileti Teknik Ressam Konstantinopol
heisenberg33 Kod: (defun c:adv (/ ss dz cp n ns) (vl-load-com) (if (setq ss (ssget (list (cons 0 "*text")))) (if (setq dz (getvar "dimzin") cp (getdist "\nAdd value: ")) (progn (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (setvar "dimzin" 0) (repeat (setq n (sslength ss)) (setq ns (vlax-ename->vla-object (ssname ss (setq n (1- n))))) (if (distof (vla-get-TextString ns)) (vla-put-TextString ns (rtos (+ (atof (vla-get-TextString ns)) cp) 2 3)))) (setvar "dimzin" dz) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) ) ) ) (princ) )

03.02.2016 14:53 82888	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Alıntı Travaci : Hocam elinize saglik cok guzel bir lisp olmus ama kotlarda "+" isareti cikmiyor. Usenmissiniz sanki :D

03.02.2016 15:07 82889	Travaci Editör 2394 ileti Teknik Ressam Konstantinopol
alumina Hoca, biz klavuza göre hareket ediyoruz. :wink

04.02.2016 07:53 82894	ehya Yönetici 3555 ileti Teknik Ressam Ankara
Arkadaşlar, bu konu "Autolisp ile ilgili sorular" bölümüdür. Autolisp istek yeri değildir. Bu aşamadan sonra lisp istekleri bu konu altından silinecektir. Yönetici arkadaşların da bu konuya hassasiyet göstermesini rica ediyorum.

Önceki Sayfa

[1] [2] > 3 < [4] [5] [6]

Sonraki Sayfa