DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE

DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE

Chào mừng quý vị và các bạn đến với diễn đàn http://tamnangduongsinh.forumvi.com
 
Trang ChínhPortalCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
Hỗ trợ trực tuyến- Admin
Admin : Nguyễn Gia Sơn
Chat với Skype Admin!
Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu
Tổng số lượt xem
Thống kê truy cập diễn đàn
Top posters
Admin (295)
 
tamnangduongsinh (242)
 
tamphat (130)
 
Latest topics
Tìm kiếm
 
 

Display results as :
 

 


Rechercher Advanced Search
Đồng hồ và Lịch âm dương

KẾT QUẢ XỔ SỐ
Keywords

Share | 
 

 lisp lọc đối tượng text là số

Go down 
Tác giảThông điệp
tamphat



Tổng số bài gửi : 130
Tổng số điểm : 329
Được cảm ơn : 57
Join date : 23/11/2014

Bài gửiTiêu đề: lisp lọc đối tượng text là số   Thu Oct 13, 2016 1:42 pm

;; free lisp from cadviet.com
(defun c:LocTextSo (/ ss ent str ss1)
(setq ss1 (ssadd))
(if (setq ss (ssget (list (cons 0 "TEXT"))))
(progn
(foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
(setq str (cdr(assoc 1 (entget ent))))
(if (distof str 2)
(ssadd ent ss1)
)
)
(if (> (sslength ss1) 0)
(progn
(sssetfirst nil)
(princ (strcat "\nChon duoc " (itoa (sslength ss1)) " doi tuong Text co noi dung la so."))
(sssetfirst nil ss1)
)
)
)
)
)
Về Đầu Trang Go down
Xem lý lịch thành viên
tamnangduongsinh



Tổng số bài gửi : 242
Tổng số điểm : 629
Được cảm ơn : 69
Join date : 05/12/2014

Bài gửiTiêu đề: Re: lisp lọc đối tượng text là số   Thu Oct 13, 2016 4:41 pm

;; free lisp from cadviet.com

(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 < N/L/K > : "))

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

(while (< i (sslength ss))
(setq ent (ssname ss i))
(if (and (setq content (distof(cdr(assoc 1 (entget ent))))) (< content so))
(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 (< i (sslength ss))
(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 (< i (sslength ss))
(setq ent (ssname ss i))
(if (and (setq content (distof(cdr(assoc 1 (entget ent)))))
(> content socuctieu)
(< content socucdai))
(setq skhoang (ssadd ent skhoang))
)
(setq i (1+ i))
);while
(sssetfirst skhoang skhoang)
))
(princ)
)
Về Đầu Trang Go down
Xem lý lịch thành viên
 
lisp lọc đối tượng text là số
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [Text Game] Magic Doll-Đăng kí
» [F&D + MB TextGame] Nếu 1 ngày Điền Công Tử thay đổi lòng dạ ...

Permissions in this forum:Bạn không có quyền trả lời bài viết
DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE :: Autocad :: Lisp autocad-
Chuyển đến