yang686526

[求助]请教高手,关于一个视口解锁的问题。
www.dimcax.com
[求助]请教高手,关于一个视口解锁的问题。
在图纸空间中，可以用：(command "-vports" "l" "off")
对视口进行解锁，但如果鼠标是在视口里的模型空间中，请教高手，如何用lsp做到：解锁所在的视口呢？
d
哪位高手帮帮忙，急。
d
(setq ent (car (entsel "\n pick up a viewport!")))
(if ent
(progn
(setq obj (vlax-ename->vla-object ent))
(setq viewlock (vla-get-displaylocked obj))
(cond
((= viewlock :vlax-true)(princ "\nthe viewport is locked!"))
((= viewlock :vlax-false)(princ "\nthe viewport is not locked!"))
))
)
d
楼上luowy不明白我的意思,我是想不需要选取视口线,图标已经在视口里面。
d
这么说吧，我当前鼠标是在一个锁定的视口里面，我想在不返回图纸空间的情况下，解锁当前视口。
d
( c:tt ()
( ( ( "tilemode") 0)
( ( "\n** 命令不允许在模型选项卡中使用 ** ") ())
)
( ( ( "cvport") 1)
(vla-put-displaylocked
(vla-get-activepviewport (vla-get-activedocument ()))
:vlax-false
)
)
)