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

nyistjz

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

;消除复制时\"无法复制到剪贴板\"弹窗
(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你

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

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

nyistjz

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

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

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

szhorse

楼主的代码我不会用
对于楼主上传的侧视图“有无法复制到剪贴板的弹窗.dwg”，
我是用以下两种方法解决的：
【方法1】
copylink——新文件中Ctrl+V。
【方法2】
insert——将出现此现象的文件当做一个块插入到你想要的图形里，分解。

gaics

果然好用！！！

nyistjz

可以测试用

xsso

测试可行，其它还没测试

andyhua

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

nyistjz

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

gaics

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

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

菜卷鱼

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

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

天宇飞翔12

要币啊，等测试有效

lidaxiu

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