Nil Yazısı çıkyor bu ne ? | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 672, Üye: 1
1923caner

Detaylar »

Forumlar > AutoLISP > Nil Yazısı çıkyor bu ne ?

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
01.01.2014 17:08 75656	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
p2 (polar p1 ang dist) p3 (polar p2 ang dist) p4 (polar p3 ang dist) (command "line" p1 p2 p3 p4 "") ; Burda line komutunu nasıl kullanıyorsan aynen o şekilde kullanıyoruz sonundaki "" enter demek bununlada komutu bitiriyoruz. Birde şu alıntı yaptığın kodları kaldır :)

01.01.2014 17:08 75657	cexparo Kıdemli Girişimci 28 ileti öğrenci manisa
Alıntı Travaci : p2 (polar p1 ang dist) p3 (polar p2 ang dist) p4 (polar p3 ang dist) (command "line" p1 p2 p3 p4 "") ; Burda line komutunu nasıl kullanıyorsan aynen o şekilde kullanıyoruz sonundaki "" enter demek bununlada komutu bitiriyoruz. p2 (polar p1 ang dist) bunları yazdıktan sonra her defasında alttakinleri yazıcakmıyım uzk (getdist "\nÇizgi uzunluğu: ") drc (getreal "\nÇizgi açısı: ")

01.01.2014 17:20 75659	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
cexparo alıntı yaparken kodları alma, hoş burda ikimizden başka kimse olmadığında göre alıntıya da gerek yok. Yukarıdaki mesajlarını düzenlersen güzel olucak :) Kod: (defun c:ciz (/ p1 uzk drc ang p2 p3 p4) (setq p1 (getpoint "\nÇizimin başlıyacağı nokta: ") uzk (getdist "\nÇizgi uzunluğu: ") drc (getreal "\nÇizgi açısı: ") ang (/ (* drc pi) 180) p2 (polar p1 ang uzk) p3 (polar p2 0 uzk) p4 (polar p3 ang uzk)) (command "line" p1 p2 p3 p4 "") )

01.01.2014 17:31 75660	cexparo Kıdemli Girişimci 28 ileti öğrenci manisa
birinci noktada başlangıç , uzunluk ve açıyı soruyor giriyorum örnek 90 derece ve 100 mm , merdiven çiziyor , diğer 3 çizginin açı ve uzunluklarını bana sormuyor

01.01.2014 17:35 75661	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Çiziceğin şeyin açısı belli ise (polar p1 ang dist) ang kısmına sen açını (radyan olarak) yazarsın deilse yukarıdaki örneğimizdeki gibi kullanıcıya sordurtursun. Çizeceğin kaz ayağı için bir nokta göstermen yeterli olucak. Travaci (01.01.2014 17:43 GMT)

01.01.2014 17:53 75663	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Yukarıdaki kodda zaten bunu örneklemedik mi ? Bir şeyleri sordurmucaksak gerekli yerlere giriyoruz dedik. p1 (getpoint) p2 (polar p1(/ (* 130 pi) 180) 1000) p3 (polar p2 0 300)

01.01.2014 18:09 75664	cexparo Kıdemli Girişimci 28 ileti öğrenci manisa
(defun c:ciz (/ p1 uzk drc ang p2 p3 p4) (setq p1 (getpoint "\nÇizimin başlıyacağı nokta: ") uzk (getdist "\nÇizgi uzunluğu: ") drc (getreal "\nÇizgi açısı: ") ang (/ (* drc pi) 180) p1 (getpoint) p2 (polar p1(/ (* 130 pi) 180) 1000) p3 (polar p2 0 300) (command "line" p1 p2 p3 p4 "")) Bu şekilde mi hocam ?

01.01.2014 18:19 75666	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Kod: (defun c:ciz (/ p1 p2 p3 ) (setq p1 (getpoint "\nÇizimin başlıyacağı nokta: ") p2 (polar p1(/ (* 130 pi) 180) 1000) p3 (polar p2 0 300)) (command "line" p1 p2 p3 "")) Travaci (01.01.2014 18:46 GMT)

01.01.2014 18:30 75668	cexparo Kıdemli Girişimci 28 ileti öğrenci manisa
hocam bu komut çalışmıyor :(

01.01.2014 18:46 75669	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Benlik bişi yok yukarıdaki bilgilerle hepsini çizebilirsin. Bir parantez eksikmiş.

02.01.2014 16:38 75671	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Cexparo sürekli aynı şeyi soruyorsun. Ayrıca yukarıda iki kere p2 vermişsin.

02.01.2014 16:48 75672	cexparo Kıdemli Girişimci 28 ileti öğrenci manisa
Hocam doğru haklısınız ama , yardım lütfen

03.01.2014 07:14 75675	ehya Yönetici 3554 ileti Teknik Ressam Ankara
:) Arkadaşlar, 40 mesaj olmuş bu konuda tek tek okumak istemiyorum.. Neyi paylaşamıyorsunuz??? :) Bi lisp ne kadar önemli ki o kadar yazı yazdınız??

03.01.2014 08:59 75677	ehya Yönetici 3554 ileti Teknik Ressam Ankara
resimdeki bilgiyle senin yazdıkların tutarsız.. - resimde 2 kutu var ama dışında ayrıca bir kutu daha var. İçteki kutular bu dıştaki kutuya göre ayarlanıyor. - kare ve dairenin değerleri otomatik olarak zaten kendisi çıkıyor. burada değişken olmaz. Ne istediğin konusunda net bir açıklama yapmalısın...

03.01.2014 09:31 75679	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Kod: (defun c:ciz () (setq p1 (getpoint "\nyerleşim yeri:") k1 (getreal "\nKare boyutu:") d1 (getreal "\nDaire boyutu")) (setq dy (/ (sqrt (* 2 (* k1 k1))) 2.0) dyeri (polar p1 (/ pi 4.0) dy)) (setq sec (ssadd)) (command "._rectangle" p1 "d" k1 k1 p1) (setq sec (ssadd (entlast) sec)) (command "_.circle" dyeri d1) (setq sec (ssadd (entlast) sec)) (command "_.copy" sec "" p1 "@0,-200") (princ) )

04.01.2014 15:10 75690	cexparo Kıdemli Girişimci 28 ileti öğrenci manisa
Alıntı ehya : Hocam Merhaba bu kodda seçtiğim noktanın tam ortasından çizmiyor yani ; kare içine daire çizdirdim ya seçtiğim nokta karenin sol tarafında kalıyor dairenin tam ortasında nasıl yapabilir , yani seçtiğim noktaya çizsin. ehya (04.01.2014 15:53 GMT)

04.01.2014 15:28 75691	ehya Yönetici 3554 ileti Teknik Ressam Ankara
F3'e basarak osnap'ı pasif duruma getirip tekrar dene...

Önceki Sayfa

[1] > 2 <