cass初始化

345205680

;;;;;;;;;;;;;;初始化;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setvar 'CURSORSIZE 100);十字光标最大
(setvar 'APERTURE 10);捕捉靶框大小
(setvar 'PICKBOX 13);拾取框大小
(command "_.undefine" "za");卸载cad2016的za命令
(setvar 'reporterror 0);cad致命错误后不弹出错误报告对话框
(setvar 'plinetype 1);强制画多段线
(setvar 'osnapz 1);;;强制使用当前标高替换Z值 2017年9月30日 09:16:22
(if(= "ACAD.DWT" (getvar "dwgname"))(command "close"));关闭样版图形


(defun c:bar(/ lst);;;        程序功能：如果标准工具栏未显示，则显示出来
  (setq lst '("标准工具栏" "标准" "修改" "对象捕捉" "绘图"))
  (foreach n lst (openmenubar n))
  )
(defun openmenubar(l / menu tool vis);;;        程序功能：如果标准工具栏未显示，则显示出来
  (vl-load-com)
  (setq menu (vla-item (vla-get-menugroups (vlax-get-acad-object)) "cass")
        ;cass  标准工具栏 在这个cass菜单文件里边
        tool (vla-item (vla-get-toolbars menu) l)
        vis  (vla-get-visible tool)
  )
  (if (= vis :vlax-false)
    (vla-put-visible tool :vlax-true)
  )
)
;;;(c:bar)
;;;;;;;;;;;;;;;初始化完成;;;;;;;;;;;;;;;;;;;;;;;;;;;;