Bölüm indeksi
Makaleler Sık Sorulan Sorular Download
İzle Öğren Eğitim Videoları
AutoCAD Videoları 3ds Max Videoları AutoCAD Kursu Ders Videoları AutoCAD Kursu 2 Boyut Dersleri AutoCAD Kursu 3 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 Lispler Menüler Fontlar FreeMUST Eğitim Dökümanları Genel Kategori Çizim Programları IES Dökümanları AutoCAD AutoLISP
Konu Anlatımları
1) AutoLISP Nedir? 2) AutoLisp dos. 3) Lisp Dosyala. Autolisp komutl. Autolisp te tip. entmake fonksiy. entmake fonksiy. entmake fonksiy. entmake fonksiy. entmake fonksiy. Liste Fonksiyon.
entmake fonksiy. Liste Fonksiyon. entmake fonksiy. Liste Fonksiyon. Örnek Lispler 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 larAutoCAD Genel
AutoCAD Eğitimi
3ds Max
Özel Yazılımlar
- 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ı
entmake fonksiyonu-6
entmake ile TEXTcizmek
shark - 20.12.2005 08:01
shark - 20.12.2005 08:01
;;;Fonksiyon tanımı:
(defun text_ekle (_yazi _nokta _yuk _aci _yaslama _layer / _g72 _g73)
(setq CTEXTSTYLE (getvar "TEXTSTYLE"))
(cond ((= _yaslama "MR") (setq _g73 2 _g72 2))
((= _yaslama "ML") (setq _g73 2 _g72 0))
((= _yaslama "BC") (setq _g73 1 _g72 1))
((= _yaslama "TC") (setq _g73 3 _g72 1))
((= _yaslama "MC") (setq _g73 2 _g72 1))
((= _yaslama "C") (setq _g73 0 _g72 1))
((= _yaslama "BR") (setq _g73 1 _g72 2))
((= _yaslama "BL") (setq _g73 1 _g72 0))
((= _yaslama "TL") (setq _g73 3 _g72 0))
((= _yaslama "TR") (setq _g73 3 _g72 2))
(T (setq _g73 0 _g72 0))
) ;_ end of cond
(entmake (list (cons 0 "TEXT")
(cons 1 _yazi)
(cons 7 CTEXTSTYLE)
(cons 8 _layer)
(cons 10 _nokta)
(cons 11 _nokta)
(cons 40 _yuk)
(cons 50 (/ (* _aci PI) 180.0))
(cons 72 _g72)
(cons 73 _g73)
)
)
) ;_text_ekle
;;; Kullanımı :
(text_ekle "Derya" (list 10 20) 2.5 45.0 "BC" "deneme")
;;; Açıklama :
Yukarıdaki komut ; (10,20) noktasına, yuksekligi 2.5, açısı 45 birim olan 'Bottom Center' noktasına yaslamalı (Justified), 'deneme' layer'inda, 'Derya' yazısını yazar.
(defun text_ekle (_yazi _nokta _yuk _aci _yaslama _layer / _g72 _g73)
(setq CTEXTSTYLE (getvar "TEXTSTYLE"))
(cond ((= _yaslama "MR") (setq _g73 2 _g72 2))
((= _yaslama "ML") (setq _g73 2 _g72 0))
((= _yaslama "BC") (setq _g73 1 _g72 1))
((= _yaslama "TC") (setq _g73 3 _g72 1))
((= _yaslama "MC") (setq _g73 2 _g72 1))
((= _yaslama "C") (setq _g73 0 _g72 1))
((= _yaslama "BR") (setq _g73 1 _g72 2))
((= _yaslama "BL") (setq _g73 1 _g72 0))
((= _yaslama "TL") (setq _g73 3 _g72 0))
((= _yaslama "TR") (setq _g73 3 _g72 2))
(T (setq _g73 0 _g72 0))
) ;_ end of cond
(entmake (list (cons 0 "TEXT")
(cons 1 _yazi)
(cons 7 CTEXTSTYLE)
(cons 8 _layer)
(cons 10 _nokta)
(cons 11 _nokta)
(cons 40 _yuk)
(cons 50 (/ (* _aci PI) 180.0))
(cons 72 _g72)
(cons 73 _g73)
)
)
) ;_text_ekle
;;; Kullanımı :
(text_ekle "Derya" (list 10 20) 2.5 45.0 "BC" "deneme")
;;; Açıklama :
Yukarıdaki komut ; (10,20) noktasına, yuksekligi 2.5, açısı 45 birim olan 'Bottom Center' noktasına yaslamalı (Justified), 'deneme' layer'inda, 'Derya' yazısını yazar.
Yazar:
İçerik:
Tag:
Yorumlar :
Henüz yorum yapılmamış