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

Các bài được khuyến nghị

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)
)

 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
6 phút trước, hiephl đã nói:

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)
)

 

dòng này thiếu dấu ngoặc nhé

(setq t3 (POLAR t2 (+ goc (/ pi 2)) (/ (- d3 d2) 4)))

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
2 phút trước, huunhantvxdts đã nói:

dòng này thiếu dấu ngoặc nhé

(setq t3 (POLAR t2 (+ goc (/ pi 2)) (/ (- d3 d2) 4)))

dạ e thử lại mà vẫn ko chạy được ạ

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Cái dòng (- d3 d2) có vấn đề : d3,d2 đều là point thì trừ nhau nó ra cái gì? Sai ở chỗ đó.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

×