Autolisp ders no 8

 

; Çizgi çizme lispi

(defun c:lineciz3 ()
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq pt1 (getpoint "\n İlk nokta için ekrana tıkla ?! :"))
(setq pt2 (getpoint "\n İkinci nokta için ekrana tıkla ?! :"))
(setq pt3 (getpoint "\n Üçüncü nokta için ekrana tıkla ?! :"))
(setq pt4 (getpoint "\n Dördüncü nokta için ekrana tıkla ?! :"))
(setq pt5 (getpoint "\n Beşinci nokta için ekrana tıkla ?! :"))
(command "line"  pt1  pt2 "")
(command "line"  pt2  pt3 "")
(command "line"  pt3  pt4 "")
(command "line"  pt4  pt5 "")
(setvar "osmode" oldsnap)
(princ)
)

(Princ "Lisp'i çalıştırmak için lineciz3 yazınız! [http://hqlibrary.blogspot.com] ")

Şimdiye kadar yayınlanan Autolisp derslerinde çizgi , daire , yay çizmeyi öğrenmiştik..

En son Autolisp dersimizde de birçok çizim objesi bulunan karmaşık çizimleri tanımaya başladık.
Bu tip çizim uygulamaları için osmode açıp kapatmamız gerekli.

Oluşturulan Autolisp programında bu işlem uygulanmaz ise, yaptığınız autolisp programı ara sıra hata verir.



Program hakkında açıklamalar :

1) İlk satırda bulunan c: sonrasındaki ifade komut ismidir.Yani buradaki komut ismi lineciz3 olarak belirlendi.

2) Getvar komutu ile osmode deyişkenin güncel değerini öğrendik. Bu değeri de setq komutuyla oldsnap deyişkenine atadık. Setvar komutunu kullanarak osnap değerini sıfırladık. En son yazdığımız bu program bitmeden önce osnap değerini tekrar eski haline getirmemiz gerekiyor.


3) Setq komutu ile ard arda 5 tane deyişken tanımladık. Bu deyişken için isim olarak pt1, pt2, pt3 dedik.. Pt1 demek point1 demek, yani 1 nolu kordinat noktası demek. Pt2 demek 2 nolu kordinat noktası demek.

4) Getpoint komutu ile kullanıcıdan ekrana tıklamasını istedik. Ekrana tıklanıldığında belli bir kordinat noktasını setq komutu ile pt1 deyişkenine tanımladık.

5) Bizlerin kordinat dediği şey aslında x,y,z kordinatı. Çizgi çizdirmek için ekranda birkaç noktaya tıklamak gerekiyor. Bu programda bunu gerçekleştirdik.

5) Command komutunu kullanarak çizgi çizme işini gerçekleştirdik. Daha önceki derslerden farklı olarak daha fazla çizgiyi çizdirmiş oluyoruz. 

6) Autolisp programı bitmeden önce osmode'yi eski haline çevirmek için setvar komutu kullandık. Programın başlangıcında osmode değerini setq komutu ile oldsnap deyişkenine kaydetmiştik.

7) Princ komutunu kullandık.


Sormak istediğiniz bir soru var mı ?!

Autolisp ders no 7

 











Şimdiye kadar yayınlanan Autolisp derslerinde çizgi , daire , yay çizmeyi öğrenmiştik. Bu dersimizde farklı olarak birden fazla çizim objesini çizmeyi öğreneceğiz. Birden fazla çizim objesi demek biraz karmaşık bir çizim demek.

Bu tip çizim tipi için uygulamamız gereken yöntem osmode deyişkenini açıp kapatmaktır. Eğer bunu yapmazsak, oluşturulan Autolisp programı yanlış çizim yapabiliyor ara sıra.. Autocad saçmalamaya başladı, yanlış çizim yapıyor dersiniz sonra. :-)

; Çizgi çizme lispi

(defun c:lineciz2 ()
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq  pt1 (getpoint "\n İlk nokta için ekrana tıkla ?! :"))
(setq  pt2 (getpoint "\n İkinci nokta için ekrana tıkla ?! :"))
(setq  pt3 (getpoint "\n İlk nokta için ekrana tıkla ?! :"))
(command "line"  pt1  pt2 "")
(command "line"  pt2  pt3 "")
(command "line"  pt3  pt1 "")
(setvar "osmode" oldsnap)
(princ)
)

