Chọn text là số

[Tue_NV 3.912]

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:

[w1nDream 73]

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