批量插图

dyjwyqz5221

[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]

Michael527

没太看明白，谢谢分享

yangjian001

做一个热心并受欢迎的人

kmliro_2017

谢谢分享！！！！！！

moonwalkers

学习学习谢谢分享

pxt2015

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

dyjwyqz5221

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

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