(Princ "Lisp'i çalıştırmak için  > lineciz1 < yazınız! [http://hqlibrary.blogspot.com] ")

Program hakkında açıklamalar :

1) İlk satırda bulunan c: sonrasındaki ifade komut ismidir.Yani buradaki komut ismi lineciz2 olarak belirlendi.

2) Getvar komutu ile osmode deyişkenin güncel değerini öğrendik. Bu değeri de setq komutuyla oldsnap deyişkenine atadık. Setvar komutunu kullanarak osnap değerini sıfırladık. En son yazdığımız bu program bitmeden önce osnap değerini tekrar eski haline getirmemiz gerekiyor.


3) Setq komutu ile ard arda üç tane deyişken tanımladık. Bu deyişken için isim olarak pt1, pt2, pt3 dedik. Pt1 demek point1 demek, yani 1 nolu kordinat noktası demek. Pt2 demek 2 nolu kordinat noktası demek.

4) Getpoint komutu ile kullanıcıdan ekrana tıklamasını istedik. Ekrana tıklanıldığında belli bir kordinat noktasını setq komutu ile pt1 deyişkenine tanımladık.

5) Bizlerin kordinat dediği şey aslında x,y,z kordinatı. Çizgi çizdirmek için ekranda birkaç noktaya tıklamak gerekiyor. Bu programda bunu gerçekleştirdik.

5) Command komutunu kullanarak çizgi çizme işini gerçekleştirdik. Daha önceki derslerden farklı olarak birden fazla çizgiyi çizdirmiş oluyoruz. 

6) Autolisp programı bitmeden önce osmode'yi eski haline çevirmek için setvar komutu kullandık. Programın başlangıcında osmode değerini setq komutu ile oldsnap deyişkenine kaydetmiştik.

7) Princ komutunu kullandık.



Sormak istediğiniz bir soru var mı ?

Bir önceki ders için tıkla ( 6 nolu ders)

Autolisp ders no 6

Şimdiye kadar yayınlanan Autolisp derslerinde çizgi , daire , yay çizmeyi öğrenmiştik. Bu dersimizde farklı olarak birden fazla çizim objesini çizmeyi öğreneceğiz. Birden fazla çizim objesi demek biraz karmaşık bir çizim demek.

Bu tip çizim tipi için uygulamamız gereken yöntem osmode açıp kapatmak Autolisp programı içinde. Eğer bunu yapmazsak oluşturulan Autolisp programı yanlış çizim yapabiliyor ara sıra, yada Autocad saçmalamaya başladı, yanlış çizim yapıyor dersiniz. :-)

; Çizgi çizme lispi

(defun c:lineciz1 ()
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq  pt1 (getpoint "\n İlk nokta için ekrana tıkla ?! :"))
(setq  pt2 (getpoint "\n İkinci nokta için ekrana tıkla ?! :"))
(setq  pt3 (getpoint "\n İlk nokta için ekrana tıkla ?! :"))
(command "line"  pt1  pt2 "")
(command "line"  pt2  pt3 "")
(command "line"  pt3  pt1 "")
(setvar "osmode" oldsnap)
(princ)
)

(Princ "Lisp'i çalıştırmak için  > lineciz1 < yazınız! [http://hqlibrary.blogspot.com] ")

Program hakkında açıklamalar :

1) İlk satırda bulunan c: sonrasındaki ifade komut ismidir.Yani buradaki komut ismi lineciz1 olarak belirlendi.

2) Getvar komutu ile osmode deyişkenin güncel değerini öğrendik. Bu değeri de setq komutuyla oldsnap deyişkenine atadık. Setvar komutunu kullanarak osnap değerini sıfırladık. En son yazdığımız bu program bitmeden önce osnap değerini tekrar eski haline getirmemiz gerekiyor.


3) Setq komutu ile ard arda üç tane deyişken tanımladık. Bu deyişken için isim olarak pt1, pt2, pt3 dedik. Pt1 demek point1 demek, yani 1 nolu kordinat noktası demek. Pt2 demek 2 nolu kordinat noktası demek.

