视口/更改空间
在我的上一份工作中，他们有一个命令或lisp，它采用了视图端口的精确形状，并将相同的形状移动到模型空间。这样，您就知道了绘图限制，所以您可以在视图端口中显示所有内容。有什么建议吗？
非常感谢。 在视口上绘制矩形（或多段线），然后使用Chspace。 Lsp，
这就是我现在正在做的。在我上一份工作中。。我所要做的就是选择查看端口，它会为我做到这一点。这样你就不用画矩形了。然后是chspace。键入“whatever it was”并选择vp。 我希望能自己写。我只是不知道如何创建lisp。我真的很想学习，只是工作很忙。我在新奥尔良重建堤防和泵站。每周60到70小时。我希望有人已经准备好了。 这件事做得很快。不允许您选择视口，仅适用于布局选项卡上的第一个视口。如果布局中只有一个视口，它应该可以正常工作。
它基本上只会自动完成你正在做的事情。
(defun c:vex()
(setq osnapz (getvar "osmode"))
(setvar "osmode" 0)
(command "rectang" (cadr (cadr (vports))) (caddr (cadr (vports))))
(command "chspace" (entlast) "")
(command "pspace")
(setvar "osmode" osnapz)
)
在此基础上继续：
(defun c:vex(/ osnapz vp vpID)
(setq osnapz (getvar "osmode"))
(if (and (setq vp (car (entsel "\nSelect Viewport: ")))
(eq "VIEWPORT" (cdadr (entget vp))))
(progn
(setq vpID (cdr (assoc (cdr (assoc 69 (entget vp))) (vports))))
(setvar "osmode" 0)
(command "rectang" (car vpID) (cadr vpID))
(command "chspace" (entlast) "")
(command "pspace")))
(setvar "osmode" osnapz)
(princ))
干得好，李。我本来打算做这样的事情，但被选择的前景吓坏了，检查选择是否是一个视口，并从assoc 10、40和41中获得限制，还有一点数学知识。应该知道你会想出一个更巧妙的解决方案。^ 干杯免费加油 这是我很久以前发现的：
http://www.jtbworld.com/lisp/vp-outline.htm
页:
[1]