批量插图

dyjwyqz5221 · 发表于 2020-8-10 17:23:49

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

您需要登录才可以下载或查看，没有账号？立即注册

×

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

[Actionscript3] 纯文本查看 复制代码

(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

Michael527 · 发表于 2020-8-10 20:03:38

没太看明白，谢谢分享

yangjian001 · 发表于 2020-8-11 08:04:26

做一个热心并受欢迎的人

kmliro_2017 · 发表于 2020-8-12 07:16:26

谢谢分享！！！！！！

moonwalkers · 发表于 2020-8-12 07:46:35

学习学习谢谢分享

pxt2015 · 发表于 2020-8-15 08:17:53

插图间距作为选项可调整，对于a1，a2，a3，b1，b2 ，b3文件名，是否可以按照两排排列图纸？

dyjwyqz5221 · 发表于 2020-8-18 12:09:29

pxt2015 发表于 2020-8-15 08:17
插图间距作为选项可调整，对于a1，a2，a3，b1，b2 ，b3文件名，是否可以按照两排排列图纸？

这个调整一下就可以了。都可以的

03hai · 发表于 2021-3-13 23:40:57

谢谢楼主好人一生平安

至尊宝宝 · 发表于 2021-3-15 10:35:47

感谢楼主分享！！！

03hai · 发表于 2021-9-16 19:25:04

命令是哪个

s100sp · 发表于 2021-9-17 14:27:43

谢谢分享，谢谢分享

流浪孤星 · 发表于 2021-9-25 11:16:38

感谢楼主分享！！

至尊宝宝 · 发表于 2021-9-27 15:33:49

感谢楼主分享！！！

sandyvs · 发表于 2022-7-18 22:11:29

看看这是怎么个顺序

账号		自动登录	找回密码
密码			立即注册

[工具] 批量插图

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

点评