4) Getpoint komutu ile kullanıcıdan ekrana tıklamasını istedik. Ekrana tıklanıldığında belli bir kordinat noktasını setq komutu ile pt1 deyişkenine tanımladık.

5) Bizlerin kordinat dediği şey aslında x,y,z kordinatı. Çizgi çizdirmek için ekranda birkaç noktaya tıklamak gerekiyor. Bu programda bunu gerçekleştirdik.

5) Command komutunu kullanarak çizgi çizme işini gerçekleştirdik. Daha önceki derslerden farklı olarak birden fazla çizgiyi çizdirmiş oluyoruz. 

6) Autolisp programı bitmeden önce osmode'yi eski haline çevirmek için setvar komutu kullandık. Programın başlangıcında osmode değerini setq komutu ile oldsnap deyişkenine kaydetmiştik.

7) Princ komutunu kullandık.



Sormak istediğiniz bir soru var mı ? (Mesaj göndermek için tıkla)


Bir önceki 5 nolu dersi gördünü mü ?

Autolisp ders no 5

 











Bu dersimizde Autolisp ile yay çizmeyi öğreneceğiz. Daha önceki derslerimzde çizgi, daire çizmeyi öğrenmiştik. Benzer yöntem olarak yay çizmeyi öğreneceğiz.

; Yay çizme lispi

(defun c:yay ()
  (setq pt1 (getpoint "\nYay başlıngıç noktası ?! : "))
  (setq pt2 (getpoint "\nYay orta nokta ?! : "))
  (setq pt3 (getpoint "\nYay bitiş noktası ?! : "))
  (command  "arc" pt1 pt2 pt3 "")
  (princ)
)
(Princ "Lisp'i çalıştırmak için  > yay < yazınız! [http://hqlibrary.blogspot.com] ")

Program hakkında açıklamalar :

1) İlk satırda bulunan c: sonrasındaki ifade komut ismidir.Yani buradaki komut ismi yay olarak belirlendi.

2) Setq komutu ile ard arda üç tane deyişken tanımladık. Bu deyişken için isim olarak pt1 dedik. Pt1 demek point1 demek, yani 1 nolu kordinat noktası demek.Yay çizimi gerçekleşmesi için ekranda 3 farklı noktaya tıklamayı kullanıcıdan istedik.

3) Getpoint komutu ile kullanıcıdan ekrana tıklamasını istedik. Ekrana tıklanıldığında, getpoint komutu ile elde edilen kordinat değerini setq komutu ile pt1 , pt2 , pt3 deyişkenlerine tanımladık.

4) Command komutunu kullanarak yay çizme işini gerçekleştirdik.

5) Autolisp programı bitmeden önce princ komutunu kullandık.

Autolisp ders no 4

 











Bu dersimizde Autolisp ile daire çizmeyi öğreneceğiz. Bir önceki dersten farklı olarak daire çap değerini kullanıcıdan isteyeceğiz. Setq komutuyla dr_capi deyişkenine değer atadık.

; Daire çizme lispi

(defun c:crc2 (/ pt1 drcap)
(setq  pt1 (getpoint "\n Daire merkezi için ekrana tıkla ?! :"))
(setq  dr_capi (getreal "\n Daire çapı nedir ? :"))
(command "circle"  pt1 "d" dr_capi "")
(princ)
)

(Princ "Lisp'i çalıştırmak için  > crc2 < yazınız! [http://hqlibrary.blogspot.com] ")

Program hakkında açıklamalar :

1) İlk satırda bulunan c: sonrasındaki ifade komut ismidir.Yani buradaki komut ismi crc2 olarak belirlendi.

2) Setq komutu ile ard arda iki tane deyişken tanımladık. Bu deyişken için isim olarak pt1 dedik. Pt1 demek point1 demek, yani 1 nolu kordinat noktası demek.

3) Getreal komutu ile kullanıcıdan bilgi istedik. Kullanıcıdan sayısal değer alıp, bunu setq komutu ile dr_capi deyişkenine tanımladık.

