获取cad注册表路径

Dim regPath As String = HostApplicationServices.Current.RegistryProductRootKey