|
28.09.2012 12:31
 Travaci
|
|
Pekde güzel oldu, çok da güzel oldu.
|
|
29.09.2012 04:30
tugrulsahin
|
|
Gunaydın arkadaslar.Benim bir sorum olucaktı yine :) Line cizgileri uzerınde yazan rakamlara gore bır ok cızen(buyukten kucuge gore yada kucukten buyuge dogru) ve bu oku line'ın ortasına yerlestiren şey bir lispmi? yok değil ise nerden yapıyoruz.
Tam olarak anlatabilmem icin kucuk bırde ornek verim;mesela bir pis su hattında,hattın akıs yonunu belırlemek ıcın kullanılan okların kodlara gore otomatık olarak ve duzgun bır sekılde yerlestırlmıs hali.
|
|
02.10.2012 20:48
borakemal
|
|
ProhibiT hocam verdiğiniz bu link silinmiş sanırım tekrar verebilirseniz çok sevinirim saygılar.
Önceki mesajımda bahsettiğim Koordinat Yazma fonksiyonunun güncellenmiş ve geliştirilmiş halini indirmek için tıklayınız. fonksiyonun bu son halinde;
- ondalık basamak sayısını kullanıcı seçer.
- x, y ve z koordinatlarından hangisinin, veya hangilerinin, hangi sırada yazılacağı kullanıcı tarafından belirlenir.
- seçilen koordinat değerleri o anda aktif olan ucs'de yazılırlar.
- nokta seçildikten sonra, koordinat yazıları, çerçeve ve referans çizgisi ekranda belirir, koordinatlar mouse ile sürüklenerek ve görerek yerleştirilir.
|
|
04.10.2012 08:35
ehtiyar
|
|
Iyi gunler soyle bir lisp istegim olacakti. Field komutu ile bir text in icine degisken atiyorum. bu atadigim degiskeni farkli bir textin icine ayni ozellikleri aktarabilecek bir lisp varmidir. yani iki yaziyi birbirine baglamak istiyorum birinin ozelligi degistiginde digerindede aynisini olmasini istiyorum. yardim edebilecek arkadaslar varsa simdiden tesekkur ederim. iyi gunler
|
|
04.10.2012 13:58
 ProhibiT
|
|
Bahsettiğiniz bir Lisp konusu değil aslında.
Bir Field objesi oluşturup, mevcut bir Text'e Field->Object->Content ilişkisiyle bağlarsanız, Field objesini (gerçekte Text veya Mtext Objesidir) Mevcut bir Text objesinin içeriğine bağlamış olursunuz.
Mevcut Text değiştirildiğinde, diğer objenin içeriği updatefield sistem değişkeninizin değerine göre kendiliğinden (ilk regen işleminde) ya da siz update ettiğinizde değişecektir.
|
|
04.10.2012 18:47
given
|
|
Merhaba Prohibit Hocam,
Umarim iyisinizdir. Bir ricam olacakti. Birbirine paralel olan polyline veya line objelerin ortasina, uzunlugu bu cizgiler kadar olan center line cizen bir lisp lazim. Mesela bir borunun uzerine center line cizmek gibi dusunebilirsiniz. Acaba boyle bir sey yapilabilir mi?
Simdiden tesekkurler, iyi calismalar.
|
|
04.10.2012 21:26
ProhibiT
|
|
Merhaba, teşekkür ederim.
Bahsedilen fonksiyon ilk bakışta zor bir şey gibi gelmedi. ilk anda aklıma gelen çözüm yöntemini kısaca yazmak gerekirse;
- Sırasıyla biri birine paralel 2 obje seçilir. (Objelerin biribirine paralelliği kullancını sorumluluğundadır. Fonksiyon içinde paralellik kontrolü uzun ve gereksiz bir işlem olur diye düşünüyorum)
- Objelerden birinin herhangi bir noktasının diğer objeye olan mesafesi bulunur.
- Seçim sırasına göre ilk seçilen obje bulunan ara mesafenin ortasına kopyalanır.
- seçilen objeler Line ise bir çift Line objesinin center line'ı çizilir, objeler polyline ise, veya en kötü ihtimalle ilk seçilen obje polyline ise, ilgili polyline boyunca işlem yapılır.
- Bahsettiğim işlem tam anlamıyla bir offset işlemi olmamakla birlikte ihtiyacı karşılayabilir diye düşündüm.
Bu mantık uygunsa kısa bir fonksiyon yazılabilir.
Kolay gelsin.
|
|
05.10.2012 11:45
given
|
|
Tekrar merhaba hocam,
Bahsettiginiz gibi birbirine paralel olmasi yeterli olacagi gibi bunlarin polyline veya line olmasini dikkate almayabiliriz. Yalniz bilginiz olmasi bakimindan bizim projelerimizde genellikle line calisildigini soylemeliyim.
Ornek vermek gerekirse ;
---------------------------------
--- . --- . --- . --- . --- . ---
---------------------------------
boyle bir seyin isimizi gorecegini dusunuyorum. Umarim degerli vaktinizin bir kismini bu lisp icin ayirabillirsiniz.
Ilginiz icin tekrar tesekkur ederim.
Iyi calismalar,
|
|
05.10.2012 12:18
Travaci
|
|
Yapabilirseniz birden fazla Field'lı text leri, convert field to text yapmak istiyorum. Teşekkürler.
|
|
08.10.2012 03:25
tugrulsahin
|
|
Line cizgileri uzerınde yazan rakamlara gore bır ok cızen(buyukten kucuge gore yada kucukten buyuge dogru) ve bu oku line'ın ortasına yerlestiren şey bir lispmi? yok değil ise nerden yapıyoruz.
Tam olarak anlatabilmem icin kucuk bırde ornek verim;mesela bir pis su hattında,hattın akıs yonunu belırlemek ıcın kullanılan okların kodlara gore otomatık olarak ve duzgun bır sekılde yerlestırlmıs hali.
|
|
08.10.2012 06:53
 ec
