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 (301)
 
tamnangduongsinh (276)
 
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 | 
 

 copy text

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



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

Bài gửiTiêu đề: copy text    Thu Oct 13, 2016 2:21 pm

;Copy TEXT, MTEXT, DIMENSION
;[You must be registered and logged in to see this link.]
;--------------------------------------------------------------------
(defun c:mat (/ source target itarget str)
(command "undo" "be")

(prompt "\nSelect *TEXT, DIMENSION source:")
(setq source (ssget "+.:S:N" '((0 . "*TEXT,DIMENSION"))))
(if (and
source
(setq source (ssname source 0))
(setq str (cdr (assoc 1 (entget source))))
(progn (prompt "\nSelect *TEXT, DIMENSION Target:") T)
(setq target (ssget '((0 . "*TEXT,DIMENSION"))))
)
(progn
(setq i 0)
(while (setq itarget (ssname target i))
(entmod (subst (cons 1 str) (assoc 1 (entget itarget)) (entget itarget)))
(setq i (1+ i))
)

(command "undo" "be")
(redraw)
)))
Về Đầu Trang Go down
Xem lý lịch thành viên
tamnangduongsinh



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

Bài gửiTiêu đề: Re: copy text    Fri Oct 05, 2018 5:42 pm

(defun C:test(/ tn)
(setq tn (cdr (assoc 1 (entget (car (entsel "\nChon text nguon:"))))))
(princ "\nChon text dich de copy...")
(mapcar '(lambda(x) (entmod (subst (cons 1 tn) (assoc 1 (entget x)) (entget x)))) (acet-ss-to-list (ssget '((0 . "TEXT")))))
)

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
 
copy text
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Cách chèn đường dẫn vào bài viết
» [Text Game] Magic Doll-Đăng kí
» Chuyện Gấu Brown và thỏ Cony
» [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