[求助]：如何用LISP打开现有的abc.dwg图档

wujinhua3847 · 发表于 2007-8-10 12:41:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何用LISP打开现有的abc.dwg图档,先谢了

Underway · 发表于 2007-8-10 13:20:51

ref link:

http://www.cadtutor.org/forum/showthread.php?t=13567

(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

mann_ygw · 发表于 2007-8-12 01:16:24

哈哈，好！正是我们大家所需的。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何用LISP打开现有的abc.dwg图档

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子