设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表
查看: 190|回复: 9

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

[复制链接]

签到天数: 424 天

连续签到: 3 天

[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豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

签到天数: 1615 天

连续签到: 15 天

[LV.Master]伴坛终老I

已领礼包: 4134个

财富等级: 富可敌国

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

使用道具 举报

签到天数: 253 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 215个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 89 天

连续签到: 2 天

[LV.6]常住居民II

已领礼包: 15个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 30 天

连续签到: 1 天

[LV.5]常住居民I

已领礼包: 2个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 796 天

连续签到: 14 天

[LV.10]以坛为家III

已领礼包: 1403个

财富等级: 财源广进

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

使用道具 举报

签到天数: 299 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 394个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 73 天

连续签到: 5 天

[LV.6]常住居民II

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

使用道具 举报

签到天数: 84 天

连续签到: 1 天

[LV.6]常住居民II

点击这里给我发消息

已领礼包: 27个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 1698 天

连续签到: 305 天

[LV.Master]伴坛终老I

已领礼包: 5047个

财富等级: 富甲天下

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

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-4-21 09:58 , Processed in 0.571029 second(s), 106 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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