[求助]谁来帮我看看这个打开文件的程序？，急

userzhl

(vla-open (vla-get-documents (vlax-get-acad-object)) 文件名)

文件是可以打开，但是如何才能激活为当前文件？

还有就是打开此文件后，如何能运行某个指定的程序？

Andyhon

如何能运行某个指定的程序？

Lisp本身依存于当前文件图档
可以新开文件图档,但后续程序跳不过去

如果臆测无误,您所要的或可绕道脚本(Script)

caoyin

3. ;;____________________________________________________________________________________________________
4. ;; ▓  (lt:DWGFile-open fn active)
5. ;; [功能] 打开 DWG 文件
6. ;; [参数] fn-------文件名
7. ;;        active---非 nil 时激活该文档
8. (defun lt:DWGFile-open (fn active / $acad *bak*)
9.   (if (setq fn (l:filenamep fn))
10.     (progn
11.       (setq $acad (vlax-get-acad-object)
12.             *bak* (vl-catch-all-apply
13.                     'vla-open
14.                     (list (vla-get-documents $acad) fn)
15.                   )
16.       )
17.       (if (vl-catch-all-error-p *bak*)
18.         nil
19.         (progn
20.           (if active (vla-put-activedocument $acad *bak*))
21.           T
22.         )
23.       )
24.     )
25.   )
26. )

;;____________________________________________________________________________________________________ ;; ▓  (lt:DWGFile-open fn active) ;; [功能] 打开 DWG 文件 ;; [参数] fn-------文件名 ;;        active---非 nil 时激活该文档 (defun lt:DWGFile-open (fn active / $acad *bak*)   (if (setq fn (l:filenamep fn))     (progn       (setq $acad (vlax-get-acad-object)             *bak* (vl-catch-all-apply                     'vla-open                     (list (vla-get-documents $acad) fn)                   )       )       (if (vl-catch-all-error-p *bak*)         nil         (progn           (if active (vla-put-activedocument $acad *bak*))           T         )       )     )   ) )

userzhl

楼上：

 no function definition: L:FILENAMEP

缺少函数：L:FILENAMEP

caoyin

无关紧要，主要判断文件名的合法性

(defun l:filenameP (file)
  (if (and (= (type file) 'str)
           (setq file (findfile file))
           (not (vl-file-directory-p file))
      )
    file
  )
)

userzhl

有问题，访问冲突