设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: marting

[其他] (XD::AutoStartup)设置一个应用程序自动随ACAD启动

  [复制链接]

签到天数: 553 天

连续签到: 47 天

[LV.9]以坛为家II

已领礼包: 965个

财富等级: 财运亨通

发表于 2018-5-5 10:55:03 | 显示全部楼层
学习一下,谢谢分享这么好的程序
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 68 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 21个

财富等级: 恭喜发财

发表于 2018-5-13 20:26:26 | 显示全部楼层
学习学习学习学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 49 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 10个

财富等级: 恭喜发财

发表于 2018-5-16 05:16:32 来自手机 | 显示全部楼层
自己设置的有时候会失效
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1379 天

连续签到: 3 天

[LV.10]以坛为家III

已领礼包: 3065个

财富等级: 富可敌国

发表于 2018-5-16 08:02:31 | 显示全部楼层
好好学习天天向上
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 262 天

连续签到: 3 天

[LV.8]以坛为家I

已领礼包: 253个

财富等级: 日进斗金

发表于 2018-5-16 08:37:08 | 显示全部楼层
回复,学习大师的程序
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 275 天

连续签到: 1 天

[LV.8]以坛为家I

发表于 2018-5-22 15:10:23 | 显示全部楼层
看看marting老师的作品

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1 天

连续签到: 1 天

[LV.1]初来乍到

发表于 2018-5-22 22:00:11 | 显示全部楼层
厉害了,学习一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 80 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 27个

财富等级: 恭喜发财

发表于 2018-5-24 13:50:03 | 显示全部楼层
学习学习如何处理添加信任路径
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1 天

连续签到: 1 天

[LV.1]初来乍到

发表于 2018-5-25 19:01:43 | 显示全部楼层
66666666666
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 948 天

连续签到: 2 天

[LV.10]以坛为家III

已领礼包: 836个

财富等级: 财运亨通

发表于 2018-5-30 11:27:54 | 显示全部楼层
回复,学习大师的程序
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1986 天

连续签到: 84 天

[LV.Master]伴坛终老I

已领礼包: 5900个

财富等级: 富甲天下

发表于 2018-6-6 00:06:43 | 显示全部楼层
这个不错,学习一下。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 291 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-6-10 23:43:24 来自手机 | 显示全部楼层
看看学学学
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 294 天

连续签到: 2 天

[LV.8]以坛为家I

已领礼包: 193个

财富等级: 日进斗金

发表于 2018-6-20 22:18:13 | 显示全部楼层
学习学习!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

签到天数: 57 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 1个

财富等级: 恭喜发财

发表于 2018-6-24 01:49:34 | 显示全部楼层
原搜索路径不会判断原路径是否存在,删除此添加搜索路径与信任加载。
新增对路径已存在列表的判断。

找了很久,此代码是比较完善解决APPLOAD自动加载的问题。

  1. (defun XD-AutoStartup (path tf / a allpro AppLoadPath NewNum no trpath verno x)
  2.   (if (setq path (findfile path))
  3.     (progn
  4.       (setq allpro (XD-Var-GetProfiles tf))
  5.       (mapcar
  6.         '(lambda (x)
  7.            (setq AppLoadPath
  8.                                                  (strcat "HKEY_CURRENT_USER\"
  9.                                                          (vlax-product-key) "\\Profiles\" x
  10.                                                          "\\Dialogs\\Appload\\Startup"
  11.                                                  )
  12.            )
  13.            (setq num (read (vl-registry-read AppLoadPath
  14.                                                                                                                  "NumStartup"
  15.                                                                                                          )
  16.                                                                                  )
  17.                                                  n num
  18.                                                  lst '()
  19.                                          )
  20.                                          (while (> n 0)
  21.                                                  (setq lst (cons (vl-registry-read AppLoadPath (strcat (itoa n) "Startup")) lst) n (1- n))       
  22.                                          )
  23.                                          (if (null (member path lst))
  24.                                                  (progn
  25.                                                          (setq NewNum (itoa (1+ num)))
  26.                                                          (vl-registry-write AppLoadPath "NumStartup" NewNum)
  27.                                                          (vl-registry-write AppLoadPath (strcat NewNum "Startup") path)
  28.                                                          (princ (strcat "已增加自动加载路径:" path))
  29.                                                  )
  30.                                          )
  31.          )
  32.         allpro
  33.       )
  34.     )
  35.   )
  36.         (princ)
  37. )
  38. (defun XD-Var-GetProfiles (tf)
  39.   (if tf
  40.     (progn (vla-getallprofilenames
  41.              (vla-get-profiles
  42.                (vla-get-preferences (vlax-get-acad-object))
  43.              )
  44.              'Profiles
  45.            )
  46.                         (safearray-value Profiles)
  47.     )
  48.     (list (getvar "cprofile"))
  49.   )
  50. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 27 天

连续签到: 1 天

[LV.4]偶尔看看III

发表于 2018-6-24 21:20:37 | 显示全部楼层
厉害厉害厉害厉害厉害
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2018-10-19 07:24 , Processed in 0.206309 second(s), 58 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表