请教怎么才能制作一个自动加载工具条的程序？

xiaoliang200

请教怎么才能制作一个自动加载工具条的程序？

最好发段源码上来参考参考！

willsnow1982

这是一段加载菜单的代码，照葫芦画瓢能做到么？

;加载菜单
(defun XG_MNU_LOAD ( / grp mnus file mnu tbars tbar)
  (setq grp "XG")
  (setq mnus (vlax-get-property *ax:AcadObject* 'MenuGroups))
  (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-Item (list mnus grp)))
    (if (setq file (findfile "XG_TOOLBAR.mnu"))
      (vlax-invoke-method mnus 'Load file)
    );
  );if
  (if (not (vl-catch-all-error-p (setq mnu (vl-catch-all-apply 'vla-Item (list mnus grp)))))
    (progn
      (setq tbars (vlax-get-property mnu 'Toolbars))
      (if (not (vl-catch-all-error-p (setq tbar (vl-catch-all-apply 'vla-Item (list tbars "1:500地形图修改工具")))))
 (vlax-put-property tbar 'Visible :vlax-true)
      );if
    )
  );if
)

xiaoliang200

谢谢这位大侠的不吝赐教！我研究一下，有不懂的再请教你！

xiaoliang200

willsnow1982

你的这个自定义函数好像有错吧，是否还需配合别的函数，请指教一下！