设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 232|回复: 10

[每日一码] 不打开图形,从外部DWG拷贝一个块定义到当前图形

[复制链接]

签到天数: 527 天

连续签到: 5 天

[LV.9]以坛为家II

已领礼包: 20个

财富等级: 恭喜发财

发表于 2017-5-25 21:08:38 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
  1. (defun copy-blk (dwg blk / blkdbx catch odbx)
  2.   (if (findfile dwg)
  3.     (progn
  4.       (if (< (atoi (substr (getvar "ACADVER") 1 2)) 16)
  5.         (setq odbx (vlax-create-object "ObjectDBX.AxDbDocument"))
  6.         (setq odbx (vlax-create-object
  7.                      (strcat "ObjectDBX.AxDbDocument."
  8.                              (substr (getvar "ACADVER") 1 2)
  9.                      )
  10.                    )
  11.         )
  12.       )
  13.       (vla-open odbx dwg)
  14.       (if (not
  15.             (setq
  16.               catch (vl-catch-all-error-p
  17.                       (vl-catch-all-apply
  18.                         (function (lambda ()
  19.                                     (setq blkdbx
  20.                                            (vla-item (vla-get-blocks odbx) blk)
  21.                                     )
  22.                                   )
  23.                         )
  24.                       )
  25.                     )
  26.             )
  27.           )
  28.         (vla-copyobjects
  29.           odbx
  30.           (vlax-safearray-fill
  31.             (vlax-make-safearray vlax-vbObject '(0 . 0))
  32.             (list blkdbx)
  33.           )
  34.           (vla-get-blocks
  35.             (vla-get-activedocument (vlax-get-acad-object))
  36.           )
  37.         )
  38.       )
  39.       (vlax-release-object odbx)
  40.       (if
  41.         (and (null catch)
  42.              (vla-item (vla-get-blocks
  43.                          (vla-get-activedocument (vlax-get-acad-object))
  44.                        )
  45.                        blk
  46.              )
  47.         )
  48.          T
  49.          nil
  50.       )
  51.     )
  52.     nil
  53.   )
  54. )

评分

参与人数 1D豆 +5 收起 理由
ScmTools + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

签到天数: 1777 天

连续签到: 10 天

[LV.Master]伴坛终老I

已领礼包: 4447个

财富等级: 富可敌国

发表于 2017-5-26 00:09:24 | 显示全部楼层
谢谢提供,有空试试看!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 341 天

连续签到: 7 天

[LV.8]以坛为家I

已领礼包: 217个

财富等级: 日进斗金

发表于 2017-5-26 12:57:01 | 显示全部楼层
测试可用,好用的,非常犀利
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 96 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 15个

财富等级: 恭喜发财

发表于 2017-7-3 15:59:40 | 显示全部楼层
厉害  找了很久了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 30 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 2个

财富等级: 恭喜发财

发表于 2017-7-27 13:05:13 | 显示全部楼层
这个很不错啊~~~~~~~~·
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 951 天

连续签到: 18 天

[LV.10]以坛为家III

已领礼包: 1572个

财富等级: 堆金积玉

发表于 2017-11-24 18:21:45 | 显示全部楼层
最好加上函数调用例子,比较直观以及教学
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 300 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 394个

财富等级: 日进斗金

发表于 2017-11-25 08:26:20 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

签到天数: 109 天

连续签到: 1 天

[LV.6]常住居民II

发表于 2018-1-13 10:07:16 | 显示全部楼层
谢谢分享 谢谢分享 谢谢分享 谢谢分享 谢谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 94 天

连续签到: 1 天

[LV.6]常住居民II

点击这里给我发消息

已领礼包: 29个

财富等级: 恭喜发财

发表于 2018-2-28 17:19:52 | 显示全部楼层
块定义?
测试下,有定义,无实体,空块。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1876 天

连续签到: 139 天

[LV.Master]伴坛终老I

已领礼包: 5511个

财富等级: 富甲天下

发表于 2018-3-3 00:06:54 | 显示全部楼层
这个厉害了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 33 天

连续签到: 6 天

[LV.5]常住居民I

发表于 2018-7-18 14:00:58 | 显示全部楼层
这个功能非常好用啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2018-10-20 17:20 , Processed in 0.249915 second(s), 52 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表