Đến nội dung


Hình ảnh

lỗi tham số?


  • Please log in to reply
1 reply to this topic

#1 lp_hai

lp_hai

    biết lệnh measure

  • Members
  • PipPipPipPipPipPip
  • 456 Bài viết
Điểm đánh giá: 202 (khá)

Đã gửi 01 June 2010 - 03:31 PM

em mới tập viết lisp. Em muốn viết một lisp vẽ hình chữ nhật.
trong lisp có chuong trinh chính và chương trình con. cùng các tham số (W H p1)

(setq
rong (getdist "\nW hinh chu nhat: ")
cao (getdist "\nH hinh chu nhat: ")
diemchen (getpoint "\nchon diem goc hinh chu nhat " )
)
)
(defun vehinh( W H p1/ p2)
(setq
p2 (list (+(car p1) W) (+ (cadr p1) H))
)
(command "rectang" p1 p2)
)
(defun c:hcn(/ rong cao diemchen)
(nhapso)
(vehinh rong cao diemchen)
)


Cad báo lỗi : ; error: too few arguments
các Anh xem em bị sai ở chỗ nào chỉ jùm em với!
  • 0
Hình đã gửi

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 01 June 2010 - 03:44 PM

em mới tập viết lisp. Em muốn viết một lisp vẽ hình chữ nhật.
trong lisp có chuong trinh chính và chương trình con. cùng các tham số (W H p1)

(setq
rong (getdist "\nW hinh chu nhat: ")
cao (getdist "\nH hinh chu nhat: ")
diemchen (getpoint "\nchon diem goc hinh chu nhat " )
)
)
(defun vehinh( W H p1/ p2)
(setq
p2 (list (+(car p1) W) (+ (cadr p1) H))
)
(command "rectang" p1 p2)
)
(defun c:hcn(/ rong cao diemchen)
(nhapso)
(vehinh rong cao diemchen)
)
Cad báo lỗi : ; error: too few arguments
các Anh xem em bị sai ở chỗ nào chỉ jùm em với!

Chào 'lp_hai'
1. Bạn thiếu dòng đầu tiên : định nghĩa hàm nhapso
(defun nhapso()
....
2. Cái sai cơ bản dẫn đến Lisp báo lỗi : error: too few arguments ->>thiếu tham số đó là do ở dòng này :
(defun vehinh( W H p1/ p2)
giữa p1 và / phải có khoảng trắng. Vì bạn viết không có khoảng trắng thì Lisp xem p1/ là 1 biến và p2 cũng là 1 biến toàn cục nữa => Trong hàm vehinh vị chi là có 4 biến W; H; p1/ và p2

-> Bạn phải sửa lại như vầy mới đúng :
(defun vehinh( W H p1 / p2)
giữa p1 và / phải có khoảng trắng

Tue_NV để cho bạn sửa lại code của bạn. Chúc thành công nhé.
  • 0