设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 216|回复: 7

[求助] cad 动态块参数批量修改

[复制链接]
发表于 2018-12-3 22:34:16 | 显示全部楼层 |阅读模式

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

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

x
同一个块插入多次后,想批量修改拉伸的长度,使拉伸的长度等于属性的值,怎么处理,求指点。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
 楼主| 发表于 2018-12-3 22:42:26 | 显示全部楼层

求助,求助,求助,动态块批量修改参数

多次插入同一个拉伸块后,怎么批量修改参数,使拉伸的参数等于属性的值。。

示范文件.rar

96.71 KB, 下载次数: 3, 下载积分: D豆 -1 , 活跃度 1

点评

下面是VLA使用ACTIVEX的代码,你参考下,修改到VBA  详情 回复 发表于 2018-12-3 22:51
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-12-3 22:51:38 | 显示全部楼层
嘎嘎嘎123 发表于 2018-12-3 22:42
多次插入同一个拉伸块后,怎么批量修改参数,使拉伸的参数等于属性的值。。

下面是VLA使用ACTIVEX的代码,你参考下,修改到VBA

  1. (defun XD::BLOCK:Setdynpropvalue ( blk prp val )
  2.     (setq prp (strcase prp))
  3.     (vl-some
  4.        '(lambda ( x )
  5.             (if (= prp (strcase (vla-get-propertyname x)))
  6.                 (progn
  7.                     (vla-put-value x (vlax-make-variant val (vlax-variant-type (vla-get-value x))))
  8.                     (cond (val) (t))
  9.                 )
  10.             )
  11.         )
  12.         (vlax-invoke blk 'getdynamicblockproperties)
  13.     )
  14. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-12-4 07:47:40 | 显示全部楼层
大神能不能帮忙修改成vba的代码,本**白,对这些毫无基础。。。拜托了

点评

楼主,你既然没基础,那么还是推荐你去学和用VLISP吧  详情 回复 发表于 2018-12-4 13:16
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 952个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-12-4 13:16:41 | 显示全部楼层
嘎嘎嘎123 发表于 2018-12-4 07:47
大神能不能帮忙修改成vba的代码,本**白,对这些毫无基础。。。拜托了

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

使用道具 举报

 楼主| 发表于 2018-12-13 16:16:43 | 显示全部楼层
marting 发表于 2018-12-4 13:16
楼主,你既然没基础,那么还是推荐你去学和用VLISP吧

大神,能不能把代码逐行添加个注释啊,,我这几天一直在看介绍lisp的书,里面没有你用的几个函数,最关键的是帮助文件是英文的,实在看不懂
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

点击这里给我发消息

已领礼包: 30个

财富等级: 恭喜发财

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2019-7-17 04:18 , Processed in 0.138497 second(s), 45 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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