2 sayfanın 2. sayfası İlkİlk 12
27 sonuçtan 16 ila 27 arası gösteriliyor.

Konu: AutoCAD eğitimi _BEDAVA_

  1. #16
    cihan
    Alıntı Orijinal metin Omer Yilmaz tarafından gönderilmiş Mesajı Görüntüle
    2.6 ben de gördüm. 2.8 kullandım

    Böylece yaşlarımız da ortay çıkıyor.

    Ben 12 den başladım.

  2. #17
    Ben 9 ile başladım ama bir zamanlar lisp yazarken en fazla yararlandığım kitap, son bölümünde lisp bölümü olan 2.6 nın kitabı idi.
    .......__...Murat Çağıl
    /\/\/`|....Kamu yapıları yarışmayla projelendirilmeli.

  3. #18
    burçin yılmaz
    vee...sene 2008.benimde ilk kullandıgım 2007

  4. #19
    aslan38
    teşekür ederim çok anlamlı bir konuydu insanlarımızın da biraz gülmye ihityacı var

  5. #20
    aslan38
    Alıntı Orijinal metin cihan tarafından gönderilmiş Mesajı Görüntüle
    Böylece yaşlarımız da ortay çıkıyor.

    Ben 12 den başladım.


    ben bayağı geç kalmışım anlaşılan 16 :(

  6. #21
    arkadaslar autocad i bir kurs tarafından öğretilmesi daha iyi yoksa bilen bir arkadaşınızdan mı?

  7. #22
    kartal_45
    Arkadaşlar öncelikle herkese merhaba aranıza yeni katıldım.ve autocadle ilgili birçok sorum olacak öncelikle bir projeyi 2010 versiyonundan nasıl 2008 versiyonuna atabilirim.Şimdiden teşekkür ederim.

  8. #23
    aynen geç kalmışız

  9. #24
    bu linkteki

    http://www.cengizys.com/autocad-ekle...e-kisayollari/

    bu resimdeki gibi aks çizen bir lisp var orada fakat bulamadım elinde olan varsa ekleyebilirmi buraya



    Yada bõyle bir aks çizen lisp yapabilirmisiniz

  10. #25
    (defun chgterr (s)
    (if (/= s "Function cancelled")
    (princ (strcat "\nError: " s))
    )
    (setq p nil)
    (setq *error* olderr)
    (setq s nil)
    (princ)
    )
    (defun C:aks (/ nn aa sc n1 c1 n2 x a sc xx x1 b y1
    y2 da ct xc yc ob cc d1 d2 ya yaz ww dc yc
    dd da p1 p2 ww yat dat yyc ya
    )


    (setq olderr *error*
    *error* chgterr
    chm 0
    )
    (terpri)






    (princ "\n MrT Software ")
    (princ "\n İzmir Bayındırlık ve İskan Müdürlüğü")
    (setq gecerlilayer (getvar "CLAYER"))
    (setq textstili (getvar "TEXTSTYLE"))
    (setq n1 (getpoint "\nİlk aksların kesişim noktasını gösteriniz"))
    (setvar "CMDECHO" 0)
    (setvar "BLIPMODE" 0)
    ;---------------yatay aks aralıklarının alınması-------------
    ;yatay.dat dosyası açılıp veriler buraya kaydedilir
    (setq x 1)
    (setq a 1)
    (setq yat (open "yatay.dat" "w")) ;yazılabilir yatay.dat açıldı yat a atandı
    (while (= x 1) ;x değeri 1 olduğu sürece döngü devam değilse döngüden çık
    (princ "\n")
    (princ a)
    (setq ya (getint ". Yatay aralık <Son için '9' giriniz>:"))
    (if (= ya 9) ;veri girişinden çıkmanın yolu 9 girmek
    (setq x 0)
    (setq sc a)
    )
    (setq a (+ sc 1))
    (print ya yat) ;yat dosyasına yazıldı
    )
    (close yat)
    ;------------------------------------------------------------


    ;---------------dikey aks aralıklarının alınması-------------
    ;dikey.dat dosyası açılıp veriler buraya kaydedilir;
    (setq x 1) ;
    (setq b 1) ;
    (setq dik (open "dikey.dat" "w")) ;
    (while (= x 1) ;
    (princ "\n") ;
    (princ b) ;
    (setq da (getint ". Dikey aralık <Son için '9' giriniz>:")) ;
    (if (= da 9) ;
    (setq x 0) ;
    (setq sc b) ;
    ) ;
    (setq b (+ sc 1)) ;
    (print da dik) ;
    ) ;
    (close dik) ;
    ;------------------------------------------------------------




    ;yatay aks aralıkları okunarak toplam boy bulunuyor
    (setq yat (open "yatay.dat" "r")) ;yatay.dat read özellikte açılıyor
    (setq x 1)
    (setq yyc 0)
    (while (= x 1) ;x 1 ise döngüye devam et
    (setq yy (read-line yat))
    (setq ya (atoi yy)) ; text olarak okunan sayısal değere dönüştürülüyor
    (if (= ya 9) ;9 değerdinde okuma bitiriliyor
    (setq x 0) ;eşitse bu
    ;---------------------------------------------------------------------------------------------------------------------


    1995 yılında yazmışım eski bir lisp ama belki işinizi görebilir.
    yıllardır foruma da yazmıyoruz dosya olarak yükleyemedim
    kopyala yapıştır ile autocad lisp editor e aktarabilirsiniz.
    iyi çalışmalar.
    .......__...Murat Çağıl
    /\/\/`|....Kamu yapıları yarışmayla projelendirilmeli.

  11. #26
    ben bu kodları çalıştıramadım rica etsem lisp olarak eklermisiniz.

  12. #27
    Autocad içinde çalışan aks lisp dosyası lazım zamanında arkadaşlar paylaşmış linkler yok olmuş
    rica etsem kodları değil lisp dosyasını buraya eklermisiniz.

Konu ile İlgili Bilgi

Users Browsing this Thread

1 adet kullanıcı bu konuyu ziyaret ediyor. (0 üye ve 1 ziyaretçi)

Mesaj Yazma Hakları

  • Yeni mesaj gönderemezsiniz
  • Mesajlara cevap veremezsiniz
  • Mesajlara ek yükleyemezsiniz
  • Mesajlarınızı düzenleyemezsiniz
  •