vl-注册表-写入

cadman6735 · 发表于 2016-7-28 11:31:48

我正在看一个AU视频，其中讲师编辑了他的注册表以指向PSETUPIN以打开他的对话框到他每次选择的默认特定文件夹。我似乎无法让它工作。这是我从屏幕截图中复制的代码。在我家里的电脑上，代码编辑了注册表，但对话框从未默认到该位置。我在家里使用AutoCAD 2002，所以认为我需要一个更新的版本，我在这里用AutoCAD 2015在一台垃圾机器上测试了它，我甚至无法让注册表更新，所以我手动将注册表更改为我想要的位置，但仍然没有去，它不默认为这个想要的位置。我非常有趣地学习如何操作注册表并控制我的默认对话框。
有人能向我解释并指给我一些好的示例和教程等...
谢谢

copy

[/(vl-load-com)
(vl-registry-write (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Profile\" (getvar "cprofile") "\\Dialogs\\PSETUPNavDlg") "FileNameMRU0" "C:\\Autodesk\\Publish_Template.dwt")
(vl-registry-write (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Profile\" (getvar "cprofile") "\\Dialogs\\PSETUPNavDlg") "InitialDirectory" "C:\\Autodesk")code]

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Master_Shake · 发表于 2016-7-28 12:02:55

实际上，我不会弄乱注册表。我认为您需要重新启动AutoCAD才能查看注册表的更改。
查看“PlotToFilePath”
（setenv“PlotToFilePath”locationasstring）

ronjonp · 发表于 2016-7-28 12:18:41

您的页面设置不是静态的吗？您可以将filedia设置为0，然后运行（vl-cmdf".-psetupin"fulltemplatepath"*"）来自动导入它们。
这是我使用了一年的例程的精简版本，您可以修改。

copy

(defun c:page (/ path)
(vl-load-com)
  ;; Delete all pagesetups first
  (vlax-for x (vla-get-plotconfigurations (vla-get-activedocument (vlax-get-acad-object)))
    (vla-delete x)
  )
  ;; Import if file is found
  (if (findfile (setq path "C:/Your/Path/YourTemplate.dwt"))
    (progn (setvar 'filedia 0)
      (vl-cmdf ".-psetupin" path "*")
      (princ "\n >>")
      (setvar 'filedia 1)
    )
    (princ "\n >>")
  )
  (princ)
)

cadman6735 · 发表于 2016-7-28 12:25:11

您好，我确实重新启动了我的autocad，但它没有更新。无论如何，谢谢。
我尊重不乱动注册表的想法，但工具就在那里，我看到了一些想要的结果，我对学习感兴趣并想了解，不要气馁。
嗨RonJon，是的，我已经在导入它们了，
我刚刚看到了一个新技巧，我觉得我可以扩展它，并想了解为什么代码不起作用，并希望通过询问找到新的信息路径。

ronjonp · 发表于 2016-7-28 12:32:07

我更新了上面的帖子，增加了一些代码。

cadman6735 · 发表于 2016-7-28 12:39:43

我有一些类似于你的代码，我相信CAB几年前帮助了我，但是当我把它放在子文件夹中并让我的AutoLoad.lsp尝试加载它时，它会出错。但是当我把它作为我的autolaod.lsp放在主文件夹中时，不是问题...我不知道为什么，我讨厌把它放在我的宏文件夹之外，看起来太不合适了。

copy

(defun PageSetup_AutoLoad (/)
  
;=====================================================================================================
;                                Load Plot Page Setup from Template file                               
;=====================================================================================================
  (setq *path* "S:\\VDC Library\\AutoCAD\\User Interface\\Plotters\\Publish\"
        *file* "Publish_Template.dwg"
        *pathfile* (strcat *path* *file*)
  )
  
  (if
    (findfile *pathfile*)
    (progn
      
      (command "._psetupin" *pathfile* "*")
      (while (wcmatch (getvar "cmdnames") "*PSETUPIN*") (command "_y"))
    )
  )  
(princ)
)(PageSetup_AutoLoad)

ronjonp · 发表于 2016-7-28 13:45:08

也许您需要处理可信文件位置。

cadman6735 · 发表于 2016-7-28 13:59:34

我关闭了安全加载(setvar "SecureLoad" 0 ),我的自动加载加载了我所有的其他宏，除了这个，所以不是这个。我也相信，因为你这么说，你让我了解了我遇到的另一个问题，所以谢谢
无论如何这都是题外话，我有兴趣了解注册表环境以及为什么我提供的代码不起作用。
我希望改进的地方是控制对话框打开时的默认开始位置，它们从某个地方开始，并记住它们打开时的最后位置，我希望对此有一些控制。

Master_Shake · 发表于 2016-7-28 14:01:18

到这儿来一下。
https://www.theswamp.org/index.php?topic=40962.0
这是一个很好的例子

ronjonp · 发表于 2016-7-28 14:13:22

FWIW这里是该代码的最新版本。

vl-注册表-写入

发表回复

精选推荐