|
05.03.2013 09:50
waytooraider
|
|
Hocam öncelikle sonsuz saygılarımı belirtmek istiyorum.
ALD fonksiyonu yapmıştınız. Çizgiye dokunduğumuzda rengi otomatik olarak değişip attribute bloğu oluyordu.Bu renk değişimin olması için çizgilerin bylayer renginde olması gerekiyor.Ama elimdeki projede çizgiler bylayer renginde değil.Farzı misal yangın borusu layerım olsun.Layerın rengi beyaz ama projede sarıyla çizilmiş.Bunun gibi sayısız nesne; layer renginden farklı renkte çizilmiş.Bunları tek tek bylayer rengine çevirmek baya bir zaman alıyor.
Benim istediğim projedeki tüm nesnelerin rengi bylayer olsun ki ald fonksiyonunu çalıştırdığımda sıkıntı yaşamayayım.
Yada proje genelinde nesnenin rengi neyse bylayer rengi o olsun gibi bir lisp ama ki buda abartı bir istek olur.
Yada ald fonksiyonunu çalıştırıken byleyer farketmeksizin o anki renk neyse ona çevirsin:) Ki bu benim için harika bir durum olurdu. yukardaki hiç bir şeye gereksinim duymazdım.
ALD'yi çalıştırınca oluşan attribute yazılan uzunluğu çizgiye linkleyebilirim demiştiniz ki buda harika olurdu.Bunu ilerki yıllarda sizden isteyeceğim :)Şu an benim için önemli olan bylayer rengi.
Başkada o mubarek ellerinizden operim diyorum ve susup fırçanızı bekliyorum çünkü sizden çok şey istemiş oldum.
|
|
05.03.2013 15:11
 ProhibiT
|
Daha önce de bahsettiğim gibi yazdığımız fonksiyonların detaylarını, hatta yapılabilir dediklerimizi de unutabiliyoruz. Böylesine insanca unutma olaylarından dolayı hakedilmeyen sitemler olmadığı sürece, kimsenin kimseye fırça atma gibi bir hakkı da yok diye düşünürüz. :) Aşağıdaki fonksiyonla çizim içindeki tüm Line objelerinin rengi Bylayer olarak değiştirilir. Şimdilik işinizi görürse, bahsettiğiniz diğer detaylara uygun zamanda bakarız.
Kod:
(defun c:cHbY (/ Lobj n PvT)
(setvar "cmdecho" 0) (command "_.undo" "group")
(setq Lobj (ssget "x" (list (cons 0 "Line"))) n -1)
(while (< (setq n (1+ n)) (sslength Lobj))
(setq PvT (entget (ssname Lobj n)))
(if (assoc 62 PvT) (entmod (subst (cons 62 256) (assoc 62 PvT) PvT))))
(command "_.undo" "e") (prin1))
|
|
05.03.2013 16:04
waytooraider
|
|
Çok yakışıklı bir lisp olmuş hocam projedeki tüm layerları bylayer rengine çevirdi.
Ald fonksiyonunu çalıştırırken bylayer farketmeksizin o anki renge çevirecek şekilde düzenlemenizi yıllarca usanmadan bekliyebileceğimi belirtir , aylar sonra yine anımsatırsam sakın kızmayın hocam.
Ustatlarımıza özellikle size milyonlarca kez teşşekür ederim.Lispleriniz sayenizde ağır amelelikten kurtulmuş oluyoruz.
|
|
07.03.2013 07:43
zfrugr
|
|
Selamlar herkese,
Benim bir sorunum var yardımcı olan olursa cok sevinirim. Autocadde find ile arattıgımız bir sayfada bize find listesi veriyor bu listeyi excelle aktaran lisp var mı ? Amacım örnegin bi demir metrajında çapı 12 olan demirleri find ile aratıp bu listeyi excelle aktarmak. Yardımlarınız için şimdiden teşekkürler...
|
|
10.03.2013 11:59
kerem1453
|
|
autocad açılışında otomatik yüklenen lispler autocad içinde hangi dosyaya kaydoluyo bilen varmı ?
|
|
10.03.2013 13:34
 ehya
