IndexCalendarGalleryTrợ giúpThành viênĐăng kýĐăng Nhập
Đă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
Top posters
Admin
 
tvgs
 
HotroAcad
 
ksphanle
 
engineer0405
 
quangthinh01
 
sumakho
 
quoctoa
 
M@trixs
 
tvgtyb08
 
Latest topics
Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm

Không

Số người truy cập cùng lúc nhiều nhất là 9 người, vào ngày Sun Aug 28, 2016 7:30 am
December 2016
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
262728293031 
CalendarCalendar
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search

Share | 
 

 [Lisp]Coppy nội dung text, mtexxt, dimension

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Thượng úy
Thượng úy


Tổng số bài gửi : 103
Điểm : 291
Reputation : 34
Join date : 15/01/2011

Bài gửiTiêu đề: [Lisp]Coppy nội dung text, mtexxt, dimension   Mon Oct 17, 2011 9:20 pm

Code:
[color=#006000];Copy TEXT, MTEXT, DIMENSION
;www.vietlisp.com
;--------------------------------------------------------------------[/color]
[color=#006000](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)
)))[/color]
Về Đầu Trang Go down
http://xaydungit.forumvi.com
 
[Lisp]Coppy nội dung text, mtexxt, dimension
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [18112010][news]Super Junior là Kpop group “vua” ở nhiều nước
» [30012010][news]EmailBản in Bị fans rượt đuổi, Leeteuk và Heechul (SuJu) gặp tai nạn xe hơi
» [03012011][News]Fans điện ảnh "phát cuồng" vì em trai của Micky Yoochun
» [04022011][news]Ngàn người rơi lệ vì tình yêu của Xiah Junsu với cô gái Việt
» [23022010][new] Super Junior – “Vua lì” ở Đài Loan!

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Phần mềm xây dựng - Giao thông - Hạ tầng kỹ thuật :: Chuyên về lisp [Sưu tầm]-
Chuyển đến