












































































































































































































































- 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
Sırasıyla numara yazan lisp
admin - 03.10.2005 17:05
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
(setq yazıyüksekliği (getdist (strcat "
Yazi Yuksekligini Giriniz : ")))
(setq başsayı (getdist (strcat "
Başlangıç sayısını yazınız : ")))
(setq koordinat (getpoint "
yazılacak yeri tıklayınız :"))
(setq koordinatx (car koordinat))
(setq koordinaty (cadr koordinat))
(setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0))
(command "text" "m" koordinatxy yazıyüksekliği "0" (fix başsayı))
(while (> 10000)
(setq başsayı (+ 1 başsayı))
(setq koordinat (getpoint "
yazılacak yeri tıklayınız :"))
(setq koordinatx (car koordinat))
(setq koordinaty (cadr koordinat))
(setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0))
(command "text" "m" koordinatxy yazıyüksekliği "0" (fix başsayı))
)
)
(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
(PRINC " Lispi çalıştırmak için komut satırına 'Noyaz' yazınız ")
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:
Tag:

burda Detay-1, Detay-2 şeklinde artarak gitmesi için ne yapabiliriz.

acil kot verme lipsi istiyom ama kodu ben belirlicem ondan sonra yuksekliğe gore artıcak projelerimde kullancam yardım acillll.

Merhabalar;
Bir sorum olacak. Acaba bu sayıları aynı anda daire içine alarak yazan bir lisp var mıdır? Yada yazılabilir mi?

neden hep sıfır yazıyo ?
hangi ayarı yapmam lazım ?
teşekkürler

aynen bu kodlama P1 P2 ... gibi giderse hiç değilse demir pozlaması yapabiliriz

bu kodlamayı mesala A11 A12 A13 gibi yapabilrseniz çok memmun olurum.

lisp güzel çalışıyor peki admin şöyle sadece rakam şeklnde değilde yazılan rakamı şöyle daire içine falan alsa daha iyi olur sanırım. yani o konuda da yardımcı olursanız sevinirim

lisp i calıstırdıkdan sonra yazı yukseklıgı ve baslangıc sayısını verıyorum,ilk yazıyı koyması gereken yere tıklıyorum ama hep sıfır rakamını koyuyor ne kadar tıklarsan o kaadar sıfır oluyo ?

calismiyor diyen arkadaslar text ayarlarinizi kontrol ediniz...
command fonksiyonu sizin yazi ayarlarinizla ortusmuyor olabilir..
kolay gelsin...

"At sahibine göre kişner"..Bu lafım çalışmıyor diyen arkadaşlaradır..Kimse yapamıyorum demez olmuyor der..

Üstad sorunsuz çalışıyor..Metraja sonradan ilave için biçilmiş kaftan..Ellerin dert görmesin..

bu lisp çalışmıyomu yoksa banamı öyle geliyo.yeni bir lisp dosyası yaratıp support klasörünün içindeki yere attım ama çalıştıramadım.