乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 160|回复: 8

CopyObjects 函数在 CAD2012 中变慢

[复制链接]

10

主题

32

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
72
发表于 2019-8-1 08:30:00 | 显示全部楼层 |阅读模式
使用 CopyObjects 函数编制了一个合并图纸的小程序,技术细节就是遍历图纸中的每个对象,然后将其复制到当前图纸了。在CAD 2007 2008 64Bit里面运行非常的快,但是到了 cad 2012 64Bit 就变成蜗牛了。无意中打开任务管理器,发现 CAD 2012 与 VBA Enabler 64 是互相独立运行的两个 windows 程序。是因为这个原因么?还是因为别的技术因素?
回复

使用道具 举报

3

主题

24

帖子

3

银币

初来乍到

Rank: 1

铜币
36
发表于 2019-8-1 17:23:00 | 显示全部楼层
CopyObjects这个方法没用过,不了解它的用法。
你说的合并图纸,不知道是不是说多张图纸的内容合并到一张图上,并保持原来的坐标不变,就像CAD的粘贴到原坐标一样。如果是这样的话,你可以换个思路试试:用AcadSelection选择集acSelectionAll方法选择屏幕中所有对象,然后用CopyObjects复制,不知道这样操作行不行的通。
回复

使用道具 举报

10

主题

32

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
72
发表于 2019-8-1 17:32:00 | 显示全部楼层
对的,就是将多张图纸内容放到一个图纸中,坐标不变的。以前尝试过用键盘事件 Ctrl + all 然后选择黏贴失败了,,,那我试试你这个建议
回复

使用道具 举报

3

主题

24

帖子

3

银币

初来乍到

Rank: 1

铜币
36
发表于 2019-8-1 20:43:00 | 显示全部楼层

你试一下这个方法 InsertBlock。它可以直接插入图形文件,避免了一个个遍历对象的问题。
回复

使用道具 举报

23

主题

561

帖子

13

银币

中流砥柱

Rank: 25

铜币
653
发表于 2019-8-2 16:10:00 | 显示全部楼层
跨进程,肯定很慢
回复

使用道具 举报

10

主题

32

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
72
发表于 2019-8-2 17:05:00 | 显示全部楼层

真的是一步步逼 VBA 退位了
回复

使用道具 举报

10

主题

32

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
72
发表于 2019-8-2 17:07:00 | 显示全部楼层
真的是一步步逼 VBA 退位了
回复

使用道具 举报

10

主题

32

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
72
发表于 2019-8-2 17:11:00 | 显示全部楼层
真的是一步步逼 VBA 退位了
回复

使用道具 举报

56

主题

309

帖子

15

银币

中流砥柱

Rank: 25

铜币
530
发表于 2019-8-11 21:57:00 | 显示全部楼层
说啥好了    。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2024-11-22 02:11 , Processed in 0.241222 second(s), 70 queries .

© 2020-2024 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表