批量插图

eachy · 发表于 2014-8-8 11:51:42

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

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

×

获取目录及子目录文件函数见 http://bbs.xdcad.net/forum.php?m ... 360&pid=3360856

(defun c:tt (/ dir dwglst ms pt tf len blk dl i bp up dl)
(while (setq dir (acet-ui-pickdir "选择图纸目录"))
(setq dl (cons dir dl))
)
(if dl
(progn
(setq dwglst (apply
'append
(mapcar '(lambda (x) (HJ:GETFNFROMDIR x "*.dwg" 0))
dl
)
)
ms (vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
pt '(0. 0. 0.)
i 0
)
(acet-ui-progress-init "Processing Bar" (length dwglst))
(foreach dwg dwglst
(acet-ui-progress-safe (setq i (1+ i)))
(setq blk (vla-insertblock
ms
(vlax-3d-point '(0. 0. 0.))
dwg
1.
1.
1.
0.
)
)
(vla-getboundingbox blk 'bp 'up)
(vla-move blk (vlax-make-variant bp) (vlax-3d-point pt))
(setq pt (polar pt
0.
(+ 10.
(- (car (safearray-value up))
(car (safearray-value bp))
)
)
)
)
)
(acet-ui-progress-done)
(vla-zoomextents (vlax-get-acad-object))
)
)
(princ)
)

(defun c:tt (/ dir dwglst ms pt tf len blk dl i bp up dl) 
  (while (setq dir (acet-ui-pickdir "选择图纸目录")) 
    (setq dl (cons dir dl)) 
  ) 
  (if dl 
    (progn 
      (setq dwglst (apply 
                     'append 
                     (mapcar '(lambda (x) (HJ:GETFNFROMDIR x "*.dwg" 0)) 
                             dl 
                     ) 
                   ) 
            ms           (vla-get-modelspace 
                     (vla-get-activedocument (vlax-get-acad-object)) 
                   ) 
            pt           '(0. 0. 0.) 
            i           0 
      ) 
      (acet-ui-progress-init "Processing Bar" (length dwglst)) 
      (foreach dwg dwglst 
        (acet-ui-progress-safe (setq i (1+ i))) 
        (setq blk (vla-insertblock 
                    ms 
                    (vlax-3d-point '(0. 0. 0.)) 
                    dwg 
                    1. 
                    1. 
                    1. 
                    0. 
                  ) 
        ) 
        (vla-getboundingbox blk 'bp 'up) 
        (vla-move blk (vlax-make-variant bp) (vlax-3d-point pt)) 
        (setq pt (polar        pt 
                        0. 
                        (+ 10. 
                           (- (car (safearray-value up)) 
                              (car (safearray-value bp)) 
                           ) 
                        ) 
                 ) 
        ) 
      ) 
      (acet-ui-progress-done) 
      (vla-zoomextents (vlax-get-acad-object)) 
    ) 
  ) 
  (princ) 
)

adc · 发表于 2014-8-9 09:16:37

no function definition: ACET-UI-PICKDIR

csharp · 发表于 2014-8-9 10:26:25

adc 发表于 2014-8-9 09:16
no function definition: ACET-UI-PICKDIR

Expresstools. 扩展工具, autocad自带

wowan1314 · 发表于 2014-8-9 13:07:30

不用ET很多年了！ {:soso_e103:}

csharp · 发表于 2014-8-9 13:13:44

本帖最后由 csharp 于 2014-8-9 13:15 编辑

wowan1314 发表于 2014-8-9 13:07
不用ET很多年了！

几乎没用过ET函数，现学就够了

lucas3 · 发表于 2014-8-9 17:05:49

插图用不着写这么多吧，　另外选择文件夹后点确定，没有用，必须要点取消才能退出后工作，这不奇怪吗？

eachy · 发表于 2014-8-9 17:38:55

lucas3 发表于 2014-8-9 17:05
插图用不着写这么多吧，　另外选择文件夹后点确定，没有用，必须要点取消才能退出后工作，这不奇怪吗？

也许打图时用，特殊情况特殊方法

lucas3 · 发表于 2014-8-10 00:48:58

eachy 发表于 2014-8-9 17:38
也许打图时用，特殊情况特殊方法

为什么选择文件夹后点确定，没有用，必须要点取消才能退出后工作？

csharp · 发表于 2014-8-10 06:09:15

lucas3 发表于 2014-8-10 00:48
为什么选择文件夹后点确定，没有用，必须要点取消才能退出后工作？

因为获取多目录用的是while，只要一个目录的确定直接退出

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

[原创] 批量插图

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

点评

点评

点评

点评

点评