wo870711 发表于 2021-12-7 15:22:41

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

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

wo870711 发表于 2021-12-10 08:46:59

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

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

ssyfeng 发表于 2021-12-10 09:07:06

本帖最后由 ssyfeng 于 2021-12-10 09:22 编辑

试试这个：
(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 发表于 2021-12-9 21:43:32

;读取系统剪贴板中字符串
(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 发表于 2021-12-8 22:19:18

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

wo870711 发表于 2021-12-10 08:41:24

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 发表于 2021-12-10 09:25:28


wo870711 发表于 2021-12-10 09:26:21

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


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

ssyfeng 发表于 2021-12-10 09:26:48

感觉没什么用

wo870711 发表于 2021-12-10 09:43:24

本帖最后由 wo870711 于 2022-3-17 15:22 编辑

ssyfeng 发表于 2021-12-10 09:26
感觉没什么用
有用的。.。。。。
页: [1] 2
查看完整版本: 求助：做一个能直接带有粘贴功能，打开我已复制在剪切板里的文件。