[Yêu cầu] Lisp đổi màu nền của cad

[[Yêu cầu] Lisp đổi màu nền của cad]

Vào lúc 8/12/2011 tại 10:17, Doan Van Ha đã nói:

 

Đây bạn! Lisp này tôi mót được của By Jimmy Bergmark (thank you). Lệnh BGT. Gõ BGT: chuyển đen qua trắng, gõ tiếp BGT: chuyển trắng qua đen. Cứ thế tiếp tục...

 

;----- Set the background in model and paper space to white
(defun c:BGWhite ()
(vl-load-com)
(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))
(vla-put-GraphicsWinModelBackgrndColor disp 16777215)
(vla-put-GraphicsWinLayoutBackgrndColor disp 16777215)
(vla-put-LayoutCrosshairColor disp 0)
(vla-put-ModelCrosshairColor disp 0)
(vla-put-AutoTrackingVecColor disp 0)
(vla-put-AutoSnapMarkerColor drafting 6)
(princ))
;----- Set the background in model and paper space to black
(defun c:BGBlack ()
(vl-load-com)
(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))
(vla-put-GraphicsWinModelBackgrndColor disp 0)
(vla-put-GraphicsWinLayoutBackgrndColor disp 0)
(vla-put-LayoutCrosshairColor disp 16777215)
(vla-put-ModelCrosshairColor disp 16777215)
(vla-put-AutoTrackingVecColor disp 16777215)
(vla-put-AutoSnapMarkerColor drafting 2)
(princ))
;----- Background toggle between black and white
(defun c:bgt ()
(vl-load-com)
(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))
(if (= (vlax-variant-value (vlax-variant-change-type (vla-get-graphicswinmodelbackgrndcolor disp) vlax-vblong)) 0)
 (c:bgwhite)
 (c:bgblack))
(princ))
(princ)

 

 

cho mình hỏi khi mình đổi 2 dòng 
(vla-put-GraphicsWinModelBackgrndColor disp 3156001)

(vla-put-GraphicsWinLayoutBackgrndColor disp 3156001)

thì không dùng được lệnh bgt nữa mà chỉ dùng được bgw hoặc bgb

đổi màu về 0 thì lại dùng lệnh bgt bình thường

[Vẽ nhiều tỷ lệ trong một bản vẽ]

mình đang dùng layout

tất cả bản vẽ bên model đều là 1-1 sau đó sang layout dim và sắp xếp

chỉ cần tạo 1 dim text chuẩn theo khổ giấy bên layout là dùng được cho mọi bản vẽ không phải scale gì cả nên luôn đúng tỉ lệ

 

 

[Lisp In Nhiều Bản Vẽ (Kể Cả Layout)]

cho em một key với ạ

SERIAL: 1441BD 417CGF 28972