nyistjz 发表于 2022-9-20 17:27:16

消除复制时\"无法复制到剪贴板\"弹窗

本帖最后由 nyistjz 于 2022-10-14 16:09 编辑

水平有效，简单可用，赚个币！


;消除复制时\"无法复制到剪贴板\"弹窗
(defun av:linkclip(/ *error* file fullname name path pt)
      (defun *error*(str)(setvar "cmdecho" 1)(princ))
      ;奔跑吧，少年！
      (setvar "cmdecho" 0)
(setq *ACAD* (vlax-get-acad-object ))
      (setq *DOC* (vla-get-ActiveDocument *ACAD* ))
       (setq *docs* (vla-get-Documents *ACAD*))
      (cond
                ((setq file (findfile (vla-get-FullName *doc*)))
                        (vl-bb-set "linkclip" file)
                        (command-s "copylink")
                        (alert "功能：消除复制时\"无法复制到剪贴板\"弹窗；\n\n作法：请在即将打开的空白文档中直接\"CTRL+V\"粘贴，或再次运行此命令！！！")
                        (vla-activate (vla-add *docs* ""))
                )
                ((setq file (vl-bb-ref "linkclip"))
                        (vl-bb-set "linkclip" nil)
                        (command-s "pasteclip" "0,0")
                        (vla-zoomextents *acad*)
                        ;保存当前文档
                        (setq path (vl-filename-directory file))
                        (setq name (vl-filename-base file))
                        (setq fullname (strcat path "\\" name "-去弹窗" ".dwg"))
                        (vla-SaveAs *doc* fullname ac2004_DWG)
                        (command-s "qsave")
                        (while (null (vl-file-delete file))
                              (vla-close (vla-item *docs* (strcat name ".dwg")) :vlax-false)
                        )
                )
                (t (princ "请在有\"无法复制到剪贴板\"弹窗的文档中运行此命令。"))
      )
      (*error* nil)
)

KO你 发表于 2022-10-2 12:37:23

nyistjz 发表于 2022-9-21 08:46
可以测试用

输入copylink命令    在新建一个文件里粘贴就行了

nyistjz 发表于 2022-9-21 12:23:37

andyhua 发表于 2022-9-21 10:20
有这个弹窗，其实也是挺好的，至少让你知道本次的复制命令，是失效的没有成功。除非楼主的程序是可以让复制 ...

andyhua 发表于 2022-9-21 10:20:34

有这个弹窗，其实也是挺好的，至少让你知道本次的复制命令，是失效的没有成功。除非楼主的程序是可以让复制失效的图，变得可以复制。这样才有点卵用。

gaics 发表于 2022-9-21 08:01:36

果然好用！！！

nyistjz 发表于 2022-9-21 08:46:15

可以测试用

xsso 发表于 2022-9-21 09:37:27

测试可行，其它还没测试

gaics 发表于 2022-9-21 13:16:03

andyhua 发表于 2022-9-21 10:20
有这个弹窗，其实也是挺好的，至少让你知道本次的复制命令，是失效的没有成功。除非楼主的程序是可以让复制 ...

不仅仅是去弹窗吧？我测试可以复制啊

菜卷鱼 发表于 2022-9-21 15:59:13

andyhua 发表于 2022-9-21 10:20
有这个弹窗，其实也是挺好的，至少让你知道本次的复制命令，是失效的没有成功。除非楼主的程序是可以让复制 ...

如果不能复制，把这个文件当做一个块，插入到别的图里面去，再炸开

天宇飞翔12 发表于 2022-9-21 18:38:57

要币啊，等测试有效:lol

lidaxiu 发表于 2022-9-21 19:42:32

这有啥，不就是个代理图形的问题吗，把代理图形搞掉就能复制和粘贴了
页: [1] 2
查看完整版本: 消除复制时\"无法复制到剪贴板\"弹窗