在两个MS视口中平移

nod684 · 发表于 2022-7-5 15:57:21

只是想知道。。。。

我在做立面图/剖面图时做了很多投影
我要做的是在模型空间中有两个视口，其中顶部视口显示平面，而底部显示正在进行的立面/剖面。然后使用xline，我将平面图上的内容投影到下面的图形中
.
现在，可以在一个视口中平移，另一个视口也跟着平移吗？可以通过lisp或其他工具完成吗？

Tiger · 发表于 2022-7-5 16:00:50

Pst。我删除了你标题中的点-如果这条线索超过两页，标题中的点会使它无法访问。经过再三考虑，我重新命名了踏板

好问题，我会把它转移到lisp论坛，希望你能得到一个好答案（我也可以用！）

MSasu · 发表于 2022-7-5 16:05:55

像这样的？

copy

;;; Pan in All Viewports (28-XI-2012)
(defun c:PAV( / oldCVPort oldCmdEcho listVPorts pointBase pointMove )
(setq listVPorts (mapcar 'car (vports))
      oldCmdEcho (getvar "CMDECHO")
      oldCVPort  (getvar "CVPORT"))
(setvar "CMDECHO" 0)
(if (and (setq pointBase (getpoint           "\nBase point: "))
         (setq pointMove (getpoint pointBase "\nNew point: ")))
 (foreach itemVPort listVPorts
  (setvar "CVPORT" itemVPort)
  (command "_PAN" pointBase pointMove)
 )
)
(setvar "CVPORT"  oldCVPort)
(setvar "CMDECHO" oldCmdEcho)
(princ)
)

nod684 · 发表于 2022-7-5 16:10:05

非常感谢Mircea！按我的意愿工作。。。
这将非常有用。再次感谢

nod684 · 发表于 2022-7-5 16:12:06

谢谢老虎！对不起，这些点。我不知道。
只是不确定我的问题是否可行

再次感谢。

Tiger · 发表于 2022-7-5 16:17:18

不用担心，点头，这只是一个bug，没有什么广为人知的。

MSasu · 发表于 2022-7-5 16:19:18

很高兴听到你发现这很有用，nod684！不客气！

yathishkumar · 发表于 2022-7-5 16:22:47

非常感谢。

yathishkumar · 发表于 2022-7-5 16:25:18

请任何人都可以在这个问题上提供帮助

新点：int of；错误：AutoCAD变量设置被拒绝：“CVPORT”1

copy

;;; Pan in All Viewports (28-XI-2012)
(defun c:PAV( / oldCVPort oldCmdEcho listVPorts pointBase pointMove )
(setq listVPorts (mapcar 'car (vports))
      oldCmdEcho (getvar "CMDECHO")
      oldCVPort  (getvar "CVPORT"))
(setvar "CMDECHO" 0)
(if (and (setq pointBase (getpoint           "\nBase point: "))
         (setq pointMove (getpoint pointBase "\nNew point: ")))
 (foreach itemVPort listVPorts
  (setvar "CVPORT" itemVPort)
  (command "_PAN" pointBase pointMove)
 )
)
(setvar "CVPORT"  oldCVPort)
(setvar "CMDECHO" oldCmdEcho)
(princ)
)

nod684 · 发表于 2022-7-5 16:29:53

请注意正确张贴代码。。。
必须在引号内。

无论如何，我没有得到这个错误。至今仍在使用。
Im使用AutoCAD 2014

[编程交流] 在两个MS视口中平移

发表回复

精选推荐