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ı
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)
)

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ı
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)
)

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ı
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.

10.10.2023 05:45    

alisezgin
şeflerim merhaba ,

bir lisp isteğim olacak, konusu şu ; birden fazla seçtiğim textlerin base noktasına block çaktırmak istiyorum . çakılacak bloğun ismini soracak onu alıp seçililerin tamamına çakacak. şimdiden teşekkürler.



Linkleri görebilmek için ÜYE olmalısınız.




Linkleri görebilmek için ÜYE olmalısınız.

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ı
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.


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ı
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)
)

24.10.2023 13:19    

alisezgin
Alıntı
alisezgin :
şeflerim merhaba ,
bir lisp isteğim olacak, konusu şu ; birden fazla seçtiğim textlerin base noktasına block çaktırmak istiyorum . çakılacak bloğun ismini soracak onu alıp seçililerin tamamına çakacak. şimdiden teşekkürler.


Linkleri görebilmek için ÜYE olmalısınız.




Linkleri görebilmek için ÜYE olmalısınız.





Şeflerim , varmı yardım edebilecek olan ?

25.10.2023 11:42    

hasatan06
teşekkürler
Alıntı
alumina :

alumina (25.10.2023 12:27 GMT)

Ö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 <
Copyright © 2004-2022 SQL: 1.238 saniye - Sorgu: 99 - Ortalama: 0.01251 saniye