帮助：将缩放到的LISP

pBe · 发表于 2022-7-5 20:35:13

确实如此

也许，只是也许一个简短的代码使用（vla激活…）


(Defun c:next ()
(vla-activate [vla-item  [document collection] index])
(c:dew);<-- will this run? 
)

marko_ribar · 发表于 2022-7-5 20:39:18

那么意味着我只运行这个代码吗？&它必须通过阿卡多克。lsp？我没有尝试过阿卡多克。lsp还没有

所有这些都超出了我的深度，但我会尽力理解所有建议。

谢谢大家

vernonlee · 发表于 2022-7-5 20:41:24

你好，pBe，是的，我将打开尽可能多的绘图，我可以不超载的电脑（我有打开多达30之前，但它确实有一段时间）。主要是我需要在同一地点检查所有图纸。

谢谢

vernonlee · 发表于 2022-7-5 20:44:13

试用了此代码。

出现此错误

copy

第二张图纸视图无变化

vernonlee · 发表于 2022-7-5 20:46:27

似乎有很多Zoom C Pt Scale的代码，为什么不把Pt和Scale写进一个文件，然后像一个3行的defun。C：储存在acaddoc中的ZOOMTOMYPT。lsp等Z2P。类似于存储pt和比例部分，以便重置Z22P。

Z

BIGAL · 发表于 2022-7-5 20:51:21

vermonlee，你很糟糕地使用了我以前的旧代码。。。当主dwg中的视图设置正确时，您应该加载它并键入SCVTAD，当执行SCVTAD时，您应该读取文本屏幕中写入的内容。。。然后，您应该看到您必须将这一行：（load“c:/processdoc.lsp”）复制并粘贴到与主DWG中相同的空间中的新切换图形中。。。当您复制并粘贴这一行时，代码来自c:\processdoc。lsp将自动执行，因为它没有定义的函数名，因此视图将自动设置。。。但是这个过程很糟糕，正如我说的，它是旧代码。。。您应该使用此处发布的代码：
http://www.cadtutor.net/forum/showthread.php?91547-HELP-A-LISP-that-will-zoom-to-A-same-specific-location-for-all-opening-drawings/page2&p=#12
您唯一应该做的是将其保存在一些lsp文件中，例如：SCV。lsp，如果你还没有创建acaddoc。lsp，在文件夹c:\Program Files\Autodesk\AutoCAD？？？中创建一个？？？\支持\。。。我建议您放置SCV。lsp也在同一文件夹中，因为此文件夹已经是默认情况下通过在“选项->文件->+支持搜索路径”菜单选项卡下安装AutoCAD软件指定的SFSP（支持文件搜索路径）的一部分。。。所以你必须在你的acaddoc中添加这一行。lsp，这样AutoCAD可以在启动每个新DWG时自动加载所有3个功能。。。这条线应该是这样的：
当然，你可以尝试创建你独特的阿卡多克。lsp以我在acaddoc中使用的相同方式添加尽可能多的*lsp文件。lsp，但您唯一应该做的是记住使用哪个命令名执行lisp。。。在本例中，主命令名为：SCV。。。然后在自动加载SCV时。lsp自动在所有打开的DWG中执行，您可以使用“scv”命令在主DWG中执行，并在通过（vl PROPAGE）功能将视图设置变量传递到所有打开的其他DWG上后，该消息将在文本屏幕中弹出，解释恢复设置当前视图时应使用的新命令名-“rscv”命令。。。因此，如果您切换到其他打开的DWG，您只需设置当前活动空间与主DWG匹配，并在那里键入“rscv”-视图将与主DWG视图同步，在文本屏幕中执行此命令后，还会弹出消息，解释您可以在尽可能多的打开的DWG上使用“rscv”，但是，在完成将视图同步到您希望同步的所有视图后，强烈建议您键入“scvc”命令以清除通过所有打开的DWG传播的所有变量，以便您也可以通过acaddoc加载新的其他例程。lsp或通过“APPLOAD”命令可以正常工作，而不会干扰先前传播的变量，这些变量现在为零。。。

marko_ribar · 发表于 2022-7-5 20:53:00

真正地只是为了做什么？

您是否考虑过使用外部参照？

你有没有试过我贴在vernonlee上的片段？

pBe · 发表于 2022-7-5 20:58:34

就在前几天，我的主管让我检查一下这些级别是否已经更新&颜色是否正确。所有图纸的该标高位于图纸的右下角。标高不能被外部参照，因为所有楼层都有不同的标高。

所以我的工作是打开所有的图纸并缩放到每个图纸的右下角进行检查。这已经不是我第一次被要求这么做了。因此，我想用Lisp程序来让我的工作更容易。

希望这能回答你的问题。

对于代码段，如果您正在引用：-

提示：
'视图大小
'屏幕大小
vl传播

我还需要做更多的研究

vernonlee · 发表于 2022-7-5 21:00:26

感谢马尔科·里巴的详细解释。我肯定需要一些时间来阅读和理解。

vernonlee · 发表于 2022-7-5 21:03:42

[编程交流] 帮助：将缩放到的LISP

发表回复

精选推荐