 - ;鎖定視口----------------------------------------
- (defun c:vn ()
- (command "-vports" "l" "ON")
- (princ)
- )
- ;開視口------------------------------------------------
- (defun c:vd ()
- (command "-vports" "ON")
- (princ)
- )
- ;關視口----------------------------
- (defun c:vs ()
- (command "-vports" "off")
- (princ)
- )
|