Hey guys...I have the following code, but each time I try to check it in model space, it shows my message allong with something like: #<SUBR @0253730c PRINC>
Here is my code.
;;;VPL.LSP - Viewport Locker
;;;
;;;Copyright 2004 - Civil Drafting Services
;;;Code given is given out on an 'as-is' basis
;;;please contact our DevTeam if you have any
;;;questions. devteam@civildraftingservices.com
;;;
;;;Version - VPLV1.0A
;;;
;;;Bugs - If in model space, error shows: #<SUBR @0253730c PRINC>
;;;
;;;Web - http://civildraftingservices.com
(DEFUN c:vpl (/)
(COND
((= (GETVAR "tilemode") 1)
(PRINC "\nMust be in paper space to use.")
(PRINC "")
)
)
(COND
((= (GETVAR "tilemode") 0)
(INITGET 1 "u l")
(SETQ ans (GETKWORD "\n[U]nlock or [L]ock?"))
(COND ((= ans "l")
(SETQ ss (ENTSEL "\nSelect viewports to lock: "))
(COMMAND "mview" "lock" "on" ss)
(SETQ ss nil)
(PRINC)
)
)
(COND ((= ans "u")
(SETQ ss (ENTSEL "\nSelect viewports to unlock: "))
(COMMAND "mview" "lock" "off" ss)
(SETQ ss nil)
(PRINC)
)
)
)
(PRINC)
)
)
Thx - Rug