01.11.2008 13:26
Harbi65
|
Harbi65 (01.11.2008 14:16 GMT)
|
01.11.2008 13:50
fox
|
olmadı çeviremedi
|
01.11.2008 13:52
k005
|
Alıntı Harbi65 :
hocam ; eline sağlık.. güzel bir çalışma olmuş.. teşekkürler
|
01.11.2008 13:55
fox
|
olmuş fakat ağzı kapalı mline çizgileri ağızları açık olarak pline yapıyor ilk bakışta sadece patlatıyor sandım.
|
01.11.2008 14:03
Harbi65
|
Alıntı fox :
olmuş fakat ağzı kapalı mline çizgileri ağızları açık olarak pline yapıyor ilk bakışta sadece patlatıyor sandım.
Fox;
ağzıyla burnuyla fazla uğraşma...:D
Üzerinde biraz daha çalışmak istiyor... düzenleme yapabilirsem linki güncellerim...
|
01.11.2008 14:06
fox
|
kodları açık yapsaydın bende bozmaya çalışırdım biraz :)
|
01.11.2008 14:58
gurbetci178
|
hüseyin abi nerden nereye bakıyorum da lisp olayına vakıf oldun gittin beni kandırdın hiç uğraşma çok zor diye kendin çatır çatır yazıyorsun :) maşallah
sevgiliermle iyi çalışmalar
|
01.11.2008 15:58
ehya
|
Harbi65 kodları gizleyecek kadar ne yazdın. :)
öyle herşeyi gizleme.. bırak öğrenmek isteyenlere referans olsun...
Aşağıdaki komut seçilen MLINE olan nesneleri patlatıp pline'a çevirir.
Komut ismi MLX
Kod:
(defun c:mlx ()
(setvar "modemacro" "Archme Design by --> EhYa <--")
(setq mlx_sec (ssget (list (cons 0 "MLINE"))))
(if (= mlx_sec nil)
(progn)
(progn
(setq say (sslength mlx_sec))
(setq ss (ssadd))
(setq c 0
d 0
e 0
)
(repeat say
(setq tt (ssname mlx_sec c))
(command "explode" tt)
(setq ek (ssget "p"))
(repeat (sslength ek)
(ssadd (ssname ek e) ss)
(setq e (+ e 1))
)
(setq e 0)
(setq c (+ c 1))
)
(setq ssay (sslength ss))
(while (< d ssay)
(setq tek (ssname ss d))
(if (= "LINE" (cdr (assoc 0 (entget tek))))
(progn
(command "_.pedit" tek "" "j" ss "" "")
)
)
(setq d (+ d 1))
)
)
)
(princ)
)
Lisp içindeki imzadan bişey olmaz. Ücretsiz yazılımda bırakın adımız olsun...
|
01.11.2008 16:07
Harbi65
|
Ehya;
herşeyi gizlemediğimi biliyorsun... bunu sürekli niye vurguluyorsun ki...
gizliycek kadar ne yazdım..?
kodu çalıştırdınsa anlamışsındır.. mline nesneyi patlatmadım yeniden çizdirdim....
kafa yordum yani... bu nedenle de gizleme ihtiyacı duydum...:)
|
01.11.2008 16:43
fox
|
sağol ehya süper olmuş valla.
sende çok sağol harbi65 kodları gizlesende neticede kafa yordun eyvallah.
|
01.11.2008 17:20
gurbetci178
|
yaşasın bilginin kardeşliği :) :) :)
|
01.11.2008 18:19
fox
|
lisp yapılabilecek bi kaç şey daha bulayım:)
|
01.11.2008 18:33
gurbetci178
|
örneğin şöle bişey bulasan nesnelere belirli özelikler ekleye bilsek ve bu nesneleri autocade saydırıp exel tablosuna döktüre bilsek ve sonuçları hesapalata bilsek ve fiyatları netten güncelleeye bisek bunu yazacak biri varmı
|
01.11.2008 19:52
ehya
|
Bi de çay demlerse ne güsel olur dimi? :)
|
01.11.2008 22:12
fox
|
hemde ne güzel olur bide arabaya benzin koyarsa tadından yenmez valla:D
|
02.11.2008 08:45
gurbetci178
|
çoook öncelerden bunun üzerin de uğraşılmış tı çay demlemiyor du ama gayet başarı idi bir netten kendini güncelleyemiyordu o kadar biolight abi bunu geliştirdimi onu da bilmiyorum
Alıntı gurbetci178 :
biolight abinin hazırladığı biocad bu lispden daha kullanışlı bence onu kullanın yer göstermeden dosyanın içindeki bütün blokları tek tıkla sayıyor artı bütün balokların sacale larını aynı anda değiştiriyor çok kullanışlı onu indirin sitede var...
[URL=http://www.yukle.tc][IMG]http://img67.yukle.tc/images/67931.jpg[/IMG][/URL]
[URL=http://www.yukle.tc][IMG]http://img69.yukle.tc/images/13512.jpg[/IMG][/URL]
[URL=http://www.yukle.tc][IMG]http://img69.yukle.tc/images/21733.jpg[/IMG][/URL]
|
ehya
|
Madem böyle birşey var. Yeniden ay'ı keşfetmeye gerek varmı?
|