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

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命令在新建一个文件里粘贴就行了

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

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

nyistjz · 发表于 2022-9-22 08:58:41

wudi 发表于 2022-9-21 20:04
加载提示：输入中的点位置不正确

你可以试试，在其它问题图形中试试是否有这个问题，如果还有，那就说明程序本身有缺陷，如果没有，就说明是图纸本身有什么问题，你可以把您的问题图纸传上来，我测试一下。

目前，您可以在新的空白文档中直接CTRL+V粘贴来操作，也是可以的。

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

果然好用！！！

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

可以测试用

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

测试可行

，其它还没测试

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

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

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

要币啊，等测试有效

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

这有啥，不就是个代理图形的问题吗，把代理图形搞掉就能复制和粘贴了

账号		自动登录	找回密码
密码			注册

[源码] 消除复制时\"无法复制到剪贴板\"弹窗

评分

本帖子中包含更多资源