嘿,Bryon,我很感激,我特别关注最后一个子集,我试过了,但我得到了一个子集或函数,没有在线定义WriteStringValue HKEY_CURRENT_USER, KeyName, valueName, dataValue
是否缺少一个函数或另一个子例程
谢谢你,马克 Ml,它包含在您放入模块的部分中(我在我的dvb中称为“注册表”模块)
您需要它和使其工作的常数。 PageSetupOverridesTemplateFile属性是您需要的。将下面的代码放入sub并运行它。它应该在即时窗口中打印图纸集模板文件的位置
Sub Example_PageSetupOverridesTemplateFile()
Dim MyFiles As IAcadPreferencesFiles2
Set MyFiles = AcadApplication.Preferences.Files
Debug.Print MyFiles.PageSetupOverridesTemplateFile
End Sub
DOH
我需要更好地阅读帖子; 这个怎么样
(vla-put-templatedwgpath
(vla-get-files
(vla-get-preferences
(vlax-get-acad-object)
)
)
"c:\\"
)
(setenv "TemplatePath" "C:\\")
页:
1
[2]