[求助]：请看下面的程序，怎么打开闪一下就不在了？

寒光四射

请看下面的程序，怎么打开一下就不在了？
(DEFUN C:dk (/ t)
(vla-open (vla-get-documents (vlax-get-acad-object)) "C:\\1.DWG")
)

实现目的就是打开CAD的图形，但是怎么只闪一下，图纸就不在了？

xyp1964

变量怎么能用“t”！！！
函数不全！
[php](DEFUN C:dk ()
  (vla-open (vla-get-documents
              (vla-get-application
                (vla-get-activedocument (vlax-get-acad-object))
              )
            )
            "C:\\1.DWG"
  )
)[/php]

寒光四射

斑竹，参数是为了以后由用户输入，
但是这里不是有参数的原因，去掉参数后还是老样子，
还有什么方法吗？谢谢

注：lisp程序

winabcd

xyp1964：
我用下列方法也能打开图形，这样打开和你的方法有什么区别吗？
(DEFUN C:dk ()
  (vla-open (vla-get-documents
         (vlax-get-acad-object))
          )
        "C:\1.DWG"
  )
)

xyp1964

最初由 寒光四射 发布
[B]斑竹，参数是为了以后由用户输入，
但是这里不是有参数的原因，去掉参数后还是老样子，
还有什么方法吗？谢谢

注：lisp程序 [/B]

t 是固有返回值，如同nil 一样，不能当参数用！！！
不知偶所提供的东东能否用？