|
|
Merhaba;
Bana çok yardımcı olacağını düşündüğüm bir lisp isteğim var. Tabi yapılabilirmi bilemiyorum.
Elektrik projesi çiziyorum. Mimari planları temizlerken tüm bloklar içindeki hatch'leri silmem gerekiyor.
Bazen blok sayısı çok fazla oluyor ve bazı mimarilerde de blok içinde bloklar yer alıyor.
Kısacası çok zaman alıyor. Bir komut ile tüm bloklardaki hatch'leri silebilirmiyiz. Bir diğer isteğim ise plan içinde
bazı blokları silmem gerekiyor. Fakat silmem gereken bloklar diğer blokların içinde yer alabiliyor. Yine bir komut ile işaretlediğim bloğu plandan tümüyle silebilecek bir lisp. İlgilenen arkadaşlara teşekkürler.
ec (08.10.2012 07:35 GMT)
|
|
08.10.2012 08:16
Travaci
|
Kod:
;***** Block Delete *****;
(defun c:Bdel (/)
(setvar "errno" 0)
(setq nnn nil)
(while (= nnn nil)
(setq blk (entsel "\rSilinecek block: "))
(if (= blk nil)
(progn
(if (= (getvar "errno") 7) (progn (setq nnn nil) (princ "\nNesne seçimi yapılmadı.!")))
(if (= (getvar "errno") 52) (progn (setq nnn t) (princ "\nNesne seçimi yapılmadı.!")))
)
(progn
(setq nesne_adi (cdr (assoc 0 (entget (car blk)))))
(if (/= nesne_adi "INSERT") (progn (setq nnn nil) (princ "\nSeçilen nesne blok değil."))
(progn
(setq nnn t)
(setq secim (ssget "x" (list (cons 2 (cdr (assoc 2 (entget (car blk))))))))
(setq say (sslength secim)) (princ "\r") (princ (strcat (itoa say) " Adet block silindi."))
(command "erase" secim "")
)
)
)
)
)
(setq nnn t) (princ)
)
|
|
08.10.2012 19:16
ec
|
|
Tam olarak istediğim lisp olmasa da çok işe yarayacağını sanıyorum.
Teşekkür ederim.
|
|
09.10.2012 03:41
 talacakoc
|
|
paylaşımlar için teşekkürler
|
|
09.10.2012 12:21
chatluck61
|
|
merhabalar bana enkesit üzerinden seçili alanları birleştirip tarayan ve aynı zamanda toplayıp yazan bir lisp lazım yardımlarınızı bekliyorum kolay gelsin
|
|
12.10.2012 11:57
volkan_25
|
|
yapılabilirmi bilmiyorum ama coklu kopyalama lispi sadece sayı olarak çoklu kopyalamada her kopyalamada 1 er sayı olarak artarak kopyalaya bilen bir lisp yapılabilirmi başlangıç sayısı belilenebilse
|
|
17.10.2012 14:41
fzedeli
|
|
İyi Günler;
Ben uzun zamandır araştırıyorum ama aradığıma benzer bir lisp bulamamıştım bugüne kadar. Bugün bir lispte şimşekler çaktı gibi ama o kadar hakim olmadığımdan emin olamıyorum. Benim yapmak istediğim; seçilen yazıları, kendisine en yakın özellikleri belli olan daire içine yazdırmak.
Yardımcı olabilirsiniz çok sevinicem.
İyi Çalışmalar...
|
|
01.11.2012 12:03
Travaci
|
Alıntı
Travaci :
Yapabilirseniz birden fazla Field'lı text leri, convert field to text yapmak istiyorum. Teşekkürler.
Kendi uğraşlarım sonucu, bazı forumlarıda karıştırarak böyle birşey yaptım.
Kod:
;***** Field İle Bağlanmış Objeleri Text'e Dönüştürür *****;
(defun c:f2t (/ ss bn an ad data)
(SetVar "CmdEcho" 0)
(princ "\nField İle bağlı textleri seçiniz:")
(setq ss (ssget '((0 . "TEXT"))))
(if (= ss nil) (progn (princ "\nSeçim yok..."))
(progn
(setq c 0
adet (sslength ss))
(while (< c adet)
(setq bn (ssname ss c))
(setq ad (entget bn))
(setq data (cdr (assoc 1 ad)))
(entmod (list (assoc -1 ad) (cons 1 "")))
(entmod (list (assoc -1 ad) (cons 1 data)))
(setq c (+ c 1))
)
)
)
)
Seçim listesine sadece field ile bağlı olan textleri nasıl süzgeçliyebilirim.
|
|
06.11.2012 04:36
kesinhesapci
|
|
Cümleten selamlar...
Sayın abilerim, Autocad 2013 kullanmaya basladım ama hiç bir lispi çalıştıramıyorum.
yardımcı ola bilirmisiniz size zahmet.
|
ProhibiT
|
|
AutoCAD 2013 LT kullanıyor olmayasınız...
|
Sonraki Sayfa
