Thông báo

Collapse
No announcement yet.

Tặng anh em Xây dựng cai Lisp Vẽ mặt bằng Lanh tô

Collapse
X
 
  • Lọc
  • Giờ
  • Show
Clear All
new posts

  • Tặng anh em Xây dựng cai Lisp Vẽ mặt bằng Lanh tô

    Tui mới viết cái lisp nhỏ để vẽ mặt bằng Lanh tô tặng các bạn dùng thử:

    *************************************************
    (defun C:TL()
    (Setq Tle (Getreal "Nhap Ti le(10) "))
    (if
    (= Tle nil)
    (setq Tle 10)
    )
    )
    (defun C:Blt()
    (Setq Blt (Getreal "Nhap Be rong Lanh to(110) "))
    (if
    (= Blt nil)
    (setq Blt 110)
    )
    )
    (defun C:Lt(/ d1 d2 da Goc chon)
    (setvar "OSMODE" 130)
    (setq da (Getpoint"\nDiem dau D1 :"))
    (setq db (GetPoint"\nDiem cuoi D2:" da))
    (setq Goc(Angle da db))
    (setvar "OSMODE" 0)
    (setq da (Polar da Goc (/ -110 Tle)))
    (setq db (Polar db Goc (/ 110 Tle)))
    (setq d1 (Polar da (+(/ Pi 2) Goc) (/ (/ Blt 2) Tle)))
    (setq d2 (Polar db (- Goc (/ Pi 2)) (/ (/ Blt 2) Tle)))
    (Command"LAYER" "M" "Hatch""")
    (command "Rectang" d1 d2 "")
    (setq chon (ssget "L"))
    (Command "Hatch" "DOTS" "5" "0" chon "")
    (Command"LAYER" "M" "Dim""")
    (setvar "OSMODE" 675)
    )
    ********************************************

    Các bạn vẽ trên bản vẽ kiến trúc chỉ cần bắt 2 điểm là đã có 1 cai lanh tô như ý.Cần nhập bề rộng và Tỉ lệ trước khi vẽ lanh tô.Chúc thanh công.Trong ban ve phải có Layer Hatch và Dim.

  • #2
    Ðề: Tặng anh em Xây dựng cai Lisp Vẽ mặt bằng Lanh tô

    Nó không hỏi nhập bề rộnghay tỉ lệ mà nó đòi luôn D1 và D2

    Command: lt

    Diem dau D1 :
    Diem cuoi D2:; error: bad argument type: numberp: nil
    KỈ SỞ BẤT DỤC - VẬT THI Ư NHÂN
    Mail: minhbu107@gmail.com
    Add: Thủ Dầu Một - Bình Dương.
    Tel: 0982.391379

    Ghi chú


    • #3
      Ðề: Tặng anh em Xây dựng cai Lisp Vẽ mặt bằng Lanh tô

      Để gọi hàm tle và blt thì bạn phải khai báo hàm thủ tục,rồi load nó khi dùng program chính lt chứ..Code trên rõ ràng là có vấn đề ^^

      Ghi chú

      deneme bonusu veren siteler deneme bonusu deneme bonusu veren siteler
      bahis siteleri
      hd sex video
      Mobilbahis
      antalya escort bayan
      bostanci escort pendik escort
      İstanbul Escort
      Car Fuck XXX Мужик отчаянно долбит в жопу шмеля sexo gay gratis xxxx
      deneme bonusu veren siteler deneme bonusu veren siteler bonus veren siteler
      ümraniye escort sancaktepe escort
      quixproc.com
      Small tits girlfriend fucking pussy xxx com hindi Beatriz is young a new in porn Real adult sex with teen babe xxx
      deneme bonusu veren siteler
      alanya escort
      deneme bonusu bonus veren siteler
      deneme bonusu veren siteler
      deneme bonusu veren siteler
      deneme bonusu
      redriverlanes.com
      casino siteleri
      alanya escort gaziantep escort gaziantep escort gaziantep escort mersin escort
      onwin
      deneme bonusu veren siteler
      deneme bonusu veren siteler grandpashabet
      deneme bonusu veren siteler deneme bonusu veren siteler
      casino siteleri
      deneme bonusu veren siteler
      streameast
      casino siteleri
      crackstreams
      streameast
      streameast
      streameast
      crackstreams
      Working...
      X