|
|
Autocad'in support klasöründeki "acad2013.lsp" dosyası otomatik yüklenen lisp dosyasıdır. 2013 sayısını kullandığınız versiyona göre değiştirin.
|
|
10.03.2013 14:34
kerem1453
|
|
autocad açılışında otomatik yüklenen lispler autocad içinde hangi dosyaya kaydoluyo bilen varmı ?
ehya
Autocad'in support klasöründeki "acad2013.lsp" dosyası otomatik yüklenen lisp dosyasıdır. 2013 sayısını kullandığınız versiyona göre değiştirin.
benim sormak istedigim bu değildi ehya sanırım ben anlatamadım mesala evde kullandıgım pc de a,b,c,d,e,f, gibi 15-20 tane lisp dosyasını açılışta yüklüyorum bunların aynısını başka pc de otomatik yine görmesini istiyorum açılışta gördügü otomatik lispler nerde kayıtlı ise onun aynısını kaydettigi yerden alıp başka pc ye kopyalamak için sormuştum.
Appload dedikten sonra contents butonuna basıp yükledigimiz lispler nereye kaydoluyo ögrenmek istedigim bu.
kerem1453 (10.03.2013 14:42 GMT)
|
|
10.03.2013 16:01
ehya
|
|
Bu bilgiler dosya olarak değil "regedit" e kaydedilir.
Kayıt yeri :
HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R***\ACAD-B001:409\Profiles\<<Unnamed Profile>>\Dialogs\Appload\Startup
|
|
04.04.2013 14:44
 ec
|
|
Bir lispe ihtiyacım var. Autocad dosyası içinde blokların isimlerinin yer aldığı listeler mevcut.
Yazı seçildiğinde bloğu çağıran bir lisp. Örneğin; yazı içeriği "koltuk" , "koltuk" isimli bloğu çağırmalı. İlgilenen arkadaşlara teşekkürler.
|
|
12.04.2013 07:13
undead
|
|
selamlar,
Field komutu ile uzunlugunu yazdirdigim pline ile cizilmis obje var secilen objeye bagli olarak yazildigi icin objeyi cekistirerek boyutlarini degistirdigim zaman yazili olan olcu otomatik degisiyor, fakat benim soyle bir ricam olacak, bu komutu objeye degilde layer a bagli yapabiliyormuyuz ? yani bagli olan layerda herhangi bir pline cizdigim taktirde onuda toplama ekleyecek.
yardimlariniz icin simdiden tesekkur ederim,
saygilarimla.
|
|
15.04.2013 11:37
namalad
|
|
İyi günler arkadaşlar,
Hatlarla, 3 boyutlu olarak çizilmiş olan bir binanın, bir yüzey belirleyip z eksenine göre, bu yüzey ile hatların kesiştiği yerleri işaretleyen bir lisp yazabilirmiyiz?
|
|
16.04.2013 11:20
pulp fiction
|
|
arkadaşlar merhaba;
15 paftanın bulunduğu bir çizimde 1000 tane poz lispim olduğundan regen yapınca çok vakit alıyor.
mesela ben çalıştığım katı seçerek regen yapmak istiyorum diğer 14 kat regen olmasın.
böyle bir şey mümkün mü?
şimdiden teşekkürler...
|
|
17.04.2013 11:33
pulp fiction
|
|
yardımcı olacak kimse yok mu arkadaşlar. acil lazımdı da :=(
|
|
17.04.2013 12:09
 Travaci
|
|
Yanlış mı biliyorum ? Regen zaten ekranda gördüğünüz kadarını yapmıyormu ? Görünmeyen kısımları içinde regenall
|
|
17.04.2013 12:41
pulp fiction
|
|
valla üstad şimdi formüllü iki tane pozu koydum boş dosyaya. bir tanesini uzak bir yere attım. ikisinide regen yaptı formülü çalıştırdı.
50-100 tane olunca sıkıntı olmuyor ama 1000'den fazla olunca baya bi bekletiyor hocam ya.
yardımcı olabilir misin?
|
|
17.04.2013 13:15
ProhibiT
|
|
Regen komutu "Active Viewport" u regenerate eder, Regenall komutu ise bütün viewport'ları...
|
|
17.04.2013 13:23
pulp fiction
|
|
aynen öyle oluyor üstad . bende her regen de 2-3 dakika bekliyorum maalesef.
|
|
17.04.2013 13:29
Travaci
|
|
Yanlış biliyormuşum : )
Pulp fiction; Updatefield komutu ile field ile bağlı objeleri seçerek regen etmiş olursun ; )
|
|
17.04.2013 13:42
pulp fiction
|
|
ya hocam çok teşekkür ederim valla büyük bi dertten kurtardın beni :=)
|
umittaser
|
|
Selamlar. Toplu seçilen objeleri dışarı doğru hepsini aynı birimde offset atmak mümkünmü? böyle bir lisp yapılabilir mi?
|
Sonraki Sayfa
