| ADeko Technologies http://www.adeko.com/phpBB3/ |
|
| dişli çizimi gear.lsp http://www.adeko.com/phpBB3/viewtopic.php?f=7&t=1436 |
1. sayfa (Toplam 1 sayfa) |
| Yazar: | onur [ 25 Mar 2006 11:33 ] |
| Mesaj Başlığı: | dişli çizimi gear.lsp |
internet üzerinden birkaç gear.lsp indirdirdim ama pek randıman alamadım ve çoğu çalışmadı mümkünse randumanlı çalışan bir gear.lsp |
|
| Yazar: | Destek/Support [ 25 Mar 2006 14:42 ] |
| Mesaj Başlığı: | |
Aşağıdaki kodu internette buldum, biraz değiştirdim. İşinizi çözer mi? [code](defun C:DISLI (/ p1 p2 r1 r2 n ang ang1 ang2 cmd blip a1 a2 a3 a4 a5) (setq p1 (getpoint "\nDişlinin merkezi: ") p2 (getpoint p1 "\nDış yarıçapı: ") r1 (getdist P1 "\nİç yarıçapı: ") n (getint "\nDiş sayısı <10>:")) (if (null n)(setq n 10)) (setq ang (angle p1 p2) r2 (distance p1 p2) ang1 (/ (* 2.0 pi) n) ang2 (/ ang1 6.0) cmd (getvar "CMDECHO") blip (getvar "BLIPMODE") ) (setvar "CMDECHO" 0) (setvar "BLIPMODE" 0) (command "_.POLYLINE") (repeat n (setq ang (+ ang ang1)) (setq a1 (polar p1 ang r1) a2 (polar p1 (+ ang ang2) r2) a3 (polar p1 (+ ang (* 3 ang2)) r2) a4 (polar p1 (+ ang (* 4 ang2)) r1) a5 (polar p1 (+ ang (* 6 ang2)) r1)) (command a1 a2 a3 a4 a5) ) (command "") (setvar "BLIPMODE" blip) (setvar "CMDECHO" cmd) (princ) ) [/code] |
|
| 1. sayfa (Toplam 1 sayfa) | Tüm zamanlar UTC + 2 saat [ GITZ ] |
| Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |
|