社区 › Auto Lisp › 在两个MS视口中平移

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

在两个MS视口中平移

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

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

Pst。我删除了你标题中的点-如果这条线索超过两页，标题中的点会使它无法访问。经过再三考虑，我重新命名了踏板
 
好问题，我会把它转移到lisp论坛，希望你能得到一个好答案（我也可以用！）

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

像这样的？
;;; 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
 
 
 
;;; 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视口中平移