cass初始化
;;;;;;;;;;;;;;初始化;;;;;;;;;;;;;;;;;;;;;;;;;;;;(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)
;;;;;;;;;;;;;;;初始化完成;;;;;;;;;;;;;;;;;;;;;;;;;;;;
感谢分享
页:
[1]