TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: rugaroo on January 20, 2004, 03:48:23 PM
-
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
-
Study this one Rug
(DEFUN c:vpl ()
(COND ((= (GETVAR "tilemode") 1)
(PRINC "\nMust be in paper space to use.")
)
((= (GETVAR "tilemode") 0)
(INITGET 1 "Unlock Lock")
(SETQ ans (GETKWORD "\n[U]nlock or [L]ock? "))
(COND ((= ans "Lock")
(SETQ ss (ENTSEL "\nSelect viewports to lock: "))
(COMMAND "mview" "lock" "on" ss)
(SETQ ss nil)
(PRINC)
)
)
(COND ((= ans "Unlock")
(SETQ ss (ENTSEL "\nSelect viewports to unlock: "))
(COMMAND "mview" "lock" "off" ss)
(SETQ ss nil)
(PRINC)
)
)
)
)
(PRINC)
)
-
Roland, here are some comments:
(DEFUN c:vpl (/ ss);this is where you set ss to nil
(COND
((= (GETVAR "tilemode") 1)
(PRINC "\nMust be in paper space to use.")
(PRINC "")
)
((= (GETVAR "tilemode") 0)
(INITGET 1 "Unlock Lock")
(SETQ ans (GETKWORD "\n[Unlock/Lock]?"))
(COND ((= ans "Lock")
(SETQ ss (ENTSEL "\nSelect viewports to lock: "))
(COMMAND "mview" "lock" "on" ss)
(SETQ ss nil);why?
)
)
(COND ((= ans "Unlock")
(SETQ ss (ENTSEL "\nSelect viewports to unlock: "))
(COMMAND "mview" "lock" "off" ss)
(SETQ ss nil);why?
)
)
)
(PRINC)
)
)
That'll work as long as you're in paperspace and don't have any viewports activated as mspace. Now, if you would like a really slick vport lock command, I've got one that Se7en taught me vlisp with. Beautiful program.
-
Now, if you would like a really slick vport lock command, I've got one that Se7en taught me vlisp with. Beautiful program.
Well post it already!!!!!!!!!!
:)
-
Well, once again, here is ToggleLock.lsp (http://theswamp.org/swamp.files/Daron/togglevpl.lsp)