;;; 启用资源管理器, 打开相应图纸所在目录并选中该文件 (defun dos_execute (str / wsh var) (setq wsh (vlax-get-or-create-object "wscript.shell")) (setq var (vl-catch-all-apply'vlax-invoke (list wsh 'run str))) (vlax-release-object wsh) var ) (defun c:DKWJ (/
1 (vl-load-com) 2 3 ;;;关闭选取外图层 4 ;;;完整命令：YX_LAY_OFFSELO 5 ;;;简化命令：LF 6 (defun c:yx_lay_offselo( / ename i lay layers laylst layname n obj ss str tmplaynamelst) 7 (Berni_Start) 8 (princ "\nKN工具箱--关闭选取以外的
(defun ClearClipBoard () (startapp "cmd /c \"echo off | clip\"")) ; (clearclipboard) (defun _SetClipBoardText (text / htmlfile result) ;; Caller's sole responsibility is to pass a ;; t
