API中的工作表模板文件路径位置？

Bryco · 发表于 2007-5-17 13:40:16

我已经创建了一个VBA模块，它将简单地设置我们所有的搜索路径、文件名和文件位置(支持路径)。
我需要的几乎所有东西都在Preferences集合中，但是我找不到设置工作表模板文件路径位置的方法。有人知道吗？

Preferences.Files.???? = "Path"

感谢马克

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

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

ronjonp · 发表于 2007-5-17 14:49:07

debug.print路径，你会发现yadayada； yadayada；即用；
分隔的一个长字符串，如果你添加到它的工作正常。
设置首选项=ThisDrawing.Application.Preferences
支持路径=Preferences.Files.SupportPath
debug.print支持路径

Bryco · 发表于 2007-5-17 15:00:33

我认为他正在寻找这个(见下图)，在这种情况下，你发布的内容不会显示特定的路径。
从我所看到的，没有办法(通过VBA)设置路径。我确信它被埋在注册表的某个地方，你可以修改它指向你的SS模板文件。只是大声说出自己的想法。

Bryco · 发表于 2007-5-17 15:20:28

嗨，马特
，是的，谢谢你，这正是我所说的，我在任何地方都找不到它。
如今，AutoCAD似乎非常擅长添加出色的新功能，但未能在VBA中提供它们。对于我如何以编程方式添加该路径，您还有其他建议吗？
谢谢
马克

ronjonp · 发表于 2007-5-17 15:31:47

如果您知道如何通过LSP或VBA更改注册表，您可以用这种方式修改它。
我在 HKCU \软件\ Autodesk \ AutoCAD \ r 17.0 \ ACAD-5106:409 \配置文件\[您的配置文件名称]\首选项\ AecProject50 \图纸集模板中找到了该设置
这是针对ABS 2007.1的。

ronjonp · 发表于 2007-5-17 15:45:19

不，我确实知道如何做这件事，也许我可以张贴一个新帖子来请求一些帮助？
标记

Bryco · 发表于 2007-5-17 15:47:45

FWIW，
我是如何通过 lisp：

copy

(vla-put-pagesetupoverridestemplatefile
  (vla-get-files
    (vla-get-preferences
      (vlax-get-acad-object)
    )
  )
  "c:\"
)

或者 this：

copy

(setenv "AlternativePageSetUpsTemplate" "C:\")

Ron 来做到这一点
的

ronjonp · 发表于 2007-5-17 15:57:12

Ron，
你是说Page Setup Overide吗？
那是指工作表模板文件位置吗？
如果是这样，我确实在VBA中看到了
标记

ronjonp · 发表于 2007-5-17 16:03:08

Ron：这是VBA中的，但是，这是用于＜br＞工作表创建和页面设置覆盖的默认模板＜br＞我需要上面的方法＜br＞图纸集模板文件位置＜br＞再次感谢＜br＞标记

Bryco · 发表于 2007-5-17 18:05:46

将它放在一个模块中(我认为它来自Randall Rath)代码3]
这为我更改了密钥，但我没有使用工作表集来测试它。

copy

Sub SetSheetSet()
    Dim CadStart As String
    Dim KeyName As String
    Dim valueName As String
    Dim DefaultData As String
    Dim dataValue As String
   'This is my key    "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.0\ACAD-5005:409\Profiles\Lex2007\General"
   KeyName = "Software\Autodesk\AutoCAD\R17.0\ACAD-5005:409\Profiles\Lex2007\General"
   
    valueName = "SheetSetTemplatePath"
    dataValue = "YourTemplatePath"
    
    WriteStringValue HKEY_CURRENT_USER, KeyName, valueName, dataValue
   
    
    Debug.Print ReadRegVal(HKEY_CURRENT_USER, KeyName, valueName, DefaultData)
    
End Sub

API中的工作表模板文件路径位置？

发表回复

精选推荐