Đến nội dung


Hình ảnh
- - - - -

cần giúp AUTOLISP


  • Please log in to reply
2 replies to this topic

#1 tuancdt3

tuancdt3

    Chưa sử dụng CAD

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

Đã gửi 29 November 2013 - 01:03 AM

em đang cần nhập dữ liệu cho x, 20<x<8 thì phải làm như thế nào ạ


  • -1

#2 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1431 Bài viết
Điểm đánh giá: 1425 (rất tốt)

Đã gửi 29 November 2013 - 10:43 AM

Thử Lisp này xem (chỉ áp dụng cho số nguyên)

(defun c:test(/ start end num)
  (setq start 8 end 20)
  (while
    (not
      (and
	(setq num (getint (strcat "Nhap so trong khoang <" (itoa start)  " ~ " (itoa end)">")))
	(< start num end ) ) )
    (princ "\nGia tri khong hop le. Nhap lai! ")    )
  (alert (strcat "Gia tri : " (itoa num) )  )
  (princ))

  • 0

#3 tuancdt3

tuancdt3

    Chưa sử dụng CAD

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

Đã gửi 29 November 2013 - 04:38 PM

cảm ơn bác nhiều, nhưng giá như áp dụng được với số thực thì hoàn hảo hơn!


  • -2