Bölüm indeksi
Makaleler Sık Sorulan Sorular Download
İzle Öğren Eğitim Videoları
3ds Max Videoları AutoCAD Kursu Ders Videoları AutoCAD Kursu 2 Boyut Dersleri Proje Dökümanları Çizimler Mimari Çizimler Elektrik Doğalgaz Harita Çizimleri Tesisat Ferforje Makine 3 Boyut 3ds Max ArchiCAD Solidworks Diğer Çizimler Revit Family Lispler Menüler Fontlar FreeMUST Eğitim Dökümanları Genel Kategori Çizim Programları IES Dökümanları AutoCAD AutoLISP Konu Anlatımları
Örnek Lispler
2D Polyline 'ı 3D...
3d polyline'ı 2d... 3D Yay çizen lisp... Artan sırayla num... Autocad içinden e... Civata ve Somun Ç... Çizgileri toplayı... Çizime Tarih Yaza... Daire ortasına ak... Duvar çizen lisp Harita ve pafta k... İşaretlenen 2 nok... Merdiven çizen lisp Nokta koordinatla... Noktanın koordina... Parabol çizen lisp ... Sürümler Menüler DWF Dosyaları Programlama AutoCAD Püfleri Eğitim AutoCAD Eğitimi Karma 3 Boyut Dersleri Adım Adım AutoCAD Eğitimi 01.Bölüm 02.Bölüm 03.Bölüm 04.Bölüm 05.Bölüm 06.Bölüm 07.Bölüm 08.Bölüm 09.Bölüm 10.Bölüm 11.Bölüm 12.Bölüm Uygulamalar Adım Adım 3 Boyut Eğitimi Kariyer 3ds Max Attribute lar
- aLd Fonksiyonu
- TCad Metraj
- FacadeCAD
- Cephe Kot
- HQ Library
- FreeMUST
- ALS/Pasdoc.A
- Excele Tablo Aktaran Lisp
- Nokta Koordinat Tablosu
- Plana İç Ölçü Verme
- Toplam Alanı Yazan Lisp
- Alan ve Çevre Yazan Lisp
- Koordinat, Alan ve Çevre Tablo Halinde Yazma
- AutoCAD'de Nokta Dökümü
- Hava Kanalı Metraj Fonksiyonu
- Boru Metrajı Fonksiyonu
- OptiCAD
- Özel Çizgi Tipi Oluşturmak
- AutoCAD te Koni Açılımı Nasıl Yapılır?
- PolyLine & Point Objelerinden Aplikasyon Çizelgesi
- Z değerini sıfırlama
- AutoCAD te Polyline üzerine uzunluk yazdırma
- Sıralı numaralandırma
- Yazı içindeki sayıları toplama
- Karmaşık Path ile Loft Uygulaması
- Çoklu Fillet Fonksiyonu
- Ölçekli Türk Bayrağı çizen lisp
- Duvar-Lento-Kapı-Pencere Metraj Programı
Demir (Donatı) Metraj LISP'i
3d polyline'ı 2d polyline'a çeviren lisp
admin - 10.10.2006 12:54
Üreticinin açıklaması:
freecadapps.com
Description: Convert 3d polyline to 2d polyline
Convert 2d polyline, 3dface, line, arc, & circle to 3d polyline
1. Join 3Dpoly's (ends should meet).
2. If you accidently pick a 3DPoly, it is just drawn over again.
3. The Join function will replace the two 3DPolys with a single 3dPoly.
4. The Change function will just draw over the existing entity.
5. For a mesh , first explode it into faces, then change to 3dpoly(s).
6. Resolution will control smoothnes of curves, also make various shapes
such as... 6 = hex, 3 = triangle, 4 = square, etc....
Bu lisp www.freecadapps.com kaynağından alınmış ve halka açık olduğu için paylaşım amacıyla sayfaya eklenmiştir.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
;..............................................................................
(defun c:p3p2 (/ eg cl en e nc fp pt)
(princ "n[Change 3D Polyline to 2D Polyline.]")
(setq e (entsel " Select a 3DPoly: ") ; get the header data
en (car e)
cl (if(=(cdr(assoc 70(entget en)))1)1) ; closed flag 1=yes
p1 (cdr(assoc 10(entget(entnext en))))
p2 (cdr(assoc 10(entget(entnext(entnext en)))))
)
(command "ucs" "3" p1 p2 "")
(setq fp (trans p1 0 1)) ; save first point
; en (entnext en)) ; leave header
(setvar "blipmode" 0)
(command "pline")
(command fp) ; id first vertex
(while (/=(cdr(assoc 0(setq eg(entget(setq en(entnext en))))))"SEQEND")
(setq pt (trans(cdr(assoc 10 eg))0 1))
(if pt (command pt))
(if (and (not pt) cl)(command fp))
);endwhile
(command "")
(command "ucs" "w")
(setvar "blipmode" 1)
(princ)
);end C:P3P2
(princ)(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu inceleyiniz.
Yazar:
İçerik: LSP formatında AutoLISP dosyası
Tag: 3d polyline'ı 2d polyline'a çeviren lisp, 3d pline to 2d pline, pline converter, pline dönüştürme
Benzer Sayfalar- 2D Polyline 'ı 3D Polyline yapan lisp (33.339)
- Multi Polyline Lisp (MPL) (10.970)
- Seçilen Polyline'ların köşe koordinatları, ara mesafeleri, alan ve çevrelerini tablo halinde yazan AutoLisp fonksiyonu (48.046)
- Ara Lisp (52.286)
- Enkesit Lisp (7.895)
- Rectangle Solid (lisp) (31.562)
- Parabol çizen lisp (25.061)
- 3D Yay çizen lisp (seçenekli) (27.270)
- Rakam sıralayan lisp (35.849)
- Spiral çizen lisp (47.808)
recep_xyz 17.01.2022 11:49 #16102
burada yapılan 3dpline obje korunarak ucs yardımıyla başka düzleme yatırma gibi
??? Bizim istedigimiz Z degerlerinin 0(sıfırlanması ve vartex koordinatları(x,y ,0) değişmemesi
recep_xyz 17.01.2022 11:31 #16101
Arkadaşlar bu lisp X ve Y koordinatlarını koruyup Z degerini ya Z=0 veya Başlangıç ilk Z değerine sabitlemesi gerekmez mi Burada yatıgınız işlemlerde x,y koordinatlarda değişimler var bu olmamalı . Bİlen arkadaşlar bir incelesin işlem durumunda yanlışlık var.
SerdarBas 28.04.2016 08:47 #15659
HAY BEN SİZİN YAPACAĞINIZ LİSP' E ARKADAŞ KUSURA BAKMAYIN AMA LISPI UYGULADIKTAN SONRA EKRANA HER TIKLADIĞIMDA NOKTALAR OLUSUYOR REGEN YAPINCCA GIDIYOR SACMA SAPAN BİR ŞEY AYNI VIRUS GIBI
sibel_colak 05.01.2009 16:57 #10080
Ben bu kodu kendimce geliştirdim..
Kodda tek seçim yapılıyordu düzenlemiş olduğum kodda birden fazla 3d polyline seçilip polyline yapılıyor.
Paylaşmak istedim...
(defun c:p3p ()
(princ "n[Change 3D Polyline to Polyline.]")
(setq index 0)
(setq e(ssget))
(setq sayac (sslength e))
( repeat sayac
(setq en (ssname e index)
cl (if(=(cdr(assoc 70(entget en)))1)1) ; closed flag 1=yes
p1 (cdr(assoc 10(entget(entnext en))))
p2 (cdr(assoc 10(entget(entnext(entnext en)))))
)
(command "ucs" "3" p1 p2 "")
(setq fp (trans p1 0 1)) ; save first point
(setvar "blipmode" 0)
(command "pline")
(command fp) ; id first vertex
(while (/=(cdr(assoc 0(setq eg(entget(setq en(entnext en))))))"SEQEND")
(setq pt (trans(cdr(assoc 10 eg))0 1))
(if pt (command pt))
(if (and (not pt) cl)(command fp))
);endwhile
(command "")
(command "ucs" "w")
(setvar "blipmode" 1)
(setq index(+ index 1))
)
(princ)
);end C:P3P