在启动套件中插入程序文件。

FELIX · 发表于 2015-10-19 21:12:43

通过代码将程序文件插入启动套件内容列表

rsrrarsozcq.png

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

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

FELIX · 发表于 2015-10-20 07:42:43

我认为你不能这样做。
因此，自动加载程序，注册表项等的原因。
但是，您可以通过编程方式自动执行对话框，并以这种方式将文件添加到启动菜单。然而，问题是为什么？还有其他方法可以自动加载lisp，.net，arx文件，这样会更好。
**编辑，因为它是一个错误的答案**

neyton · 发表于 2015-10-20 08:47:22

我想可能是Windows注册表。
我需要的是运行VLX来加载菜单。

MexicanCustard · 发表于 2015-10-20 08:49:51

你应该试试这个链接。
http://www.lee-mac.com/autoloading.html

neyton · 发表于 2015-11-4 09:38:08

试试这个。

copy

 (Setq reg      (strcat "HKEY_CURRENT_USER\"  (vlax-product-key) "\\Profiles\" (getvar "cprofile"))
       regstar  (strcat reg  "\\Dialogs\\Appload\\Startup\"))
  (if (not (vl-registry-descendents regstar ""))
    (Setq regstar  (strcat reg "\\UserInterfaceSettings\\Appload\\History")
          local    "History")
    (setq local "Startup"))
  
  (setq start    (mapcar '(lambda (x)
                            (setq x (strcase (vl-registry-read regstar x) t))
                            (list (strcat (vl-filename-base x) (vl-filename-extension x))
                                  (vl-filename-directory x)))
                         (vl-remove "NumHistory" (vl-remove "NumStartup" (vl-registry-descendents regstar "")))))
(setq tbdir "c:\\teste"
      vlx "teste.vlx")
(if (not (assoc vlx start)) ;se não está na startup suite, carrega
          (progn
            (vl-registry-write regstar (strcat (itoa (length start)) local) (strcat tbdir "\" vlx ))
            (vl-registry-write regstar (strcat "Num" local) (itoa (length start)))))

注意，加载此代码后必须重新启动Autocad，才能做到效果

MexicanCustard · 发表于 2015-11-4 15:12:29

有人能把胡言乱语翻译成C#吗？

FELIX · 发表于 2015-11-4 15:44:29

有人能把胡言乱语翻译成C#吗？

(乱码)
(乱码)
写入注册表

FELIX · 发表于 2015-11-5 07:16:23

您需要在此注册表项中写入：
HKEY_CURRENT_USER\SOFTWARE\Autodesk\AutoCAD\R20.1\ACAD-F000：409\Profiles\
>\Dialogs\Appload\Startup
for 2013 或更高版本，use：
HostApplicationServices.Current.UserRegistryProductRootKey
for 2012 或波纹管，use：
Runtime.SystemObjects.DynamicLinker.ProductKey
要检索此字符串（取决于 autocad 版本）：
“HKEY_CURRENT_USER\SOFTWARE\Autodesk\AutoCAD\R20.1\ACAD-F000：409\
”
>“是当前的 autocad 配置文件
Use：
Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable（”cprofile“）
您需要 add：
1Startup = ”c：\teste.vlx“
NumStartup = 1
如果您添加多个项目：
1Startup = ”c：\teste1.vlx“
2Startup = ”c：\teste2.vlx“
3Startup = ”c：\teste3.vlx“
4Startup = ”c：\teste4.vlx“
...
NStartup = “c：\testeN.vlx”
NumStartup = N
其中 N 是项
数

neyton · 发表于 2015-11-5 10:51:06

尼顿，谢谢你的翻译。由于这是在.NET论坛上发布的，我想确保有一个.NET答案。如果您不需要验证启动文件夹中是否已经存在文件名，那么：private static void AddStartupApplication（字符串文件名）。
{。
var config = Application.UserConfigurationManager.OpenCurrentProfile（）;。
如果（！配置，包含子部分（“对话框\\应用加载\\启动”））。
返回;。
。
var startup = config.OpenSubsection（“Dialogs\\Appload\\Startup”）;。
如果（！启动，Contains（“NumStartup”））。
返回;。
。
var number = （int）startup.ReadProperty（“NumStartup”， 0） + 1;。
启动，WriteProperty（“NumStartup”， number）;。
启动，WriteProperty（$“{number}Startup”， filename）;。
}如果需要验证启动文件夹中的文件是否存在：private static void AddStartupApplication（字符串文件名）。
{。
var autocad = Registry.CurrentUser.OpenSubKey（“Software\\Autodesk\\AutoCAD\\”）;。
var curVersion = autocad？.GetValue（“CurVer”）;。
if （curVersion == null）。
返回;。
。
var release = autocad.OpenSubKey（curVersion.ToString（））;。
curVersion = release？.GetValue（“CurVer”）;。
if （curVersion == null）。
返回;。
。
var 版本 = 发布，OpenSubKey（curVersion.ToString（））;。
var 配置文件 = 版本？，OpenSubKey（“Profiles”）;。
if （profiles == null）。
返回;。
。
var profileName = profiles.GetValue（“”）;。
var profile = profiles，OpenSubKey（profileName.ToString（））;。
var startup = profile？.OpenSubKey（“Dialogs\\Appload\\Startup”）;。
如果（启动 == 空）。
返回;。
。
var exists = startup.GetValueNames（）。
，Where（n => n ！= “NumStartup”）。
，选择（n =>（字符串）启动，GetValue（n））。
，Any（v => v == 文件名）;。
如果（存在）。
返回;。
。
var number = （int） startup.GetValue（“NumStartup”） + 1;。
启动，SetValue（“NumStartup”， number）;。
启动，SetValue（$“{number}Startup”， filename）;。
}RegistryKey 类是一次性的，因此您可以/可能应该将所有键包装在 using 语句中。

MexicanCustard · 发表于 2015-11-6 22:45:45

非常好！我们快到了。但理想的不是一个DLL，对于用户来说除了要加载程序来配置AutoCAD还得重新启动。理想的是一个可执行的EXE程序，它可以配置AutoCAD，而不必运行和重启。一个安装程序/ qu.e configurator也搜索所有已安装的AutoCADs
我放下一个程序，我正在VB.NET开发，但由于我没有这种语言的技能，修改注册表。
我请求您指导我完成并改进它。

copy

Imports Microsoft.Win32
Partial Public Class ConfiguraCADForm
    Public Sub New()
        Me.InitializeComponent()
    End Sub
    Sub MainFormLoad(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Dim VERKEY As String = ""
        Dim CURVER As String = ""
        Dim PROFILE As String = ""
        '
        Dim K_ACADUSER As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\\Autodesk\\AutoCAD")
        Dim VERKEYS As String() = K_ACADUSER.GetSubKeyNames()
        For Each VERKEY In VERKEYS
            MsgBox(VERKEY)
            Dim K_VERKEY As RegistryKey = K_ACADUSER.OpenSubKey(VERKEY)
            Dim CURVERS As String() = K_VERKEY.GetSubKeyNames()
            For Each CURVER In CURVERS
                MsgBox(VERKEY + "" + CURVER)
                Dim K_PROFILES As RegistryKey = K_ACADUSER.OpenSubKey(VERKEY + "" + CURVER + "" + "Profiles")
                Dim PROFILES As String() = K_PROFILES.GetSubKeyNames()
                For Each PROFILE In PROFILES
                    MsgBox(VERKEY + "" + CURVER + "" + PROFILE)
                    Dim K_PROFILE As RegistryKey = K_PROFILES.OpenSubKey(PROFILE)
                    Dim K_STARTUP As RegistryKey = K_PROFILE.OpenSubKey("Dialogs\Appload\Startup", RegistryKeyPermissionCheck.ReadWriteSubTree)
                    Dim NUMBER As String = K_STARTUP.GetValue("NumStartup").ToString
                    MsgBox(NUMBER)
                    '...
                    '...ADD "C:\TEST.VLX" IF NOT EXIST
                    '...
                    K_STARTUP.Close()
                    K_PROFILE.Close()
                Next PROFILE
                K_PROFILES.Close()
            Next CURVER
            K_VERKEY.Close()
        Next VERKEY
        K_ACADUSER.Close()
        Me.Close()
    End Sub
End Class

在启动套件中插入程序文件。

发表回复

精选推荐