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 | 
 

 Text nhân 0.4 rồi cộng với 0.3

Go down 
Tác giảThông điệp
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 đề: Text nhân 0.4 rồi cộng với 0.3   Thu Oct 13, 2016 4:17 pm

(DEFUN C:ttt()
(setq kt -100)
(while (< kt 0)
(setq en nil)
(setq st1 (car (entsel "\nChon so: "))) ;;Lay ma doi tuong
(setq st1 (entget st1)) ;;hien thi record doi tuong
(setq st (cdr (assoc 1 st1))) ;;Lay noi dung text:ma DXF=1
(setq a1 (atof st))
(print a1)
(SETQ KQ (* 0.3 (+ a1 0.4)))
(PRINT KQ)
(setq dtl KQ)
(setq en (car (entsel "Thay cho: ")))
(setq elst (entget en))
(setq elst (subst (cons 1 (strcat (rtos dtl 2 2))) (assoc 1 elst) elst))
(setq elst (append elst '((62 . 3))))
(print elst)
(entmod elst)
)
)
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Text nhân 0.4 rồi cộng với 0.3
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