liunian0524 发表于 2022-9-26 07:54:59

(defun c:tzdw ()
        (princ"打开当前文件所在位置")
        (setq winshell (vlax-create-object "shell.application"))
        (setq filepath (getvar "dwgprefix"))
        (vlax-invoke-method winshell 'open filepath)
        (princ)
)

paulpipi 发表于 2022-9-26 09:29:53

感谢各位大坤分享
页: 1 [2]
查看完整版本: 打开指定文档并设置为当前