Lisp istekleri | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 433, Üye: 3
EwreBulut, msibel2024, sonerix

Detaylar »

Forumlar > AutoLISP > Lisp istekleri

Bu başlığı inceleyenler : 13 ziyaretçi, 1 üye : sonerix

İleti	Yazar
14.06.2023 13:23 90360	alisezgin Girişimci 22 ileti mühendis Ankara
ilginiz için teşekkürler ama talebim PLİNE için , linkteki line için yazılmış bir komut

15.06.2023 05:53 90362	BLack\|E Kıdemli Uzman 151 ileti Kıdemli Teknik Ressam ANKARA
Herkese Merhaba, üst üste iki adet çizgilerim var bu çizgilerin rengi cyan ve red. (başka renk olamaz) bu iki renkten sadece cyan olanlarını silmek istiyorum. Not olarak ilave etmek isterim üst üste olmayan cyan renginde çizgilerde mevcut o yüzden filter seçeneği falan işe yaramıyor, özellikle üst üste gelen çizgilerin içerisinde olması gerek bu cyan renklerin. Yardımlarınız önemli teşekkürler BLack\|E (15.06.2023 06:10 GMT) Ertan K Kıdemli Teknik Ressam

15.06.2023 11:47 90363	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Alıntı BLack\|E : Kod: (defun c:komut (/) (rengi "red" olan cizgileri sec.) (donguye basla (ilk cizginin bas ve son noktalarini alip basi ve sonu bu koordinatlarda, rengide "cyan" olan cizgileri sec.) (donguye basla (sil) ) ) ) (prin1) )
BLack\|E
01.08.2023 12:32 90386	selcukkpr Girişimci 10 ileti İnşaat Mühendisliği Ankara
Herkese merhaba, Arkadaşlar ben Özbekistanda çalışıyorum. Biliyorsunuz burada projeler Rusça. Türkiye'den gelen projelerde MTEXT lerin fontları wturkce olarak kalmış. Umarım alttaki resimleri doğru yükleyebilmişimdir. Göreceğiniz üzere wturkce fontu kiril alfabesi ile uyuşmuyor saçma sapan şekiller semboller ortaya çıkıyor. Teker teker hepsini bulup içerisine girip başka bir fonta getirmem gerekiyor. Bunun kolay bir yolu var mıdır? STYLE değil Font. Teşekkür ederim. selcukkpr (05.08.2023 03:25 GMT)

15.08.2023 04:43 90407	mttlp Kıdemli Uzman 184 ileti Makine mühendisi ankara
Hepsini seçersin sonra style propertiues menüsünden değiştirirmişim sonrada yası yüksekliğini ayarlarsın Size özel gelişmiş arayüzlerle yazılımlar yapılır. C#, Vb, .Net, python, Revit, Autocad, Autolisp ve Visuallisp yazılım.

19.08.2023 08:14 90431	alisezgin Girişimci 22 ileti mühendis Ankara
merhaba arkadaşlar bir sorum olacak : 100 farklı plinem var , hepsi farklı layerlarda ve hepsinin rengi farklı (ByLayer) , bunların tamamını tek layer yapacağım(matchprop) lakin renkleri de değişiyor. renkler değişmeden layer değiştirme şansım var mıdır? teşekkürler

