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]Chuyển font của các TextStyle trong cad về 1 loại

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


Tổng số bài gửi : 40
Điểm : 89
Reputation : 16
Join date : 20/09/2011

Bài gửiTiêu đề: [Lisp]Chuyển font của các TextStyle trong cad về 1 loại   Mon Oct 17, 2011 4:31 pm

Chuyển font của các TextStyle trong cad về 1 loại

Code:
[font=Courier New](defun c:cf()
(command "undo" "be")
(vlax-for x (vla-get-textstyles
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-put-fontfile x "Romans.shx"));co the sua de nguoi dung danh ten font
(command "regen")
(command "undo" "en")
)[/font]

Tác giả : Ketxu
Về Đầu Trang Go down
 
[Lisp]Chuyển font của các TextStyle trong cad về 1 loại
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [12112010][Discuss] Chuyện tình iêu của Jong Hyun & Shin Se Kyung ...
» [23032011][NEWS] Thực hư chuyện SuJu không thèm nghe điện thoại của Hankyung
» [06052011][news]DBSK viếng thăm Việt Nam Và câu chuyện xúc động tình người
» [22022011][Old news] G-Dragon tiết lộ câu chuyện say rượu và thành viên yêu thích của anh trong SNSD.
» [10022011][news]Goo Hara (Kara) và Chansung (2PM) phủ nhận chuyện hẹn hò

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