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 | 
 

 Tặng các bạn lisp khóa khung Viewport bên Layout

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 đề: Tặng các bạn lisp khóa khung Viewport bên Layout   Thu Sep 22, 2011 10:41 am

Tặng các bạn lisp khóa khung Viewport bên Layout
Lệnh VO
Để thao tác mở, khóa khung MV bên layout nhanh hơn các bạn có thể dùng lisp này
coppy đoạn code sau !

Code:
;; free lisp from cadviet.com
(defun C:VO ( / SelSet ST:VP-Toggle-DisplayLocked) ;VP toggle Locked
(kiemtra)
;======== Local Function =========
(defun ST:VP-Toggle-DisplayLocked (vpObj / rt)
;vp : vlaObject
;RT : T if Lock VP / nil if Open
(cond ((eq (vla-get-DisplayLocked vpObj) :vlax-false)(vla-put-DisplayLocked vpObj :vlax-true)(setq rt T)(vla-put-color vpObj acBlue))
(T (vla-put-DisplayLocked vpObj :vlax-False)(vla-put-color vpObj acByLayer)))
)
;========== Start Here ==============
(grtext -1 "\nBy : Nguy\U+1EC5n V\U+0103n Thanh")
(cond
((< (atof (getvar "ACADVER")) 15.0)
(alert " Lisp requires AutoCAD 2000 or higher. "))
((= (getvar "TILEMODE") 1)
(alert " Lisp can only be done in paper space. "))
((> (getvar "CVPORT") 1)
(ST:VP-Toggle-DisplayLocked (vlax-ename->vla-object (acet-currentviewport-ename))))
((and
(not (prompt "\nSelect Viewport for (un)lock... "))
(not (setq SelSet (ssget '((0 . "VIEWPORT"))))))
(princ "Nothing or no Viewport selected."))
(T
(vl-load-com)
(vlax-for vpObj (setq SelSet (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
(ST:VP-Toggle-DisplayLocked vpObj)
)))
(princ)
)
)

Nguồn : cadviet.com
Về Đầu Trang Go down
 
Tặng các bạn lisp khóa khung Viewport bên Layout
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [16022011][News]Ngắm SNSD giản dị với "mặt mộc toàn tập"
» [28102010][News]"Khủng long" Yul gây ân tượng sâu sắc nhất với Eunhyuk

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