19.08.2023 17:30 90432	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Alıntı alisezgin : Kod: (defun c:qw (/ dc ss ns i s0) (vl-load-com) (if (and (setq dc (vla-get-ActiveDocument (vlax-get-acad-object)) ss (ssget '((0 . "LwPolyline")))) (setq ns (ssget ":S"))) (progn (vla-StartUndomark dc) (repeat (setq i (sslength ss)) (setq i (1- i) s0 (vlax-ename->vla-object (ssname ss i))) (mapcar '(lambda(a b) (vl-catch-all-apply 'vlax-put (list s0 a b))) '(Layer Color) (list (vla-get-Layer (vlax-ename->vla-object (ssname ns 0))) (vla-get-Color (vla-Item (vla-get-Layers dc) (vla-get-Layer s0)))))) (vla-EndUndomark dc) ) ) (prin1) )
halilozcakir
11.09.2023 11:54 90461	staluer Girişimci 2 ileti Teknik Eleman İstanbul
merhaba, polyline çizginin üstüne çizgi uzunluğunu yazacak bir lips arıyorum. Ama şöyle ayrıntılar var. Çizgi uzunluğuna +30 ekleyip 10luk olarak yukarı yuvarlayacak. Örnek: Çizgi Uzunluğu 96,54 ise 96,54+30=126,54 değerini 130 olarak yazacak. Bir de LAYER adını başa yazarak araya "/" işareti koyacak Örnek: LYR-A / 130 şeklinde Böyle bir lips mümkün müdür? Teşekkürler.

11.09.2023 15:29 90462	mttlp Kıdemli Uzman 184 ileti Makine mühendisi ankara
Alıntı staluer : Özel lisp yapılır mümkündür istediğin Özelden yazarsan yapabilirim merhaba, polyline çizginin üstüne çizgi uzunluğunu yazacak bir lips arıyorum. Ama şöyle ayrıntılar var. Çizgi uzunluğuna +30 ekleyip 10luk olarak yukarı yuvarlayacak. Örnek: Çizgi Uzunluğu 96,54 ise 96,54+30=126,54 değerini 130 olarak yazacak. Bir de LAYER adını başa yazarak araya "/" işareti koyacak Örnek: LYR-A / 130 şeklinde Böyle bir lips mümkün müdür? Teşekkürler. Size özel gelişmiş arayüzlerle yazılımlar yapılır. C#, Vb, .Net, python, Revit, Autocad, Autolisp ve Visuallisp yazılım.

14.10.2023 12:32 90522	atlas6336 Girişimci 2 ileti
Merhabalar benim elimde şöyle bir proje var. Projedeki düğüm numaralarını ve ara mesafeleri excele aktarmak istiyorum. örneğin 1360 ila 1301 düğüm numaraları arasındaki 69.28 olan mesafeyi autocad den seçerek excele A B C 1360 69.28 1301 bu şekilde excele aktarmak istiyorum. Diğer bir ara mesafede iste alt satırdan devam etmesi gerekiyor ve excele aktardığım mesafelerde boyalı şekilde olursa ya da bir katmanda toplanırsa daha iyi olur.

14.10.2023 17:44 90523	mttlp Kıdemli Uzman 184 ileti Makine mühendisi ankara
Alıntı atlas6336 : Ücretli olarak yapabilirim mesaj atarsan Merhabalar benim elimde şöyle bir proje var. Projedeki düğüm numaralarını ve ara mesafeleri excele aktarmak istiyorum. örneğin 1360 ila 1301 düğüm numaraları arasındaki 69.28 olan mesafeyi autocad den seçerek excele A B C 1360 69.28 1301 bu şekilde excele aktarmak istiyorum. Diğer bir ara mesafede iste alt satırdan devam etmesi gerekiyor ve excele aktardığım mesafelerde boyalı şekilde olursa ya da bir katmanda toplanırsa daha iyi olur. Size özel gelişmiş arayüzlerle yazılımlar yapılır. C#, Vb, .Net, python, Revit, Autocad, Autolisp ve Visuallisp yazılım.

23.10.2023 10:57 90527	hasatan06 Girişimci 8 ileti mimar ankara
Merhaba arkadaşlar. Şöyle bir lispe ihtiyacım var. Çizim içindeki seçtiğim objeleri orjinal koordinatında farklı kaydetmek istiyorum. Teker teker seçerek yeni sayfaya orj koordinatta kopyalayıp kaydediyorum. Bu işlemi hızlandırmak için söylediğim gibi bir lisp varmı? Teşekkürler

23.10.2023 17:09 90528	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Alıntı hasatan06 : Kod: ;**Secilen nesneleri olusturulan klasore ; WBlock olarak save eder..** (defun c:qw (/ dc sl n ss dr i ns) (vl-load-com) (if (and (setq dc (vla-get-ActiveDocument (vlax-get-acad-object)) sl (vla-get-SelectionSets dc) n 0 ss (ssget)) (setq dr (getfiled "WBlock" "" "" 9))) (progn (vl-mkdir dr) (repeat (setq i (sslength ss)) (setq i (1- i) ns (vla-Add sl "S") n (1+ n)) (vlax-invoke ns 'AddItems (list (vlax-ename->vla-object (ssname ss i)))) (vla-WBlock dc (strcat dr "/" (itoa n) ".dwg") (vla-Item sl "S")) (vla-Delete ns) ) ) ) (prin1) )
ehya, halilozcakir, hasatan06
25.10.2023 11:42 90530	hasatan06 Girişimci 8 ileti mimar ankara
teşekkürler Alıntı alumina : alumina (25.10.2023 12:27 GMT)

06.12.2023 14:53 90558	hamdiatay Girişimci 6 ileti inşaat mühendisi kayseri
çizimde seçilen rectangle en ve boy larını dosyaya yazdırmak istiyorum. isim,kısa kenar,uzun kenar formatında cvs dosyasına nasıl yazdırabilirim.

18.01.2024 21:37 90591	brazor58 Girişimci 4 ileti
[img]öncelikle herkese merhaba yanyana birleşik geometrik şekillerim var. ben bunların herbirini boundray komutuyla öncelikle polyline haline getiriyorum. daha sonra geometrik şekillerimin merkezine doğru 0.75 mm ofsetliyorum tek tek (yani iki geometrik şekilimin arasındaki mesafe 1.5 mm oluyor). Daha sonra bu geometrik cisimlerimin birleştiği yüzeylerden birbirlerine vağlıyorum. Eğer 10 cm ve üzerindeyse (yüzeylerin birbirine bakan çizgileri) bunları 3 noktadan birleştiriyorum. 1. birleşim çizginin başlangıç noktasından merkeze doğru giderken 5mm ilerleyip 5mm bağlanacak şekilde. 2.birleşim tam merkezde 5mm bağlanacak şekilde 3. birleşimde çizginin bitiş noktasından 5 mm merkeze doğru ilerledikten sonra 5mm birleşecek şekilde. eğer 10cm altındaysa çizgibunu 2 yerden birbirine bağlayacağım. bunda merkezden bağlamayacağım yanlızca daha deminki gibi köşelerden ama sadece. eğer 2.5 cm nin altındaysa karşılıklı çizgiler bunuda yanlızca merkezden 6mm le bağlayabileceğim bir lispe ihtiyacım var. bide eğer yapabilirseniz ben lispin üzerinde o ölçülerle yeri geldiğinde değişiklik yapabilmem için ufak notlar ekleyebilir misiniz. Biraz karmaşık geldiyse fotoğraflarlada açıklayabilirim. eğer yapabilirseniz size çok ama çok minnettar kalacağım.

19.01.2024 04:29 90592	mttlp Kıdemli Uzman 184 ileti Makine mühendisi ankara
Yapılır uğraşmak lazım özelden yardımcı olabilirim img]öncelikle herkese merhaba yanyana birleşik geometrik şekillerim var. ben bunların herbirini boundray komutuyla öncelikle polyline haline getiriyorum. daha sonra geometrik şekillerimin merkezine doğru 0.75 mm ofsetliyorum tek tek (yani iki geometrik şekilimin arasındaki mesafe 1.5 mm oluyor). Daha sonra bu geometrik cisimlerimin birleştiği yüzeylerden birbirlerine vağlıyorum. Eğer 10 cm ve üzerindeyse (yüzeylerin birbirine bakan çizgileri) bunları 3 noktadan birleştiriyorum. 1. birleşim çizginin başlangıç noktasından merkeze doğru giderken 5mm ilerleyip 5mm bağlanacak şekilde. 2.birleşim tam merkezde 5mm bağlanacak şekilde 3. birleşimde çizginin bitiş noktasından 5 mm merkeze doğru ilerledikten sonra 5mm birleşecek şekilde Yapılır uğraşmak lazım özelden yardımcı olabilirim . eğer 10cm altındaysa çizgibunu 2 yerden birbirine bağlayacağım. bunda merkezden bağlamayacağım yanlızca daha deminki gibi köşelerden ama sadece. eğer 2.5 cm nin altındaysa karşılıklı çizgiler bunuda yanlızca merkezden 6mm le bağlayabileceğim bir lispe ihtiyacım var. bide eğer yapabilirseniz ben lispin üzerinde o ölçülerle yeri geldiğinde değişiklik yapabilmem için ufak notlar ekleyebilir misiniz. Biraz karmaşık geldiyse fotoğraflarlada açıklayabilirim. eğer yapabilirseniz size çok ama çok minnettar kalacağım. Size özel gelişmiş arayüzlerle yazılımlar yapılır. C#, Vb, .Net, python, Revit, Autocad, Autolisp ve Visuallisp yazılım.

19.01.2024 11:59 90594	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Alıntı brazor58 : Bu resmin .dwg dosyasini paylasir misiniz.
ProhibiT
21.01.2024 10:47 90597	brazor58 Girişimci 4 ileti
Alıntı Alıntı brazor58 : [img]öncelikle herkese merhaba yanyana birleşik geometrik şekillerim var. ben bunların herbirini boundray komutuyla öncelikle polyline haline getiriyorum. daha sonra geometrik şekillerimin merkezine doğru 0.75 mm ofsetliyorum tek tek (yani iki geometrik şekilimin arasındaki mesafe 1.5 mm oluyor). Daha sonra bu geometrik cisimlerimin birleştiği yüzeylerden birbirlerine vağlıyorum. Eğer 10 cm ve üzerindeyse (yüzeylerin birbirine bakan çizgileri) bunları 3 noktadan birleştiriyorum. 1. birleşim çizginin başlangıç noktasından merkeze doğru giderken 5mm ilerleyip 5mm bağlanacak şekilde. 2.birleşim tam merkezde 5mm bağlanacak şekilde 3. birleşimde çizginin bitiş noktasından 5 mm merkeze doğru ilerledikten sonra 5mm birleşecek şekilde. eğer 10cm altındaysa çizgibunu 2 yerden birbirine bağlayacağım. bunda merkezden bağlamayacağım yanlızca daha deminki gibi köşelerden ama sadece. eğer 2.5 cm nin altındaysa karşılıklı çizgiler bunuda yanlızca merkezden 6mm le bağlayabileceğim bir lispe ihtiyacım var. bide eğer yapabilirseniz ben lispin üzerinde o ölçülerle yeri geldiğinde değişiklik yapabilmem için ufak notlar ekleyebilir misiniz. Biraz karmaşık geldiyse fotoğraflarlada açıklayabilirim. eğer yapabilirseniz size çok ama çok minnettar kalacağım. Her yazan üçret karşılığında yazıyor. Yardımcı olabilecek yok sanırım ücretsizbi şekilde.

22.01.2024 06:33 90600	ehya Yönetici 3555 ileti Teknik Ressam Ankara
brazor58 Demek ki biraz zor ve zahmetli bir iş ki, ücret isteniyor. Neden ücretsiz yazılmasını bekliyorsunuz? Sizler bu işten bu tür yazılımlarla vakit kazanarak kazanç elde ediyorsanız, bu işi yapanların da aynı düşüncede olması gayet doğal. Lütfen emeğe saygı gösterelim....
brazor58

Önceki Sayfa

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] [25] [30] [35] [40] [45] [50] [55] [60] [65] [70] [75] [80] [85] [90] [95] > 99 < [100]

Sonraki Sayfa