用法
评论
建议
取 消
确 定
(defun system:get-folder (msg / winshell shfolder path catchit) "调用Windows通用目录选取对话框,返回选中路径.\n参数: msg-对话框提示字符串" (vl-load-com) (setq winshell (vlax-create-object "Shell.Application")) (setq shfolder (vlax-invoke-method winshell (quote browseforfolder) 0 msg 1)) (setq catchit (vl-catch-all-apply (quote (lambda nil (setq shfolder (vlax-get-property shfolder (quote self))) (setq path (vlax-get-property shfolder (quote path))))))) (if (vl-catch-all-error-p catchit) nil path))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 772 个
函数库类别: 54 种
上传记录
刷新