用lisp如何实现打开指定目录下的cad图

qxjlax

用lisp如何实现打开指定目录下的cad图

qxjlax

哪位老大知道啊？用lisp如何实现打开 关闭 保存 和不保存关闭cad图形！

机械工程师

用lisp如何实现打开指定目录下的cad图

insert就可以了。


用lisp如何实现打开 关闭 保存 和不保存关闭cad图形！
需要配合doslib实现。

董堃

明白了

qxjlax

用哪个或哪几个doslib函数才能实现啊，我找了半天没有找到啊！请赐教！

sailorcwx

用什么doslib呀，用vlisp就可以了
试试我下面的程序，打开当前图纸同一目录下的其他图纸，可以按ctrl多选
把程序放到CAD的支持路径下 

zhb236623

;如何用LISP打开现有的abc.dwg图档
(defun OpenFile(FilePath Activate / oFile)
(vl-load-com)
(if(findfile FilePath)
(if(vl-file-systime FilePath)
(if
(vl-catch-all-error-p
(setq oFile
(vl-catch-all-apply
'vla-open
(list
(vla-get-Documents
(vlax-get-acad-object)) FilePath))))
(alert
(strcat "ERROR.\n Can't open file: " FilePath))
(if Activate(vla-Activate oFile))
); end if
(alert
(strcat "ERROR. File " FilePath
"\n may be opened, inaccessible or password protected."))
); end if
(alert
(strcat "ERROR.\n File not found: " FilePath))
); end if
oFile
); end of OpenFile

ejingsong

如果我想用OPEN这个命令呢    指定文件的路径  
(command "open" d:/11.dwg "")  想知道为啥这样写不对

PGJ

OpenFile 怎么用的