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
tamnangduongsinh (345)
 
Admin (315)
 
tamphat (130)
 
Latest topics
Tìm kiếm
 
 

Display results as :
 

 


Rechercher Advanced Search

KẾT QUẢ XỔ SỐ
Keywords

Share | 
 

 Làm tròn số trong cad

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



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

Bài gửiTiêu đề: Làm tròn số trong cad   Sat Dec 15, 2018 12:05 pm

(defun C:TAO (/ ss sslen n ma1 ma3 len2 m dtgcu somoi ma2)

(setvar "dimzin" 0)

(command ".undo" "begin")

(while (= ss nil)

(progn

(setq ss (ssget '((-4 . "<OR")(0 . "TEXT")(0 . "MTEXT")(0 . "DIMENSION")(-4 . "OR>"))))

))

(setq sslen (sslength ss))

(setq m (getint "Nhap vao so le sau dau thap phan: "))

(setq n 0)

(while (< n sslen)

(progn

(setq ma1 (cdr (assoc 1 (entget (ssname ss n)))))

(setq ma2 (atof ma1))

(if (numberp(read ma1))

(progn

(setq ma1 (rtos ma2 2 6))

(setq sn (fix ma2))

(setq len2 (strlen (rtos sn 2 0 )))

(setq ma3 (substr ma1 1 (+ len2 1 m)))

(setq dtgcu (entget (ssname ss n)))

(setq somoi (subst (cons 1 ma3) (assoc 1 dtgcu) dtgcu))

(entmod somoi)

(entupd (ssname ss n))

));if

(setq n (1+ n))

))

(command ".undo" "end")

(princ));defun close

Nguồn bài viết :
[You must be registered and logged in to see this link.]
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Làm tròn số trong cad
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

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