MLINE nesneyi PLINE'a çevirir | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 493, Üye: 0

Detaylar »

Forumlar > AutoLISP > MLINE nesneyi PLINE'a çevirir

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
01.11.2008 13:26 42703	Harbi65 Üstad 428 ileti İnş.Tekn. Teknik Ressam KASTAMONU
Mline nesneleri Polyline a çeviren lisp. Komut: MLPL BURADAN İNDİRİN... Harbi65 (01.11.2008 14:16 GMT)

01.11.2008 13:50 42704	fox Kıdemli Uzman 236 ileti
olmadı çeviremedi

01.11.2008 13:52 42705	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Alıntı Harbi65 : hocam ; eline sağlık.. güzel bir çalışma olmuş.. teşekkürler

01.11.2008 13:55 42706	fox Kıdemli Uzman 236 ileti
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 42707	Harbi65 Üstad 428 ileti İnş.Tekn. Teknik Ressam KASTAMONU
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 42708	fox Kıdemli Uzman 236 ileti
kodları açık yapsaydın bende bozmaya çalışırdım biraz :)

01.11.2008 14:58 42712	gurbetci178 Yeni üye 277 ileti
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 42714	ehya Yönetici 3554 ileti Teknik Ressam Ankara
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 42715	Harbi65 Üstad 428 ileti İnş.Tekn. Teknik Ressam KASTAMONU
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 42722	fox Kıdemli Uzman 236 ileti
sağol ehya süper olmuş valla. sende çok sağol harbi65 kodları gizlesende neticede kafa yordun eyvallah.

01.11.2008 17:20 42725	gurbetci178 Yeni üye 277 ileti
yaşasın bilginin kardeşliği :) :) :)

01.11.2008 18:19 42732	fox Kıdemli Uzman 236 ileti
lisp yapılabilecek bi kaç şey daha bulayım:)

01.11.2008 18:33 42733	gurbetci178 Yeni üye 277 ileti
ö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 42737	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Bi de çay demlerse ne güsel olur dimi? :)

01.11.2008 22:12 42740	fox Kıdemli Uzman 236 ileti
hemde ne güzel olur bide arabaya benzin koyarsa tadından yenmez valla:D

02.11.2008 08:45 42750	gurbetci178 Yeni üye 277 ileti
ç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]

02.11.2008 11:53 42756	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Madem böyle birşey var. Yeniden ay'ı keşfetmeye gerek varmı?

> 1 <