4) Command komutunu kullanarak daire çizme işini gerçekleştirdik.

5) Autolisp programı bitmeden önce princ komutunu kullandık.


Sormak istediğiniz bir soru var mı ?

Autolisp ders no 3

Bu dersimizde Autolisp ile daire çizmeyi öğreneceğiz. Ekrandaki herhangi bir noktaya tıklayarak çizim işi gerçekleştirilecek. Bu programda daire çap değeri yada radüs değeri sorulmuyor. Setq komutuyla drcap deyişkenine değer atadık. Daire çapı 15 olarak tanımlandı.

; Daire çizme lispi

(defun c:crc1 (/ pt1 drcap)
(setq  pt1 (getpoint "\n Daire merkezi için ekrana tıkla ?! :"))
(setq drcap 15)
(command "circle"  pt1 "d" drcap)
(princ)
)

(Princ "Lisp'i çalıştırmak için  > crc1 < yazınız! [http://hqlibrary.blogspot.com] ")

Program hakkında açıklamalar :

1) İlk satırda bulunan c: sonrasındaki ifade komut ismidir.Yani buradaki komut ismi crc1 olarak belirlendi.

2) Setq komutu ile ard arda iki tane deyişken tanımladık. Bu deyişken için isim olarak pt1 dedik. Pt1 demek point1 demek, yani 1 nolu kordinat noktası demek.

3) Getpoint komutu ile kullanıcıdan ekrana tıklamasını istedik. Ekrana tıklanıldığında belli bir kordinat noktasını setq komutu ile pt1 deyişkenine tanımladık.

4) Bizlerin kordinat dediği şey  aslında x,y,z kordinatı.

5) Command komutunu kullanarak daire çizme işini gerçekleştirdik.

6) Autolisp programı bitmeden önce princ komutunu kullandık.


Autolisp ders no 1   Autolisp ders no 2   Autolisp ders no 3    Autolisp ders no 4


İletişim : Mesaj göndermek için bu yazıya tıkla !

Autolisp ders no 2

Bu dersimizde iki nokta arasında çizgi çizmeyi öğreneceğiz. Ekranda 2 noktaya tıklayarak çizgi başlangıç ve bitiş noktasını belirleyerek line komutunu kullanarak çizim işi gerçekleştirilecek

; Çizgi çizme lispi

(defun c:line2 (/ pt1 pt2 pt3)
(setq  pt1 (getpoint "\n İlk nokta için ekrana tıkla ?! :"))
(setq  pt2 (getpoint "\n İkinci nokta için ekrana tıkla ?! :"))
(setq  pt3 (getpoint "\n Üçüncü nokta için ekrana tıkla ?! :"))
(command "line"  pt1  pt2 pt3 "")
(princ)
)

(Princ "Lisp'i çalıştırmak için  > line2 < yazınız! [http://hqlibrary.blogspot.com] ")

Program hakkında açıklamalar :

1) İlk satırda bulunan c: sonrasındaki ifade komut ismidir.Yani buradaki komut ismi line2 olarak belirlendi.

2) Setq komutu ile ard arda ikitane deyişken tanımladık. Bu deyişken için isim olarak pt1 ve pt2 dedik. Pt1 demek point1 demek, yani 1 nolu kordinat noktası demek. Pt2 demek 2 nolu kordinat noktası demek. Bu programda yeni olarak pt3 deyişkeni ekledik. Böylece 3. kordinat noktasını da tanımladık.

3) Getpoint komutu ile kullanıcıdan ekrana tıklamasını istedik. Ekrana tıklanıldığında belli bir kordinat noktasını setq komutu ile pt1 deyişkenine tanımladık.

4) Bizlerin kordinat dediği şey  x,y,z kordinatı. Çizgi başlangış ve bitiş noktası için seçimi yapmak gerekiyordu. Bu programda bunu gerçekleştirdik.

5) Command komutunu kullanarak çizgi çizme işini gerçekleştirdik.

6) Autolisp programı bitmeden önce princ komutunu kullandık.


Autolisp ders no 1   Autolisp ders no 2   Autolisp ders no 3    Autolisp ders no 4


İletişim : Mesaj göndermek için bu yazıya tıkla !