31.10.2013 09:25    

umittaser
Merhaba arkadaşlar, yapmak istediğim lisp %%138 (fi) yazısının önündeki yazıların silinmesi ,seçtiğim yazıların karakterinin wtürkçe stiline gelmesi ve ƒ karakterinin %%138 ile değişmesi. Buna benzer bir lisp varsa onuda değiştirebilirim veya elinizde böyle bir lisp var mı acaba? yardımlarınız için teşekkürler..

31.10.2013 10:03    

Travaci
Alıntı
umittaser :
Bir dosya paylaşırsanız bakabilirim.

31.10.2013 11:03    

umittaser
Alıntı
Travaci :
Bir dosya paylaşırsanız bakabilirim.



Ekledim, saın Travaci. Ham olarak bir sta çıktısı bu isteklerim zaten yukarıda belliydi. Saygılarımla.

301018-kontrol.dwg

31.10.2013 11:08    

Travaci
Adetlerimi sildirmek istiyorsunuz ?
Birde içinde wtürkçe sitili olan dosyayla paylaşın.

31.10.2013 11:12    

umittaser
Evet adetleri sildirmek istiyorum. SOnjuçta ilk gönderdiğim dosya 2. gönderdiğim gibi olsun istiyorum.


301018-new-block.dwg

31.10.2013 21:00    

Travaci
umittaser
İstediğim lisp ƒ yazısının önündeki yazıların silinmesi "adet kısmı" ve ƒ karakterinin %%138 ile değişmesi...

Kod:

(defun c:Adelf (/ got ent n nme)
  (setq got (ssget (list (cons 0 "text"))) n 0)
  (setvar "cmdecho" 0) (vl-load-com) (command "_.undo" "be")
  (if got (repeat (sslength got)
     (setq ent (entget (ssname got n))
           nme (cdr (assoc 1 ent)) n (1+ n))
     (if (vl-string-search "ƒ" nme)
         (entmod (subst (cons 1 (strcat "%%138" (substr nme
            (+ 2 (vl-string-position (ascii "ƒ") nme)))))
            (assoc 1 ent) ent)))))
  (command "_.undo" "end") (princ)
) (terpri) (write-line "Hazırlayan: Erkan Travaci")

Travaci (15.08.2014 12:58 GMT)

01.11.2013 08:34    

umittaser
Teşekkür ederim ellerinize sağlık :)

04.11.2013 08:38    

onder55
Arkadaşlar merhaba öncelikle böyle bir siteyi kuranlara ve emeği geçen herkese çok teşekkürler.
şöyle bir lispe ihtiyacımız var bir polyline düşünün yay ve doğrulardan oluşan ve bu polyline üzerinde pointler var.
Bu bu pointlerin yakalama noktasıyla aynı yerde olacak z değerleri yazılacak yazı açısı doğruya yada yaya dik olacak şekilde olacak ayrıca yazı yükseklği kullanıcı tarafından belirlenecek...Lisp yazan arkadaşlar çok mu saçma birşey istiyorum bilmiyorum ama eğer bu lispi yazarsanın siteyi takip eden haritacılar size minnettar kalacaktır.Şimdiden teşekkürler...

06.11.2013 12:11    

boratensa
Cevap alamadığım için yineliyorum.

Benim çok basit bir isteğim olacak.
bir polyline ı ya da polyline grubunu seçtiğimde bu polylineları aralıkları ve boylarını kendim belirleyebileceğim kesiklik çizgilere çeviren ya da ayrı bir layerda polylinelar üzerine kesikli çizgiler atabileceğim bir lisp ricasında bulunabilir miyim?

Örnek olarak: 10birim uzunluğunda bir polyline ın üzerine 1 er birim uzunluğunda ve belirli aralıklarda line lar atıp bu line nesnelerinin seçtiğim layerın altında olmasını sağlamak istiyorum.

Yardım edebilecek arkadaşlarımıza şimdiden teşekkür ediyorum.

06.11.2013 12:52    

Travaci
boratensa


1 birimlik çizgini block haline getirip measure komutunu kullanabilirsin.

07.11.2013 06:27    

ynskalkan
Merhabalar , acil olarak bir lisp lazim ve burdaki bir tanesini denedim sorunum suki Netcad 5.2 de autocad noktalari sirali attigim zaman netcadde de sirali nokta olarak tanimliyor problem yok fakat bunu lisp ile daha hizli hale getirmem gerek Civil 3d kullanan arkadaslar bilirler auto nokta olusturma var ve kiriklara atiyor bana bunun gibi bir lisp lazim saat yonunde nokta adi verecek sirasi ile nokta aticak ornegin denedigim lispte line ile cizilmis bir kare uzerinde ust ve alt line i tikladigim zaman tamam problem yok 4 tane noktam olmus oluyor ama saat yonunde degil bir duzen cercevesinde olursa en azindan sistematik bundan sonrasi icin devam edebilicem yardimlariniz icin simdiden cok tesekkur ederim.

07.11.2013 07:54    

alirizasahin
Değerli arkadaşlar, sıhhi tesisatta kullanılan PVC boru çizimi yapan bir lispe ihtiyaç duyuyorum, yardımcı olacak var mı acaba?

07.11.2013 09:13    

