设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 414|回复: 6

[工具] 批量插图

[复制链接]

已领礼包: 186个

财富等级: 日进斗金

发表于 2020-8-10 17:23:49 | 显示全部楼层 |阅读模式
  • 插件名称 : 批量插图
  • 作  者 : dyjwyqz5221
  • 运行环境 :XDRX API 
  • 发布时间 :2020-08-10
  • 命令名称 :yqz-plct
  • 插件介绍 :可以选择插图顺序
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

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

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

x
本帖最后由 dyjwyqz5221 于 2020-8-10 17:26 编辑

[mw_shl_code=actionscript3,true](defun c:yqz-plct(/ lst p dwg-path len mat0)
        (if (not *plct-scale*)
                (setq *plct-scale* 1.0)
        );;;if
        (if (not *plct-order*)
                (setq *plct-order* "竖向正序")
        );;;if
        (if
                (and
                        (setq lst (xdrx-file-getfilem "批量插图" (getvar "dwgprefix") "AutoCAD图形(*.dwg)|*.dwg"))
                        (setq *plct-scale* (xdrx-ui-getreal "批量插图" "输入放大比例:" 7 *plct-scale*))
                        (setq *plct-order* (xdrx-ui-listbox "批量插图" "选择详图的放置顺序" '("竖向正序" "竖向倒序" "水平正序" "水平倒序") *plct-order*))
                        (setq p (getpoint "\n指定插入点(左下角点): "))
                );;;and
                (progn
                        (xdrx-begin)
                        (xdrx-sysvar-push '("osmode" 0))
                          (setq dwg-path (car lst)
                                lst (xdrx-string-sort (cdr lst) -1)
                                len (length lst)
                                mat0 (xdrx_matrix_identity 3);;;获得一个3d的单位矩阵
                        );;setq
                        (if (xdrx-string-find1 *plct-order* "倒")
                                (setq lst (reverse lst))
                        );;;if
                        (xdrx-ui-getprogress "插图" "正在插图, 稍后..." len)
                            (mapcar
                                '(lambda(x / e box mat p-tm e1 e2)
                                        (setq e (xdrx-insert-make (strcat dwg-path x) '(0. 0. 0.) *plct-scale* 0.)               
                                                box (xdrx-entity-box e)
                                                mat (xdrx_matrix_setTransLation mat0 (mapcar '- p (car box)))
                                                p-tm (mapcar '+ (xdrx-line-midp (car box) (cadr box)) '(0. -5000. 0.));;;图名插入点
                                        );;;setq
                                        (xdrx-entity-setproperty
                                                (setq e1 (xdrx-polyline-make box t))
                                                "layer" "plct"
                                                "color" 7
                                        );;;xdrx
                                        (xdrx-entity-setproperty
                                                (setq e2
                                                        (XD::Text:Make (list p-tm)
                                                                        x
                                                                        "yqz-style"
                                                                        3000.
                                                                        0.7
                                                                        0.
                                                                        "TC"
                                                        )
                                                );;;setq
                                                "layer" "plct"
                                                "color" 2
                                        );;;xdrx
                                        (xdrx-entity-transform (list e e1 e2) mat)
                                        (xdrx-polyline-convertfrom (xdrx-entity-explode t e t))
                                        (if (xdrx-string-find1 *plct-order* "竖")
                                                (setq p (mapcar '+ p (list 0. (+ (distance (car box) (last box)) 20000.) 0.)))
                                                (setq p (mapcar '+ p (list (+ (distance (car box) (cadr box)) 20000.) 0. 0.)))
                                        );;;if
                                        (xdrx-ui-getprogress -1)
                                        (princ)
                                     );;;lambda
                                    lst
                            );;;mapcar
                        (xdrx-ui-getprogress t)
                        (xdrx-prompt "\n成功插入了 " len " 张DWG图纸。")
                        (xdrx-sysvar-pop)
                          (xdrx-end)
                        (princ)
                  );;;progn
        );;;if
          (princ)
);;;defun
[/mw_shl_code]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 5334个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 3230个

财富等级: 富可敌国

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

使用道具 举报

已领礼包: 190个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 45个

财富等级: 招财进宝

发表于 2020-8-15 08:17:53 | 显示全部楼层
插图间距作为选项可调整,对于a1,a2,a3,b1,b2 ,b3文件名,是否可以按照两排排列图纸?

点评

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

使用道具 举报

已领礼包: 186个

财富等级: 日进斗金

 楼主| 发表于 2020-8-18 12:09:29 | 显示全部楼层
pxt2015 发表于 2020-8-15 08:17
插图间距作为选项可调整,对于a1,a2,a3,b1,b2 ,b3文件名,是否可以按照两排排列图纸?

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2021-2-25 16:18 , Processed in 0.170416 second(s), 31 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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