혹시 화면지정하는 방법이 있나요~?

Question

등록일: 2021-01-282021-01-28T17:58:29+09:00 2021-01-28T17:58:29+09:00카테고리: AutoCAD & CADian

혹시 화면지정하는 방법이 있나요~?

혹시 화면을 단축키로 지정해서
간단한 단축키로 원하는 화면을 띄울수있는 방법이 있나요~? 리습이나..
갑자기 문득 이런기능이 있으면 좋겠다 싶어서요..

예를들어서 1번이나 ctrl+1, alt+1 이런식으로 누르게 되면
1층평면으로 확대이동이 되는식으로..

스케치업에서 뷰를 저장하듯이 캐드에서도 뷰를 저장할수있는지 궁금합니다.

4 답변

[Deleted User] · Answer 1 · 2021-01-28T20:36:55+09:00

(vl-load-com)
(setq acadObject (vlax-get-acad-object))
(setq acadDocument (vla-get-ActiveDocument acadObject))
(setq mSpace (vla-get-ModelSpace acadDocument))

(defun screen_size ( / a_sc b_vt c_vs ex ey)
(setq a_sc (getvar “screensize”))
(setq b_vt (getvar “viewctr”))
(setq c_vs (getvar “viewsize”))
(setq ey (/ c_vs 2))
(setq ex (/ (* (/ (car a_sc) (cadr a_sc)) c_vs) 2) )
(list (list (+ (car b_vt) (- ex)) (+ (cadr b_vt) (- ey)) )
(list (+ (car b_vt) ex) (+ (cadr b_vt) ey) )
)
)

(defun c:ss1 ( / vp_1 vp_2 vp_3 vp_4 chk_vp)
(setq OldVarList (list “OSMODE” “CMDECHO” “cmddia” “filedia”))
(setq OldVarValue (mapcar ‘getvar OldVarList))
(mapcar ‘setvar OldVarList'(0 0 0 0))
(setq vp_1 (car (screen_size)))
(setq vp_2 (cadr (screen_size)))
(setq vp_3 (strcat (rtos (car vp_1)) “,” (rtos (cadr vp_2))))
(setq vp_4 (strcat (rtos (car vp_2)) “,” (rtos (cadr vp_1))))
(setq chk_vp (vl-registry-read “HKEY_CURRENT_USER\View1” “v1_pt1”))
(if chk_vp
(vl-registry-delete “HKEY_CURRENT_USER\View1”))
(vl-registry-write “HKEY_CURRENT_USER\View1” “v1_pt1” vp_4)
(vl-registry-write “HKEY_CURRENT_USER\View1” “v1_pt2” vp_3)
(prompt “n※view port save…(Application)”)(princ)
(mapcar ‘setvar OldVarList OldVarValue)
(princ)
)

(defun c:s1 ( / vp_1 vp_2 vp_3 vp_4 chk_vp)
(setq OldVarList (list “OSMODE” “CMDECHO” “cmddia” “filedia”))
(setq OldVarValue (mapcar ‘getvar OldVarList))
(mapcar ‘setvar OldVarList'(0 0 0 0))
(setq chk_vp (vl-registry-read “HKEY_CURRENT_USER\View1” “v1_pt1”))
(if (/= chk_vp nil)
  (progn
   (setq vp_1 (vl-registry-read “HKEY_CURRENT_USER\View1” “v1_pt1”))
   (setq vp_2 (vl-registry-read “HKEY_CURRENT_USER\View1” “v1_pt2”))
   (vl-cmdf “zoom” vp_1 vp_2)
   (prompt “n※view port load…(Application)”)(princ)
  )
)
(mapcar ‘setvar OldVarList OldVarValue)
(princ)
)

명령어는 ss1으로 화면지정 s1으로 화면 불러오기입니다.