[原创]open的LSP程序

zjyangxyz

(defun c:ww()
(vl-load-com)
(setq kk (getfiled "Select  File" (strcat(vla-get-path (vla-get-activedocument (vlax-get-acad-object))))  "dwg" 16))
(sopen  kk) 
  )

(defun openRO (fna)
  (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) fna :VLAX-TRUE))
)

(defun sopen (fna / n)
  (if (= 0 (getvar "SDI"))
    (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) fna))
    (progn
      (if (not (equal 2 (logand 2 (getvar "qaflags"))))
        (setvar "qaflags" (+ (getvar "qaflags") 2))
      )
      (if (not (equal 4 (logand 4 (getvar "qaflags"))))
       (setvar "qaflags" (+ (getvar "qaflags") 4))
      )
      (command "_.open")
      (if (not (equal 0 (getvar "dbmod")))
        (command "_y")
      )
      (command fna) 
      (setq n 0)
      (while (and (< n 4)
                  (wcmatch (getvar "cmdnames") "*OPEN*")
             )
          (T
            (command "")
          )
        (setq n (+ n 1))
      )
      (setvar "qaflags" 0)
    )
  )
)

zjyangxyz

(setq kk (getfiled "Select  File" (strcat(vla-get-path (vla-get-activedocument (vlax-get-acad-object))))  "dwg" 16))
改成(setq kk (getfiled "Select  File" (strcat(vla-get-path (vla-get-activedocument (vlax-get-acad-object))))  "dwg;dws;dxf;dwt" 16))

就和CAD本身的open开启的选项一样了！

clh521

直接用“open”命令不可以吗，

jaminth

能不能做个“只读”打开文件的功能 ？！

wangfq332

LZ，能不能做个新建（QNEW）命令的LISP程序？好像QNEW命令和OPEN命令一样不能直接调用的，学习学习VLA的用法。

teykmcqh

可以应用到程序中，谢谢啦

yaojing38

总结的好