miyatu
Alıntı
alirizasahin :
Değerli arkadaşlar, sıhhi tesisatta kullanılan PVC boru çizimi yapan bir lispe ihtiyaç duyuyorum, yardımcı olacak var mı acaba?



pvc borunun neyini cizecek, nasil cizecek vs ...

07.11.2013 09:52    

alirizasahin
PVC borulara belirli yerlerde fittings ekleyen (aşağıda verdiğim linkteki parçalar) ve bu fittinglere uygun boru çizimi yapan lispi kasdetmiştir.



22132-pvc-fittings.dwg

07.11.2013 12:29    

boratensa
Alıntı
Travaci :
boratensa


1 birimlik çizgini block haline getirip measure komutunu kullanabilirsin.



dediğiniz durum isteğime tam olarak cevap vermiyor. Measure ile sadece 1 obje seçilebiliyor. ve yapacağım işlem çizgi üzerine el ile çizmekten daha az zahmetli değil. Bir de align ı tam olarak yapamıyor.

Benim istediğim toplu olarak seçtiğim çizgilerin üzerine baş ve sonuna 1er tane olmak üzere aralık değerini verebileceğim küçük çizgiler atmak. Ya da var olan çizgileri hidden line tarzı kesikli çizgiye çevirebilmek. Çizim içerisinde onlarca adet farklı boyda ve farklı pozisyonda olan çizgileri bahsettiğiniz yöntem ile bölmem imkansız.
yine de teşekkür ederim ilgilendiğiniz için.

08.11.2013 09:01    

miyatu
Alıntı
alirizasahin :
PVC borulara belirli yerlerde fittings ekleyen (aşağıda verdiğim linkteki parçalar) ve bu fittinglere uygun boru çizimi yapan lispi kasdetmiştir.



22132-pvc-fittings.dwg




Autocad mep kullanmanizi tavsiye ediyorum.

Istediginiz lispi yazmak tabiki mumkun ama cok zahmetli bir is.

15.11.2013 08:14    

boratensa
Tamam galiba biraz zor birşey istedim ki cevap gelmedi.
peki daha basit birşey isteyeyim o zaman.
Seçtiğim çizgilerin boyları belirlediğim değer ile başlangıçlarını sabit tutarak değiştirebileceğim bir lisp.

örneğin farklı uzunluklarda 10 adet çizgi seçtim ve bu 10 adet çizginin uzunluğunun da 5 birim olarak aynı anda değiştiriyim. çizgilerin başlangıç noktaları sabit kalacak şekilde kısaltması ya da uzatması lazım bu önemli.

15.11.2013 12:32    

Harbi65
Alıntı
boratensa :
örneğin farklı uzunluklarda 10 adet çizgi seçtim ve bu 10 adet çizginin uzunluğunun da 5 birim olarak aynı anda değiştiriyim. çizgilerin başlangıç noktaları sabit kalacak şekilde kısaltması ya da uzatması lazım bu önemli.



Kod:

(defun c:CZBOY (/ Grp:Sec Yn:Boy Cz:tk Cz:dt Cz:ang Cz:11 i)
  (setvar "CMDECHO" 0)
  (command "UNDO" "GROUP")
  (if
    (setq Grp:Sec (ssget (list (cons 0 "LINE"))))
    (if
      (setq Yn:Boy (getreal "\n Çizgi boyunu girin:"))
      (progn
        (setq i -1)
        (repeat (sslength Grp:Sec)
          (setq Cz:tk (ssname Grp:Sec (setq i (1+ i))))
          (setq Cz:dt (entget Cz:tk)
                Cz:ang (angle (cdr (assoc 10 Cz:dt)) (cdr (assoc 11 Cz:dt))))
          (setq Cz:11 (polar (cdr (assoc 10 Cz:dt)) Cz:ang Yn:Boy))
          (setq Cz:dt (subst (cons 11 Cz:11) (assoc 11 Cz:dt) Cz:dt))
          (entmod Cz:dt)
          )
        )
      )
    )
  (command "UNDO" "END")
  (setvar "CMDECHO" 0)
  (princ)
  )

15.11.2013 13:35    

asencer
herkese merhaba;
bir lisp e ihtiyacım var.
çizimim de bulunan çok sayıda birbiri ile ilişkisiz olan kapalı polylineları ayrı ayrı bir dosyaya kaydetmek mümkün mü?
biraz daha açıklamam gerekirse; bir dwg dosyasında 200 adet üçgen çizimi var. her biri polyline ve hiçbirisi birbirini kesmiyor.
bir komutla bunları bir klasöre ayrı isimlerde mesela (1 2 3 ..) kaydetmek mümkün mü?
herkese teşekkür ederim.
saygılarımla.

18.11.2013 20:37    

given
Herkese selamlar,

Cizim uzerinde B.B.K. ile baslayan textleri secip bunlarin width factorlerini veya olursa layerlarini da degistirmeye yarayacak bir lispe ihtiyacim var. Simdiden tesekkurler.

Önceki Sayfa [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] [25] [30] [35] [40] [45] > 46 < [50] [55] [60] [65] [70] [75] [80] [85] [90] [95] [100] Sonraki Sayfa
Copyright © 2004-2022 SQL: 2.348 saniye - Sorgu: 98 - Ortalama: 0.02396 saniye