Lisp nhập đoạn thẳng và kiểm tra điều kiện nhập

[Vutienyeuduyen 0]

Lisp nhập đoạn thẳng và kiểm tra điều kiện nhập.

Similar topics from web:
Rối loạn lo âu – Wikipedia tiếng Việt
Lỗi cad? [Lưu Trữ]
bien ban nghiem thu, quan ly chat luong | Giá xây dựng
Hướng dẫn sử dụng Layout? [Lưu Trữ]
Kỹ sư cấp thoát nước nhà cao tầng?
Diễn đàn SV Giao thông vận tải | Facebook
Hội những người yêu và muốn sống với nghề trắc địa | Facebook
Diễn đàn kỹ sư đô thị
Giúp đỡ bài tập lớn môn hình họa
Tìm kiếm tài năng Việt | Nơi tài năng có đất dụng võ …
Diễn Đàn
Diễn Đàn CĐV SLNA: Điểm danh các phần mềm dành cho dân kỹ ...
Hà Kiều Anh: 3 scandal và 2 cuộc hôn nhân đình đám
Nguyễn Tuấn Anh

[phamthanhbinh 3.146]

 

De bai:nhap vao chieu dai 1 doan thang neu du lieu dau vao >0,thi thuc hien lenh ve doan thang.Neu du lieu khong dung thi nhap lai va ve lai.

Similar topics from web:

Rối loạn lo âu – Wikipedia tiếng Việt

Lỗi cad? [Lưu Trữ]

bien ban nghiem thu, quan ly chat luong | Giá xây dựng

Hướng dẫn sử dụng Layout? [Lưu Trữ]

Kỹ sư cấp thoát nước nhà cao tầng?

Diễn đàn SV Giao thông vận tải | Facebook

Hội những người yêu và muốn sống với nghề trắc địa | Facebook

Diễn đàn kỹ sư đô thị

Giúp đỡ bài tập lớn môn hình họa

Tìm kiếm tài năng Việt | Nơi tài năng có đất dụng võ …

Diễn Đàn

Diễn Đàn CĐV SLNA: Điểm danh các phần mềm dành cho dân kỹ ...

Hà Kiều Anh: 3 scandal và 2 cuộc hôn nhân đình đám

Nguyễn Tuấn Anh

Hề hề hề,

Phải chăng bạn cần cái này:

(defun c:ln ()
(while (or (<= (setq len (getreal "\n Nhap gia tri do dai doan thang: ")) 0) (= len nil) )
 (alert "\n Do dai doan thang nhap khong dung, hay nhap lai") )
(if (> len 0)
   (command "line" (setq p1 (getpoint "\n Nhap diem bat dau ve")) (polar p1 (getreal "\n Nhap goc ve doan thang tinh theo radian: ") len) "")
)
)

Hề hề hề

[Vutienyeuduyen 0]

Thank b

[Doan Van Ha 3.191]

Có thể thay toàn bộ ba thứ lằng nhằng trong While bằng (initget 7) thì code sẽ gọn đi rất nhiều.

 

(defun C:LN1( / len pt ang)

 (initget 7) (setq len (getreal "\n Nhap gia tri do dai doan thang: "))

 (initget 1) (setq pt (getpoint "\n Nhap diem bat dau ve: "))

 (initget 1) (setq ang (getreal "\n Nhap goc ve doan thang tinh theo radian: "))

 (entmake (list (cons 0 "LINE") (cons 10 pt) (cons 11 (polar pt ang len))))

 (princ))

[ketxu 2.984]

K hiểu sao 2 bác nhà mình lại trả lời bài này :|