Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
Tue_NV

Chọn text là số

Các bài được khuyến nghị

Cảm ơn anh Tuệ nhìu nhìu.Em thanks cho bác mấy fát liền.

Nhưng anh ơi! Giúp em thêm 1 tí được không.Em muốn chọn các số nằm trong một khoảng thì sao.

Em muốn chọn giá trị X: A :D

Hề hề. Mới thấy bạn thanks 1 phát chớ mấy... :D

Theo như bạn thì A là số cực tiểu ; B là số cực đại

Chọn giá trị X nằm trong khoảng A

Đây là Lisp nâng cấp :

(defun c:Loctext(/ ss i ent content so ans snho slon skhoang socuctieu socucdai)
;copyright by TUE_NV
(setq ss (ssget '((0 . "TEXT"))) snho (ssadd) slon (ssadd) skhoang (ssadd))
(setq i 0)
(initget "L N K") 
(setq ans (getkword 
"\n chon so Nho hon N , Chon so Lon hon L , Chon so trong khoang K  : "))

(if (= ans "N")
(progn 
(setq so (getreal "\n Nhap so nho hon : "))

(while (		(setq ent (ssname ss i))
	(if (and (setq content (distof(cdr(assoc 1 (entget ent))))) (			(setq snho (ssadd ent snho))
	)
	(setq i (1+ i))
);while
(sssetfirst snho snho)
);progn
);if
(setq i 0)
(if (= ans "L")
(progn 
(setq so (getreal "\n Nhap so lon hon : "))

(while (		(setq ent (ssname ss i))
	(if (and (setq content (distof(cdr(assoc 1 (entget ent))))) (> content so))
		(setq slon (ssadd ent slon))
	)
	(setq i (1+ i))
);while
(sssetfirst slon slon)
);progn
);if
(setq i 0)
(if (= ans "K")
(progn 
(setq socuctieu (getreal "\n Nhap so cuc tieu MIN : "))
(setq socucdai (getreal "\n Nhap so cuc dai MAX: "))

(while (		(setq ent (ssname ss i))
	(if (and (setq content (distof(cdr(assoc 1 (entget ent))))) 
		 (> content socuctieu)
		 (			(setq skhoang (ssadd ent skhoang))
	)
	(setq i (1+ i))
);while
(sssetfirst skhoang skhoang)
))
(princ)
)

:cheers:

  • Vote tăng 3

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Hề hề. Mới thấy bạn thanks 1 phát chớ mấy... :D

 

 

Em lại thanks fát nữa roài đó bác.Muốn thanks mấy fát nhưng mới làm 1 fát nó đã biến đâu mất tiêu button thanks roài.Hơ :cheers:

:D

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×