Chuyển đến nội dung
Diễn đàn CADViet

hiephl

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    5

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi hiephl

  4. Đã đăng · Trả lời báo cáo

    Chào cả nhà, em mới tìm hiểu lisp. Cho em hỏi lỗi sai ạ, em cảm ơn
    (Defun c:ctt (/ d1 d2 d3 d4 d5 t1 t2 t3);(THEPSAN)
    (setvar "angbase" 0)
    ;(setvar "clayer" ....)
    (command "ortho" "on")
    (setq d1 (getpoint "\nBan toi:"))
    (setq d2 (getpoint "\nBan nghi :"))
    (setq d3 (getpoint "\nDam nghi 1 :"))
    (setq d4 (getpoint "\nDam nghi 2:"))
    (setq d5 (getpoint "\nBan toi:"))
    (setq goc (angle d3 d4))
    (setvar "osmode" 0)
    (setq t1 (POLAR d1 (+ goc) 100))
    (setq t2 (POLAR d2 (+ goc) 500))
    (setq t3 (POLAR t2 (+ goc (/ pi 2)) (/ (- d3 d2) 4))
    (Command ".pline" d1 t1 "" )
    (Command ".pline" t1 t2 "" )
    (Command ".pline" t2 t3 "" )
    (setvar "osmode" 641)
    (princ)
    )

     

×