求助：做一个能直接带有粘贴功能，打开我已复制在剪切板里的文件。

wo870711

如题，就是 我已经把文件路径和名称复制好的，想这个LISP 能粘贴出路径，并打开。有没有大神会啊。

wo870711

rocking2008 发表于 2021-12-8 22:19
直接插入这个dwg文件不就行了

我的效果想达到，我一键可以把一个文件直接打开。

ssyfeng

试试这个：
(defun GetClip (/ HTML RESULT)
  (and (setq HTML (vlax-create-object "htmlfile"))
                (setq RESULT (vlax-invoke
                                (vlax-get (vlax-get HTML 'PARENTWINDOW) 'CLIPBOARDDATA)
                                'GETDATA
                                "Text"
                                )
                )
                (vlax-release-object HTML)
        )
  RESULT
)
(defun c:tt ()
        (vlax-invoke-method
                (vlax-get-or-create-object "Wscript.Shell")
                'run
                (strcat "\""(GetClip) "\"")
        )
)

669423907

;读取系统剪贴板中字符串
(defun N粘帖板N(/ HTML RESULT)
(and (setq HTML (vlax-create-object "htmlfile"))
(setq RESULT (vlax-invoke(vlax-get (vlax-get HTML 'PARENTWINDOW) 'CLIPBOARDDATA) 'GETDATA"Text"))
(vlax-release-object HTML)) RESULT)

;(defun c:13()
;(vla-activate (vla-open (vla-get-documents (vlax-get-acad-object))
;"E:\\123.dwg"
;)))

(defun c:13()
(vla-activate (vla-open (vla-get-documents (vlax-get-acad-object))
N粘帖板N
)))

rocking2008

直接插入这个dwg文件不就行了

wo870711

669423907 发表于 2021-12-9 21:43
;读取系统剪贴板中字符串
(defun N粘帖板N(/ HTML RESULT)
(and (setq HTML (vlax-create-object "htmlfi ...

命令: 13
; 错误: 此类型的 LISP 值不能强制转换成 VARIANT:  #<SUBR @000000003f7ddb38 N粘帖板N>


大神出这么个问题

ssyfeng

wo870711

ssyfeng 发表于 2021-12-10 09:07
试试这个：
(defun GetClip (/ HTML RESULT)
  (and (setq HTML (vlax-create-object "htmlfile"))

哇塞，好用大神，万分感谢

ssyfeng

感觉没什么用

wo870711

ssyfeng 发表于 2021-12-10 09:26
感觉没什么用

有用的。.。。。。