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 lar
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 lar
AutoCAD 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ış