Copyright © 2004-2022 SQL: 1.544 saniye - Sorgu: 113 - Ortalama: 0.01367 saniye
14.06.2023 13:23
alisezgin |
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
BLack|E |
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) |
15.06.2023 11:47
alumina |
Alıntı 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) )
|
01.08.2023 12:32
selcukkpr |
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
mttlp |
Hepsini seçersin sonra style propertiues menüsünden değiştirirmişim sonrada yası yüksekliğini ayarlarsın
|
19.08.2023 08:14
alisezgin |
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
alumina |
Alıntı 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) )
|
11.09.2023 11:54
staluer |
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
mttlp |
Alıntı
|
14.10.2023 12:32
atlas6336 |
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
mttlp |
Alıntı
|
23.10.2023 10:57
hasatan06 |
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
alumina |
Alıntı 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) )
|
25.10.2023 11:42
hasatan06 |
teşekkürler
Alıntı alumina (25.10.2023 12:27 GMT) |
06.12.2023 14:53
hamdiatay |
ç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
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.
|
19.01.2024 04:29
mttlp |
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.
|
19.01.2024 11:59
alumina |
Alıntı Bu resmin .dwg dosyasini paylasir misiniz.
|
21.01.2024 10:47
brazor58 |
Alıntı Alıntı Her yazan üçret karşılığında yazıyor. Yardımcı olabilecek yok sanırım ücretsizbi şekilde.
|
ehya |
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....
|