Çizim Okulu
  • Forum
  • Download
  • Galeri
  • AboneOl
  • Üye Ol veya GiriÅŸ Yap

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ı
Örnek Lispler
Pline 'ları se.
Merdiven çizen.
Rectangle Solid.
2D Polyline 'ı.
Sürekli Kopya
Civata ve Somun.
Seçilen nesnen.
Z yönünde kop.
Z yönünde taÅ.
Daire ortasına.
Rakam sıralaya.
Artan sırayla .
Sırasıyla num.
Sayfadaki textl.
Yazıyı refera.
Seçilen nesnen.
...
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
  • AutoLISP
  • AutoCAD Programlama
  • AutoCAD Püfleri-1
  • AutoCAD Püfleri-2
  • AutoCAD Komutları
  • AutoCAD Terimler Sözl.
AutoCAD EÄŸitimi
  • AutoCAD EÄŸitim Videoları
  • AutoCAD EÄŸitimi
  • AutoCAD Dersleri
  • AutoCAD EÄŸitim Notları
  • AutoCAD 3 Boyut Dersleri
3ds Max
  • 3ds Max Nedir?
  • 3ds Max Model ve Çizim
Ö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
Program Ekle
Ziyaretçi: 384, Üye: 3
admin, alumina, onderunver
Detaylar »
> AutoLISP > Örnek Lispler > Sırasıyla numara yazan lisp

Sırasıyla numara yazan lisp

noyaz lisp
admin - 03.10.2005 17:05
Bu lisp sizden yazı yüksekliği ve hangi numaradan başlamak istediğinizi sorarak tıkladığınız her noktaya ardışık olarak numara yazmanızı sağlar. Yatay veya düşey toblolarda rakamların yerleştirileceği yerlere array komutu ile referans çizgiler oluşturmak işinizi kolaylaştıracaktır.

Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz

Kod:

(defun C:Noyaz ()

(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:

Yorumlar :
upinarbasi   25.01.2023 16:01 #16135  

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

gokmene19   23.12.2022 17:50 #16133  

neden hep 0 basıyor?

yurtsan   16.09.2014 08:54 #15422  

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

tangry34   04.01.2014 09:27 #15267  

elinize sağlık güzel olmuş.

meyildiz   20.12.2013 13:21 #15249  

ellerine sağlık

varikazan   14.11.2013 17:37 #15204  

dddf

sinandarici   22.07.2013 11:40 #15132  

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?

grimgod   08.07.2013 16:26 #15125  

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

balım   17.04.2013 14:06 #15075  

ben neden kopyalayamiyorum kodlari

maximillien   29.08.2012 09:40 #14748  

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

cakmanus   04.06.2012 16:03 #14667  

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

cakmanus   04.06.2012 15:59 #14666  

Güzel bir çalışma. ellerinize sağlık . sorunsuz

emrahtaramis   28.11.2011 13:30 #14392  

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

tunaturgut1907   22.10.2010 08:22 #13414  

çok teşekkürler

nihat41   19.08.2009 08:26 #11635  

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 ?

miyatu   19.07.2009 10:00 #11475  

calismiyor diyen arkadaslar text ayarlarinizi kontrol ediniz...

command fonksiyonu sizin yazi ayarlarinizla ortusmuyor olabilir..

kolay gelsin...

fibula   05.12.2008 20:56 #9728  

lisp sorunusuz çalışıyor.çok teşekkürler .

KÖPRÜ-YOL   19.11.2008 16:21 #9599  

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

KÖPRÜ-YOL   19.11.2008 16:20 #9598  

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

ty56   19.04.2008 16:54 #7955  

lisp çalışmıyor yorumyok:)

betbet   18.04.2008 15:28 #7941  

neden rakamlar hep "0" oluyor yardımcı olur musunuz?

oguzkilic   01.04.2008 10:11 #7765  

güzel çalışıyor teşekkür ederim.

c_gemicioglu   14.06.2007 15:17 #4620  

HEP 0 YAZİY BU

Resul_K   10.05.2007 12:41 #4221  

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.

Copyright © 2004-2022 | Tüm Hakları Saklıdır | 2697 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim
SQL: 0.03 saniye - Sorgu: 36 - Ortalama: 0.00085 saniye