Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Giúp các bé đáng thương ấy với

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Tuyển uploader dự án Safeshared có thu nhập

Ngập tràn ưu đãi cho tín đồ công nghệ tại sony show 2014

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tuyển Mod box Mobile
Trang 1/2 1 2 cuốicuối
kết quả từ 1 tới 15 trên 22
  1. #1
    nvcboot's Avatar
    nvcboot vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Mar 2010
    Đến từ
    quận 13
    Bài
    73
    Cảm ơn
    13
    Điểm
    620/36 bài viết

    Default [ chuyên đề ] Autolisp trong Autocad - tự động hóa thiết kế !!! [ từ căn bản đến nâng cao ]




    Lisp là chữ viết tắt của cụm từ tiếng anh : List Processor
    Autolisp là một ứng dụng của ngôn ngữ Lisp được sử dụng trong môi trường AutoCad. Với AutoLisp người dùng có thể mở rộng và tuỳ biến các chức năng của AutoCad.
    Hiện nay AutoLisp đã được hãng AutoDesk phát triển theo các số hiệu phát hành của AutoCad. Về căn bản những phiên bản sau vẫn sử dụng được những chương trình lập bằng phiên bản trước, ngược lại thì không được do có một số biến hệ thống và lệnh của AutoCad giữa các phiên bản trước và sau không giống nhau nên việc dùng chung có gặp một số trở ngại.
    AutoLisp là một ngôn ngữ lập trình thông dịch, nghĩa là dịch đến dòng nào thực hiện dòng đó và cho kết quả, không có trình biên dịch riêng. Một tập hợp các câu lệnh của AutoLisp được gọi là hàm Lisp và tệp chứa các file đó gọi là tệp Lisp có phần mở rộng là *.Lsp.
    Với AutoLisp, người dùng có thể dễ dàng truy cập đến dữ liệu của AutoCad, có thể thay đổi, tạo mới, xoá bỏ các đối tượng, thêm các thông tin vào bản vẽ thực hiện các công việc tự động hoá trong thiêt kế.

    Tại liệu dưới đây sẽ giúp bạn học một cách cơ bản nhất để có thể viết và sử dụng những tính năng đó:





    ( nhấn skip ad để down nha)

    pass:
    pass unrar: nvcboot
    Thay đổi nội dung bởi nvcboot; 27-11-2011 lúc 16:07.

  2. Có 15 thành viên cảm ơn nvcboot cho bài viết này:
    0984642474 (02-03-2011), anhlavjpboy (14-10-2011), asuz12345 (03-01-2012), caydenban (20-02-2012), daigia007 (05-06-2011), dotrduong (27-07-2013), huyvut814 (26-08-2012), khanhcdm (19-01-2011), nanhsoi (16-06-2011), thangbomtn (03-07-2011), thukxtb (28-05-2011), tommyn1 (17-08-2011), trunghung91 (14-03-2012), vinhphu0901 (31-12-2010), [Z]eus (17-09-2011)

  3. #2
    vinhphu0901's Avatar
    vinhphu0901 vẫn chưa có mặt trong diễn đàn Rìu Chiến Chấm
    Tham gia
    May 2009
    Đến từ
    Hue, Vietnam, Vietnam
    Bài
    2.101
    Cảm ơn
    5.392
    Điểm
    1.297/424 bài viết

    Default

    cám ơn bạn nhiều
    cái này hay lắm

  4. #3
    mjaka's Avatar
    mjaka vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Apr 2009
    Bài
    4
    Cảm ơn
    0
    Điểm: 1/1 bài viết

    Default thank bạn nhiều nha!

    hihi hãy up nhiều tài liệu nữa bạn nhé

  5. #4
    tuan868192's Avatar
    tuan868192 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Sep 2009
    Bài
    1
    Cảm ơn
    0
    Điểm: 2/1 bài viết

    Default thanks!thanks!

    thanks! thanks!
    Trích nvcboot View Post



    Lisp là chữ viết tắt của cụm từ tiếng anh : List Processor
    Autolisp là một ứng dụng của ngôn ngữ Lisp được sử dụng trong môi trường AutoCad. Với AutoLisp người dùng có thể mở rộng và tuỳ biến các chức năng của AutoCad.
    Hiện nay AutoLisp đã được hãng AutoDesk phát triển theo các số hiệu phát hành của AutoCad. Về căn bản những phiên bản sau vẫn sử dụng được những chương trình lập bằng phiên bản trước, ngược lại thì không được do có một số biến hệ thống và lệnh của AutoCad giữa các phiên bản trước và sau không giống nhau nên việc dùng chung có gặp một số trở ngại.
    AutoLisp là một ngôn ngữ lập trình thông dịch, nghĩa là dịch đến dòng nào thực hiện dòng đó và cho kết quả, không có trình biên dịch riêng. Một tập hợp các câu lệnh của AutoLisp được gọi là hàm Lisp và tệp chứa các file đó gọi là tệp Lisp có phần mở rộng là *.Lsp.
    Với AutoLisp, người dùng có thể dễ dàng truy cập đến dữ liệu của AutoCad, có thể thay đổi, tạo mới, xoá bỏ các đối tượng, thêm các thông tin vào bản vẽ thực hiện các công việc tự động hoá trong thiêt kế.

    Tại liệu dưới đây sẽ giúp bạn học một cách cơ bản nhất để có thể viết và sử dụng những tính năng đó:
    Code:
    http://www.mediafire.com/?xid2w12384jyvgg
    http://www.mediafire.com/?ex5oi90wonmzn9f
    http://www.mediafire.com/?4wb46sw9qygaj8g
    http://www.mediafire.com/?u0981dtajp54y7v
    http://www.mediafire.com/?euwx5b8dtf35t8t
    pass: nvcboot

  6. Có 2 thành viên cảm ơn tuan868192 cho bài viết này:
    huyan0702 (01-12-2011), kiennguyen22 (04-07-2011)

  7. #5
    one_love_nhd's Avatar
    one_love_nhd vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Oct 2010
    Bài
    6
    Cảm ơn
    7
    Điểm
    0/0 bài viết

    Default

    cám ơn bạn nhiều nha.
    Trích nvcboot View Post



    Lisp là chữ viết tắt của cụm từ tiếng anh : List Processor
    Autolisp là một ứng dụng của ngôn ngữ Lisp được sử dụng trong môi trường AutoCad. Với AutoLisp người dùng có thể mở rộng và tuỳ biến các chức năng của AutoCad.
    Hiện nay AutoLisp đã được hãng AutoDesk phát triển theo các số hiệu phát hành của AutoCad. Về căn bản những phiên bản sau vẫn sử dụng được những chương trình lập bằng phiên bản trước, ngược lại thì không được do có một số biến hệ thống và lệnh của AutoCad giữa các phiên bản trước và sau không giống nhau nên việc dùng chung có gặp một số trở ngại.
    AutoLisp là một ngôn ngữ lập trình thông dịch, nghĩa là dịch đến dòng nào thực hiện dòng đó và cho kết quả, không có trình biên dịch riêng. Một tập hợp các câu lệnh của AutoLisp được gọi là hàm Lisp và tệp chứa các file đó gọi là tệp Lisp có phần mở rộng là *.Lsp.
    Với AutoLisp, người dùng có thể dễ dàng truy cập đến dữ liệu của AutoCad, có thể thay đổi, tạo mới, xoá bỏ các đối tượng, thêm các thông tin vào bản vẽ thực hiện các công việc tự động hoá trong thiêt kế.

    Tại liệu dưới đây sẽ giúp bạn học một cách cơ bản nhất để có thể viết và sử dụng những tính năng đó:





    ( nhấn skip ad để down nha)


    pass: nvcboot

  8. #6
    phuocmamut's Avatar
    phuocmamut vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Mar 2010
    Bài
    20
    Cảm ơn
    16
    Điểm: 1/1 bài viết

    Default

    thanks bac nhieu nha dang downloads

  9. #7
    khuo12n3g's Avatar
    khuo12n3g vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Mar 2010
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    sao pass không được bạn ơi!

  10. #8
    maiquyen0185's Avatar
    maiquyen0185 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Oct 2010
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    thanks ban nha.hay cung share cung tien bo nhe

  11. #9
    nanhsoi's Avatar
    nanhsoi vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Mar 2008
    Bài
    70
    Cảm ơn
    90
    Điểm
    15/14 bài viết

    Default

    hay wa', thanks

  12. #10
    contrung's Avatar
    contrung vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    May 2008
    Bài
    45
    Cảm ơn
    4
    Điểm: 1/1 bài viết

    Default chỉnh sửa lisp giùm mình

    xin chào các bác.
    em có cái lisp này load lên cad 2007 mà nó báo lỗi.mong các bác tìm ra lỗi và sửa lại giùm em với nha.
    đây là lisp định tỷ lệ trong cad dành cho những ai mới làm quen cad
    lệnh: vmc

    (defun init()
    (setq cmd (getvar "cmdecho"))
    (setq blip (getvar "blipmode"))
    (setvar "blipmode" 0)
    (setvar "cmdecho" 0)
    (command "style" "Chuviet" ".VnArial Narrow" "" "" "" "" "" "")
    (command "layer" "m" "Khung" "c" "green" "" "l" "continuous" "" "")
    (command "layer" "m" "Duong1" "c" "red" "" "l" "continuous" "" "")
    (command "layer" "m" "Duong2" "c" "yellow" "" "l" "continuous" "" "")
    (command "layer" "m" "Duong2dut" "c" "yellow" "" "l" "dashed" "" "")
    (setvar "dimdec" 3)
    (setvar "dimtxt" 1.5)
    (setvar "dimasz" 1.5)
    (command "osnap" "none" "")
    )
    ;--------------------------------------------------------------------------------------------
    (defun reinit()
    (setvar "blipmode" 1)
    (setvar "cmdecho" 1)
    )
    ;---------------------------------------------------------------------------------------------
    (defun VeKhung(TyLe)
    (command "layer" "s" "Khung" "")
    (command "style" "Chuviet" ".VnArial Narrow" "" "" "" "" "" "")
    (setq GocTraiDuoi (getpoint "\nChon diem goc trai duoi cua mat cat : "))
    (setq Xgtd (nth 0 GocTraiDuoi)
    Ygtd (nth 1 GocTraiDuoi))
    (command "line" (list Xgtd Ygtd) (list Xgtd (+ Ygtd 60)) "")
    (command "line" (list (+ Xgtd 60) Ygtd) (list (+ Xgtd 60) (+ Ygtd 60)) "")
    (command "line" (list (+ Xgtd 62) Ygtd) (list (+ Xgtd 62) (+ Ygtd 60)) "")
    (setq i 0)
    (repeat 7
    (command "line" (list Xgtd (+ Ygtd (* i 10))) (list (+ Xgtd 60) (+ Ygtd (* i 10))) "")
    (setq i (+ i 1))
    )
    (command "text" "j" "ml" (list (+ Xgtd 3) (+ Ygtd 55)) 3.0 0 "Cao ®é tù nhiªn")
    (command "text" "j" "ml" (list (+ Xgtd 3) (+ Ygtd 45)) 3.0 0 "Kho¶ng c¸ch tù nhiªn")
    (command "text" "j" "ml" (list (+ Xgtd 3) (+ Ygtd 35)) 3.0 0 "Kho¶ng c¸ch céng dån")
    (command "text" "j" "ml" (list (+ Xgtd 3) (+ Ygtd 25)) 3.0 0 "Cao ®é thiÕt kÕ")
    (command "text" "j" "ml" (list (+ Xgtd 3) (+ Ygtd 15)) 3.0 0 "Kho¶ng c¸ch thiÕt kÕ")
    (command "text" "j" "ml" (list (+ Xgtd 3) (+ Ygtd 5)) 3.0 0 "Kho¶ng c¸ch céng dån")
    (setq i 0)
    (repeat 7
    (command "line" (list (+ Xgtd 62) (+ Ygtd (* i 10))) (list (+ Xgtd 48 (* ChieuDaiSoBo TyLe)) (+ Ygtd (* i 10))) "")
    (setq i (+ i 1))
    )
    )
    ;----------------------------------------------------------------------
    (defun VeBenPhai(CaoDoSoSanh CaoDoBatDau tl KhoangCachCongDon Xbdau Ybatdau DuongVe)
    (setq Hbd (- CaoDoBatDau CaoDoSoSanh)
    Xbatdau (+ Xbdau (* KhoangCachCongDon tl))
    Pbatdau (list Xbatdau (+ Ybatdau (* Hbd tl)))
    )
    (if (= DuongVe 1) (progn
    (command "layer" "s" "Duong1" "")
    ) (progn
    (command "ltscale" 5 "")
    (command "layer" "s" "Duong2" "")
    )
    ) ;Het ham if
    (while (setq KC (getreal "\nNhap khoang cach PHAI<Enter = Ket thuc> : "))
    (setq Hp (getreal "\nNhap cao do : "))
    (if (> Hp Hmax) (setq Hmax Hp) (setq Hmax Hmax))
    (setq Hve (- Hp CaoDoSoSanh)
    cdon (+ KhoangCachCongDon KC)
    Xve (+ Xbatdau (* KC tl))
    Pve1 (list Xve (+ Ybatdau (* Hve tl)))
    Pve2 (list Xve Ybatdau)
    )
    (if (= DuongVe 1)
    (setq Pve21 (list Xve (- Ybatdau 5))
    Pve3 (list Xve (- Ybatdau 10))
    Pve4 (list Xve (- Ybatdau 20))
    Pve41 (list (- Xve (* (/ KC 2) tl)) (- Ybatdau 15))
    Pve5 (list Xve (- Ybatdau 25))
    )
    (setq Pve21 (list Xve (- Ybatdau 35))
    Pve3 (list Xve (- Ybatdau 40))
    Pve4 (list Xve (- Ybatdau 50))
    Pve41 (list (- Xve (* (/ KC 2) tl)) (- Ybatdau 45))
    Pve5 (list Xve (- Ybatdau 55))
    )
    )
    (command "line" Pve3 Pve4 "") ;Ve duong khoang cach
    (command "line" Pve1 Pve2 "") ;Ve duong dong
    (if (= DuongVe 1)
    (command ".line" Pbatdau Pve1 "")
    (progn
    (command "layer" "s" "Duong2dut" "")
    (command "line" Pbatdau Pve1 "")
    (command "layer" "s" "Duong2" "")
    ))
    (setvar "textstyle" "standard")
    (command "text" "j" "mc" Pve21 1.6 90 (rtos Hp 2 2)) ;Ghi cao do
    (cond
    ((> (* KC tl) 6) (command "text" "j" "mc" Pve41 1.6 0 (rtos KC 2 2)))
    ((> (* KC tl) 1.5) (command "text" "j" "mc" Pve41 1.2 90 (rtos KC 2 2)))
    ((<= (* KC tl) 1.5) (command "text" "j" "mc" (list (nth 0 Pve41) (- (nth 1 Pve41) 6)) 1.0 0 (rtos KC 2 2)))
    )
    (command "text" "j" "mc" Pve5 1.6 90 (rtos cdon 2 2)) ;Ghi khoang cach cong don
    (setq KhoangCachCongDon cdon
    Xbatdau Xve
    Pbatdau Pve1)
    ) ;Het vong lap
    )
    ;------------------------------------------------------------------------------------------------
    (defun VeBenTrai(CaoDoSoSanh CaoDoBatDau tl KhoangCachCongDon Xbdau Ybatdau DuongVe)
    (if (= DuongVe 1)
    (command "layer" "s" "Duong1" "")
    (command "layer" "s" "Duong2" "")
    )
    (setq Hbd (- CaoDoBatDau CaoDoSoSanh)
    Xbatdau (- Xbdau (* KhoangCachCongDon tl))
    Pbatdau (list Xbatdau (+ Ybatdau (* Hbd tl)))
    )
    (while (setq KC (getreal "\nNhap khoang cach TRAI<Enter = Ket thuc> : "))
    (setq Ht (getreal "\nNhap cao do : "))
    (if (> Ht Hmax) (setq Hmax Ht) (setq Hmax Hmax))
    (setq Hve (- Ht CaoDoSoSanh)
    cdon (+ KhoangCachCongDon KC)
    Xve (- Xbatdau (* KC tl))
    Pve1 (list Xve (+ Ybatdau (* Hve tl)))
    Pve2 (list Xve Ybatdau)
    )
    (if (= DuongVe 1)
    (setq Pve21 (list Xve (- Ybatdau 5))
    Pve3 (list Xve (- Ybatdau 10))
    Pve4 (list Xve (- Ybatdau 20))
    Pve41 (list (+ Xve (* (/ KC 2) tl)) (- Ybatdau 15))
    Pve5 (list Xve (- Ybatdau 25))
    )
    (setq Pve21 (list Xve (- Ybatdau 35))
    Pve3 (list Xve (- Ybatdau 40))
    Pve4 (list Xve (- Ybatdau 50))
    Pve41 (list (+ Xve (* (/ KC 2) tl)) (- Ybatdau 45))
    Pve5 (list Xve (- Ybatdau 55))
    )
    )
    (command "line" Pve3 Pve4 "") ;Ve duong khoang cach
    (command "line" Pve1 Pve2 "") ;Ve duong dong
    (if (= DuongVe 1)
    (command ".line" Pbatdau Pve1 "")
    (progn
    (command "layer" "s" "Duong2dut" "")
    (command "line" Pbatdau Pve1 "")
    (command "layer" "s" "Duong2" "")
    ))
    (setvar "textstyle" "standard")
    (command "text" "j" "mc" Pve21 1.6 90 (rtos Ht 2 2)) ;Ghi cao do
    (cond
    ((> (* KC tl) 6) (command "text" "j" "mc" Pve41 1.6 0 (rtos KC 2 2)))
    ((> (* KC tl) 1.5) (command "text" "j" "mc" Pve41 1.2 90 (rtos KC 2 2)))
    ((<= (* KC tl) 1.5) (command "text" "j" "mc" (list (nth 0 Pve41) (- (nth 1 Pve41) 6)) 1.0 0 (rtos KC 2 2)))
    )
    (command "text" "j" "mc" Pve5 1.6 90 (rtos cdon 2 2)) ;Ghi khoang cach cong don
    (setq KhoangCachCongDon cdon
    Xbatdau Xve
    Pbatdau Pve1)
    ) ;Het vong lap
    )
    ;------------------------------------------------------------------------------------------------
    (defun VeBenPhaifile(CaoDoSoSanh tl KhoangCachCongDon Xbdau Ybatdau DuongVe)
    (setq thu (open "D:\\Autolip\\vmc.txt" "r"))
    (setq CaoDoBatDau (atof (read-line thu)))
    (setq SoLuong (atoi (read-line thu)))
    (setq Hbd (- CaoDoBatDau CaoDoSoSanh)
    Xbatdau (+ Xbdau (* KhoangCachCongDon tl))
    Pbatdau (list Xbatdau (+ Ybatdau (* Hbd tl)))
    )
    (if (= DuongVe 1) (progn
    (command "layer" "s" "Duong1" "")
    (command "text" "j" "mc" (list Xbd (- Ybd 5)) 1.6 90 (rtos CaoDoBatDau 2 2))
    (command "line" (list Xbd (- Ybd 10)) (list Xbd (- Ybd 20)) "")
    (command "text" "j" "mc" (list Xbd (- Ybd 25)) 1.6 90 "0.00")
    ) (progn
    (command "ltscale" 5 "")
    (command "layer" "s" "Duong2" "")
    (command "text" "j" "mc" (list Xbd (- Ybd 35)) 1.6 90 (rtos CaoDoBatDau 2 2))
    (command "line" (list Xbd (- Ybd 40)) (list Xbd (- Ybd 50)) "")
    (command "text" "j" "mc" (list Xbd (- Ybd 55)) 1.6 90 "0.00")
    )
    ) ;Het ham if
    (repeat SoLuong
    (setq KC (atof (read-line thu)))
    (setq Hp (atof (read-line thu)))
    (if (> Hp Hmax) (setq Hmax Hp) (setq Hmax Hmax))
    (setq Hve (- Hp CaoDoSoSanh)
    cdon (+ KhoangCachCongDon KC)
    Xve (+ Xbatdau (* KC tl))
    Pve1 (list Xve (+ Ybatdau (* Hve tl)))
    Pve2 (list Xve Ybatdau)
    )
    (if (= DuongVe 1)
    (setq Pve21 (list Xve (- Ybatdau 5))
    Pve3 (list Xve (- Ybatdau 10))
    Pve4 (list Xve (- Ybatdau 20))
    Pve41 (list (+ Xve (* (/ KC 2) tl)) (- Ybatdau 15))
    Pve5 (list Xve (- Ybatdau 25))
    )
    (setq Pve21 (list Xve (- Ybatdau 35))
    Pve3 (list Xve (- Ybatdau 40))
    Pve4 (list Xve (- Ybatdau 50))
    Pve41 (list (+ Xve (* (/ KC 2) tl)) (- Ybatdau 45))
    Pve5 (list Xve (- Ybatdau 55))
    )
    )
    (command "line" Pve3 Pve4 "") ;Ve duong khoang cach
    (command "line" Pve1 Pve2 "") ;Ve duong dong
    (if (= DuongVe 1)
    (command ".line" Pbatdau Pve1 "")
    (progn
    (command "layer" "s" "Duong2dut" "")
    (command "line" Pbatdau Pve1 "")
    (command "layer" "s" "Duong2" "")
    ))
    (setvar "textstyle" "standard")
    (command "text" "j" "mc" Pve21 1.6 90 (rtos Hp 2 2)) ;Ghi cao do
    (cond
    ((> (* KC tl) 6) (command "text" "j" "mc" Pve41 1.6 0 (rtos KC 2 2)))
    ((> (* KC tl) 1.5) (command "text" "j" "mc" Pve41 1.2 90 (rtos KC 2 2)))
    ((<= (* KC tl) 1.5) (command "text" "j" "mc" (list (nth 0 Pve41) (- (nth 1 Pve41) 6)) 1.0 0 (rtos KC 2 2)))
    )
    (command "text" "j" "mc" Pve5 1.6 90 (rtos cdon 2 2)) ;Ghi khoang cach cong don
    (setq KhoangCachCongDon cdon
    Xbatdau Xve
    Pbatdau Pve1)
    ) ;Het vong lap
    )
    ;------------------------------------------------------------------------------------------------
    (defun VeBenTraifile(CaoDoSoSanh tl KhoangCachCongDon Xbdau Ybatdau DuongVe)
    (if (= DuongVe 1)
    (command "layer" "s" "Duong1" "")
    (command "layer" "s" "Duong2" "")
    )
    (setq Hbd (- CaoDoBatDau CaoDoSoSanh)
    Xbatdau (- Xbdau (* KhoangCachCongDon tl))
    Pbatdau (list Xbatdau (+ Ybatdau (* Hbd tl)))
    )
    (setq SoLuong (atoi (read-line thu)))
    (repeat SoLuong
    (setq KC (atof (read-line thu)))
    (setq Ht (atof (read-line thu)))
    (if (> Ht Hmax) (setq Hmax Ht) (setq Hmax Hmax))
    (setq Hve (- Ht CaoDoSoSanh)
    cdon (+ KhoangCachCongDon KC)
    Xve (- Xbatdau (* KC tl))
    Pve1 (list Xve (+ Ybatdau (* Hve tl)))
    Pve2 (list Xve Ybatdau)
    )
    (if (= DuongVe 1)
    (setq Pve21 (list Xve (- Ybatdau 5))
    Pve3 (list Xve (- Ybatdau 10))
    Pve4 (list Xve (- Ybatdau 20))
    Pve41 (list (+ Xve (* (/ KC 2) tl)) (- Ybatdau 15))
    Pve5 (list Xve (- Ybatdau 25))
    )
    (setq Pve21 (list Xve (- Ybatdau 35))
    Pve3 (list Xve (- Ybatdau 40))
    Pve4 (list Xve (- Ybatdau 50))
    Pve41 (list (+ Xve (* (/ KC 2) tl)) (- Ybatdau 45))
    Pve5 (list Xve (- Ybatdau 55))
    )
    )
    (command "line" Pve3 Pve4 "") ;Ve duong khoang cach
    (command "line" Pve1 Pve2 "") ;Ve duong dong
    (if (= DuongVe 1)
    (command ".line" Pbatdau Pve1 "")
    (progn
    (command "layer" "s" "Duong2dut" "")
    (command "line" Pbatdau Pve1 "")
    (command "layer" "s" "Duong2" "")
    ))
    (setvar "textstyle" "standard")
    (command "text" "j" "mc" Pve21 1.6 90 (rtos Ht 2 2)) ;Ghi cao do
    (cond
    ((> (* KC tl) 6) (command "text" "j" "mc" Pve41 1.6 0 (rtos KC 2 2)))
    ((> (* KC tl) 1.5) (command "text" "j" "mc" Pve41 1.2 90 (rtos KC 2 2)))
    ((<= (* KC tl) 1.5) (command "text" "j" "mc" (list (nth 0 Pve41) (- (nth 1 Pve41) 6)) 1.0 0 (rtos KC 2 2)))
    )
    (command "text" "j" "mc" Pve5 1.6 90 (rtos cdon 2 2)) ;Ghi khoang cach cong don
    (setq KhoangCachCongDon cdon
    Xbatdau Xve
    Pbatdau Pve1)
    ) ;Het vong lap
    (close thu)
    )
    ;------------------------------------------------------------------------------------------------
    (defun TenMC(tenmatcat cdss Hmax2)
    (command "layer" "m" "TenMatCat" "c" "magenta" "" "l" "center" "" "")
    (command "layer" "s" "TenMatCat" "")
    (command "style" "Chuviet" ".VnArial Narrow" "" "" "" "" "" "")
    (setq Ten tenmatcat)
    (setq Xtim (+ Xgtd 60 (* (/ ChieuDaiSoBo 2) tl)))
    (setq Ytimd (+ Ygtd 60))
    (setq Ytimt (+ Ytimd 15 (* (- Hmax2 cdss) tl)))
    (command "line" (list Xtim Ytimd) (list Xtim Ytimt) "")
    (command "text" "j" "ml" (list (+ Xgtd 5) (+ Ytimd 5)) 3.0 0 (strcat "Cao ®é so s¸nh: " (rtos cdss 2 0)))
    (command "text" "j" "mc" (list Xtim (- Ygtd 4)) 3.0 0 (strcat "%%u" Ten))
    )
    ;------------------------------------------------------------------------------------------------
    (defun VeThuocDung(Hmax Hss HeSo)
    (command "layer" "s" "Khung" "")
    (command "style" "Chuviet" ".VnArial Narrow" "" "" "" "" "" "")
    (setq Hss1 Hss Hthuoc Hss i 0 j 0)
    (while (< Hthuoc Hmax)
    (setq Hthuoc (+ Hss1 (* i HeSo)))
    (setq Hss1 Hthuoc i (+ i 1))
    )
    (setvar "textstyle" "standard")
    (command "line" (list (+ Xgtd 46) (+ Ygtd 70)) (list (+ Xgtd 46) (+ Ygtd 70 (* i 10))) "")
    (command "line" (list (+ Xgtd 45) (+ Ygtd 70)) (list (+ Xgtd 45) (+ Ygtd 70 (* i 10))) "")
    (repeat (+ i 1)
    (command "line" (list (+ Xgtd 46) (+ Ygtd 70 (* j 10))) (list (+ Xgtd 44.5) (+ Ygtd 70 (* j 10))) "")
    (if (= HeSo 0.5)
    (command "text" "j" "mr" (list (+ Xgtd 44.5) (+ Ygtd 70 (* j 10))) 1.6 0 (rtos (+ Hss (* 1 HeSo) (* j HeSo)) 2 1))
    (command "text" "j" "mr" (list (+ Xgtd 44.5) (+ Ygtd 70 (* j 10))) 1.6 0 (rtos (+ Hss (* 1 HeSo) (* j HeSo)) 2 0))
    )
    (setq j (+ j 1))
    )
    (setq k 0)
    (repeat (/ (+ i 1) 2)
    (command "line" (list (+ Xgtd 45.5) (+ Ygtd 70 k)) (list (+ Xgtd 45.5) (+ Ygtd 80 k)) "")
    (setq k (+ k 20))
    )
    (setvar "textstyle" "Chuviet")
    (command "text" "j" "mr" (list (+ Xgtd 46) (+ Ygtd 73 (* i 10))) 1.6 0 "Cao ñoä (m)")
    )
    ;------------------------------------------------------------------------------------------------
    (defun VeThuocNgang(TyLeVe HeSo)
    (command "layer" "s" "Khung" "")
    (command "style" "Chuviet" ".VnArial Narrow" "" "" "" "" "" "")
    (command "text" "j" "mc" (list (+ Xgtd 10) (- Ygtd 2.5)) 2.5 0 (strcat "Tyû leä (1/" (itoa TyLeVe) ")"))
    (command "line" (list Xgtd (- Ygtd 10)) (list (+ Xgtd 50) (- Ygtd 10)) "")
    (setq i 0 j 0)
    (repeat 6
    (command "line" (list (+ Xgtd i) (- Ygtd 8)) (list (+ Xgtd i) (- Ygtd 10)) "")
    (setvar "textstyle" "standard")
    (if (= TyLeVe 50)
    (command "text" "j" "bc" (list (+ Xgtd i) (- Ygtd 8)) 1.6 0 (rtos (* j HeSo) 2 1))
    (command "text" "j" "bc" (list (+ Xgtd i) (- Ygtd 8)) 1.6 0 (rtos (* j HeSo) 2 0))
    )
    (setq i (+ i 10) j (+ j 1))
    )
    (command "text" "j" "mc" (list (+ Xgtd 55) (- Ygtd 6)) 1.6 0 "(m)")
    )
    ;---------------------------------------------------------------------------------------------------------------------------------
    (defun VeMoi()
    (Vekhung tl)
    (setq Hmax Hss)
    (setq Xbd (+ Xgtd 48 (* (/ ChieuDaiSoBo 2) tl))
    Ybd (+ Ygtd 60))
    (command "layer" "s" "Khung" "")
    (command "style" "Chuviet" ".VnArial Narrow" "" "" "" "" "" "")
    (setq cd 0)
    ;(initget 1 "T F")
    ;(setq ft (getkword "\nSo lieu Truc tiep hay tu File<Truc_tiep - File>"))
    (if (= sltt "1") (progn
    (setq Htim1 (getreal "\nCao do tim duong 1 : "))
    (setvar "textstyle" "standard")
    (command "text" "j" "mc" (list Xbd (- Ybd 5)) 1.6 90 (rtos Htim1 2 2))
    (command "line" (list Xbd (- Ybd 10)) (list Xbd (- Ybd 20)) "")
    (command "text" "j" "mc" (list Xbd (- Ybd 25)) 1.6 90 "0.00")
    (VeBenPhai Hss Htim1 tl cd Xbd Ybd 1)
    (VeBenTrai Hss Htim1 tl cd Xbd Ybd 1)
    (initget 1 "C K")
    (setq key (getkword "\nCo ve duong 2 khong<C - K> : "))
    (if (= key "C") (progn
    (setq Htim2 (getreal "\nCao do tim duong 2 : "))
    (command "layer" "s" "Khung" "")
    (command "line" (list Xbd (- Ybd 40)) (list Xbd (- Ybd 50)) "")
    (command "text" "j" "mc" (list Xbd (- Ybd 35)) 1.6 90 (rtos Htim2 2 2))
    (command "text" "j" "mc" (list Xbd (- Ybd 55)) 1.6 90 "0.00")
    (VeBenPhai Hss Htim2 tl cd Xbd Ybd 2)
    (VeBenTrai Hss Htim2 tl cd Xbd Ybd 2)
    )
    )
    )
    (progn
    (setq DuongVe (getint "\nVe duong tren hay duong duoi<1 = Tren 2 = Duoi> :"))
    (VeBenPhaifile Hss tl cd Xbd Ybd DuongVe)
    (VeBenTraifile Hss tl cd Xbd Ybd DuongVe))
    )
    (setq Hmax1 Hmax)
    (TenMC tenmatcat Hss Hmax1)
    (VeThuocNgang TyLeVe HeSo)
    (VeThuocDung Hmax1 Hss HeSo)
    )
    ;----------------------------------------------------------------------------------------------------------------------
    (defun solieubosung()
    (setq HuongVe (get_tile "HV"))
    (setq DuongVe (get_tile "DV"))
    (setq CaoDoBatDau (atof (get_tile "CDBD")))
    (setq KCDTim (atof (get_tile "KCDT")))
    (setq Hss (atof (get_tile "CDSS")))
    )
    ;----------------------------------------------------------------------------------------------------------------------
    (defun VeBoSung()
    (command "layer" "m" "Duong1" "c" "red" "" "l" "continuous" "" "")
    (command "layer" "m" "Duong2" "c" "yellow" "" "l" "continuous" "" "")
    (command "layer" "m" "Duong2dut" "c" "yellow" "" "l" "dashed" "" "")
    (setq dial (load_dialog "D:\\Autolip\\MatCat.dcl"))
    (if (not (new_dialog "Ve_Bo_Sung" dial)) (exit))
    (action_tile "accept" "(solieubosung) (done_dialog)")
    (action_tile "cancel" "(done_dialog) (reinit) (exit)")
    (start_dialog)
    (unload_dialog dial)
    (command "osnap" "end" "")
    (setq DiemTimHienCo (getpoint "\nChon diem Tim cua mat cat : "))
    (command "osnap" "none" "")
    (setq Xbd (nth 0 DiemTimHienCo)
    Ybd (nth 1 DiemTimHienCo))
    (if (= HuongVe "VBP") (progn
    (setq Htim1 CaoDoBatDau)
    (setq cd KCDTim)
    (if (= DuongVe "VDT")
    (VeBenPhai Hss Htim1 tl cd Xbd Ybd 1)
    (VeBenPhai Hss Htim1 tl cd Xbd Ybd 2)
    )
    ) (progn
    (setq Htim2 CaoDoBatDau)
    (setq cd KCDTim)
    (if (= DuongVe "VDT")
    (VeBenTrai Hss Htim2 tl cd Xbd Ybd 1)
    (VeBenTrai Hss Htim2 tl cd Xbd Ybd 2)
    )
    )
    ) ;Het ham "if"
    )
    ;---------------------------------------------------------------------------------------------------------------------------------
    (defun VeBoSungHaiBen()
    (command "layer" "m" "Duong1" "c" "red" "" "l" "continuous" "" "")
    (command "layer" "m" "Duong2" "c" "yellow" "" "l" "continuous" "" "")
    (command "layer" "m" "Duong2dut" "c" "yellow" "" "l" "dashed" "" "")
    (command "layer" "s" "Khung" "")
    (command "osnap" "end" "")
    (setq DiemTimHienCo (getpoint "\nChon diem tim cua mat cat : "))
    (command "osnap" "none" "")
    (setvar "textstyle" "standard")
    (setq Xbd (nth 0 DiemTimHienCo)
    Ybd (nth 1 DiemTimHienCo))
    (setq cd 0)
    (initget 1 "T F")
    (setq ft (getkword "\nSo lieu Truc tiep hay tu File<Truc_tiep - File>"))
    (if (= ft "T") (progn
    (initget 1 "T D")
    (setq td (getkword "\nVe duong tren hay duong duoi<T - D>: ?"))
    (setq Htim1 (getreal "\nCao do tim : "))
    (if (= td "T") (progn
    (command "text" "j" "mc" (list Xbd (- Ybd 5)) 1.6 90 (rtos Htim1 2 2))
    (command "line" (list Xbd (- Ybd 10)) (list Xbd (- Ybd 20)) "")
    (command "text" "j" "mc" (list Xbd (- Ybd 25)) 1.6 90 "0.00")
    (VeBenPhai Hss Htim1 tl cd Xbd Ybd 1)
    (VeBenTrai Hss Htim1 tl cd Xbd Ybd 1)
    )
    (progn
    (command "text" "j" "mc" (list Xbd (- Ybd 35)) 1.6 90 (rtos Htim1 2 2))
    (command "line" (list Xbd (- Ybd 40)) (list Xbd (- Ybd 50)) "")
    (command "text" "j" "mc" (list Xbd (- Ybd 55)) 1.6 90 "0.00")
    (VeBenPhai Hss Htim1 tl cd Xbd Ybd 2)
    (VeBenTrai Hss Htim1 tl cd Xbd Ybd 2)
    )
    )
    )
    (progn
    (setq DuongVe (getint "\nVe duong tren hay duong duoi<1 = Tren 2 = Duoi> :"))
    (VeBenPhaifile Hss tl cd Xbd Ybd DuongVe)
    (VeBenTraifile Hss tl cd Xbd Ybd DuongVe)
    )
    )
    )
    ;----------------------------------------------------------------------------------------------------------------------------------
    (defun solieubandau()
    (setq tenmatcat (get_tile "ten"))
    (setq sltt (get_tile "sltt"))
    (setq TyLeVe (atoi (get_tile "tyle")))
    (setq chieudaisobo (atoi (get_tile "cdsb")))
    (setq mucsosanh (atoi (get_tile "cdss")))
    (setq MoiHayBoSung (get_tile "MB"))
    (setq duongtren (nth (atoi (get_tile "tendt")) tren))
    (setq duongduoi (nth (atoi (get_tile "tendd")) duoi))
    )
    ;---------------------------------------------------------------------------------------------------------------------------------
    (defun C:VMC()
    (init)
    (setq tren (list "Cao do tu nhien" "Cao do thiet ke" "Cao do nen" "Cao do dap" "Cao do chan khay"))
    (setq duoi (list "Cao do tu nhien" "Cao do thiet ke" "Cao do nen" "Cao do dap" "Cao do chan khay"))
    (setq dial (load_dialog "D:\\Autolip\\MatCat.dcl"))
    (if (not (new_dialog "So_Lieu_Dau" dial)) (exit))
    (start_list "tendt") (mapcar 'add_list tren) (end_list)
    (start_list "tendd") (mapcar 'add_list duoi) (end_list)
    (action_tile "accept" "(solieubandau) (done_dialog)")
    (action_tile "cancel" "(done_dialog) (reinit) (exit)")
    (start_dialog)
    (unload_dialog dial)
    (cond
    ((= TyLeVe 1000) (setq tl 1 HeSo 10))
    ((= TyLeVe 500) (setq tl 2 HeSo 5))
    ((= TyLeVe 200) (setq tl 5 HeSo 2))
    ((= TyLeVe 100) (setq tl 10 HeSo 1))
    ((= TyLeVe 50) (setq tl 20 HeSo 0.5))
    )
    (setq Hss mucsosanh)
    (cond
    ((= MoiHayBoSung "VeMoi") (VeMoi))
    ((= MoiHayBoSung "VeBoSung") (VeBoSung))
    ((= MoiHayBoSung "VeBoSungHB") (VeBoSungHaiBen))
    )
    (reinit)
    )

  13. #11
    navalarchitect's Avatar
    navalarchitect vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Dec 2010
    Bài
    167
    Cảm ơn
    112
    Điểm
    8/6 bài viết

    Default

    thanks bạn nhiều

  14. #12
    huyan0702's Avatar
    huyan0702 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Mar 2008
    Bài
    117
    Cảm ơn
    16
    Điểm
    53/19 bài viết

    Default

    bác chủ topic đặt pass hay quá cơ, ngồi thử cả ngày cũng ko đúng pass.

  15. #13
    haidientu's Avatar
    haidientu vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Sep 2010
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    sao pass bị sai rồi

  16. #14
    zoomfacter's Avatar
    zoomfacter vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Apr 2011
    Đến từ
    làng đồ họa
    Bài
    504
    Cảm ơn
    61
    Điểm
    629/108 bài viết

    Default

    Trích haidientu View Post
    sao pass bị sai rồi
    nó copy từ đây ra nè:

  17. Có 1 thành viên cảm ơn zoomfacter cho bài viết này:
    ductaiutc (01-05-2012)

  18. #15
    haidientu's Avatar
    haidientu vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Sep 2010
    Bài
    2
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    cảm ơn bạn nhiều nha

 

 
Trang 1/2 1 2 cuốicuối

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •