Đến nội dung


Hình ảnh
- - - - -

[Nhờ chỉnh sửa] Lưu lại giá trị một biến đã nhập!


  • Please log in to reply
1 reply to this topic

#1 luckylucke_2009

luckylucke_2009

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 08 January 2013 - 04:47 PM

Nhờ các bác xem lại giùm đoạn lisp. Không biết lý do tại sao, biến TLE không lưu lại giá trị trong lần xuất lệnh sau?
Xin cám ơn!

(Defun c:TILE (/ TLE BCAO)
(if (= TLE nil)
(progn
(setq TLE (getreal "\nNhap ti le ban ve 1/<1.000>: "))
(if (= TLE nil) (setq TLE 1000.0))
);end progn
);end if
(setq BCAO (strcat "Ban da nhap ti le la: 1/" (rtos TLE 2 2)))
(princ BCAO)
(princ)
)

  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5449 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 08 January 2013 - 05:43 PM

Bạn đã đặt biến TLE là biến cục bộ nên nó trả về NIL sau khi dùng hàm xong.
Sửa:
(Defun c:TILE (/ TLE BCAO)
Thành:
(Defun c:TILE (/ BCAO)
  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.