Loi lisp

[hiephl 0]

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

 

[huunhantvxdts 195]

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

[hiephl 0]

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 ạ

[alisp 72]

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

[hiephl 0]

Cảm ơn anh, e làm được rồi ạ