[编程申请]：快速外部插入多个文件

guchanghui

我平时工作时经常需外部插入大量地形图进行拼合，非常麻烦，请高手能帮我设计一个LISP程序，可以一次性动插入所需文件，插入点均为0，0，0，非常感谢~~~~~

eachy

晓东工具箱中的【批量插图】

guchanghui

谢谢版主，我下了0.29完整版，使用2002，可你说的新功能全部没有，真奇怪
后来我找到了批量插图的LISP程序，可以了，不过只能块插入，我需要外部插入，可以嘛？？？

guchanghui

请教一下，批量插图只能块插入嘛？我需要外部插入，怎么办？？？？

eachy

将程序中的 insert 命令 改成 xref 命令

whtiger

我要批量擦图片

chenhang1203

最初由 eachy 发布
[B]晓东工具箱中的【批量插图】 [/B]

哪个版本有啊，又升级了吗？我是借鉴论坛上的LISP自己做了个这样的工具，斑竹是不是把它加到小东里了？希望把取消图快遮挡的功能也加进去哦

coolzhb

最初由 chenhang1203 发布
[B]
哪个版本有啊，又升级了吗？我是借鉴论坛上的LISP自己做了个这样的工具，斑竹是不是把它加到小东里了？希望把取消图快遮挡的功能也?.. [/B]

能贴出来分享吗？我也很需要！

chenhang1203

最初由 coolzhb 发布
[B]

能贴出来分享?.. [/B]

论坛上有了，既然老兄不想搜索，就贴给你，给你省点时间，顺便说一句，你的文字大师什么时候再升级啊

2. 
   
3. (defun c:ct (/ lst)
   
4.   (xdrx_begin)
   
5.   (xdrx_sysvar_push "osmode")
   
6.   (setvar "osmode" 0)
   
7.   (setq lst (xdrx_getfiled "" "批量插图" "AutoCAD图形(*.dwg)|*.dwg" t))
   
8.   (if lst
   
9.     (mapcar '(lambda (x)
   
10.                (vl-cmdf ".insert" x '(0. 0. 0.) "1" "1" "0")
    
11.              )
    
12.                lst
    
13.     )
    
14.   )
    
15.   (xdrx_sysvar_pop)
    
16.   (xdrx_end)
    
17.   (princ)
    
18. )

<br /> (defun c:ct (/ lst)<br />   (xdrx_begin)<br />   (xdrx_sysvar_push "osmode")<br />   (setvar "osmode" 0)<br />   (setq lst (xdrx_getfiled "" "批量插图" "AutoCAD图形(*.dwg)|*.dwg" t))<br />   (if lst<br />     (mapcar '(lambda (x)<br />                (vl-cmdf ".insert" x '(0. 0. 0.) "1" "1" "0")<br />              )<br />                lst<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )

coolzhb

最初由 chenhang1203 发布
[B]
论坛上有了，既然老兄不想搜索，就贴给你，给你省点时间，顺便说一句，你的文字大师什么时候再升级啊[code]
(defun c:ct (/ lst)
  (xd... [/B]

原来是这个程序，我有了，在14中改成command就可以使用了！

如果能自动判断图形大小，定出不同的插入点，将图形移开就好了。就是避免图形的重叠，用现在的程序，插的图都重叠在一起！

文字修改大师，最近没有搞什么实际的升级，我想先稳定一段时间，看看实际的使用效果和网友的建议，在决定何时升级！