（完成）[编程申请]：批量插图 eachy 斑竹 请进来 谢谢

姚菲菲

姚菲菲 在 2004年06月12日 10:18 谈到:

这个用在插地形图上，因为分幅地形图的插入点一般为（0.0 0.0 0.0），这样插图后是不会重叠的。如果图形不规则是不能批量插图的，因为你不一定了解要插入图形的情况。
在我这里很实用，不过我不是作地图，是机械制图，每张图纸都一样大，插入点也一样，所以插入会重复，我用这个命令的目的是把一整个系列的图纸整合到一张图纸上形成简图。

要求如下：
1.　每个图形之间的插入点距离为固定值,可输入,默认值250
2.　选择需要的图层插入，可选择图层，默认值为“0”层（因为我要完成简图，实体放在“0”层，其它层为标注或文字或标题栏，根本不需要）

能不能帮我修改一下，不甚感激，如果第2点有麻烦，帮我完成第1点就可以了！谢谢，恭候佳音


http://www.xdcad.net/forum/showthre...pagenumber=1&s=  


参数如下：[/COLOR]
　　插入点P1[/COLOR]
　　距离A　　（默认值为250）[/COLOR]

详见上传的图纸[/COLOR]

eachy

请试用

2. 
   
3. (defun c:XDTB_MInsertDWG (/ lst p dis p1)
   
4.   (xdrx_begin)
   
5.   (xdrx_sysvar_push "osmode" "attreq")
   
6.   (setvar "osmode" 0)
   
7.   (setvar "attreq" 0)
   
8.   (setq lst (xdrx_getfiled "" "批量插图" "AutoCAD图形(*.dwg)|*.dwg" t))
   
9.   (if (not (setq p (getpoint "\n指定插入点<回车默认>: ")))
   
10.     (setq p '(0. 0. 0.))
    
11.   )
    
12.   (if (not (setq dis (getdist "\n间距<250>: ")))
    
13.     (setq dis 250.)
    
14.   )
    
15.   (setq p1 (list dis 0. 0.))
    
16.   (if lst
    
17.     (mapcar '(lambda (x)
    
18.                (vl-cmdf ".insert" x p "1" "1" "0")
    
19.                (setq p (mapcar '+ p p1))
    
20.              )
    
21.             lst
    
22.     )
    
23.   )
    
24.   (xdrx_sysvar_pop)
    
25.   (xdrx_end)
    
26.   (princ)
    
27. )

<br /> (defun c:XDTB_MInsertDWG (/ lst p dis p1)<br />   (xdrx_begin)<br />   (xdrx_sysvar_push "osmode" "attreq")<br />   (setvar "osmode" 0)<br />   (setvar "attreq" 0)<br />   (setq lst (xdrx_getfiled "" "批量插图" "AutoCAD图形(*.dwg)|*.dwg" t))<br />   (if (not (setq p (getpoint "\n指定插入点<回车默认>: ")))<br />     (setq p '(0. 0. 0.))<br />   )<br />   (if (not (setq dis (getdist "\n间距<250>: ")))<br />     (setq dis 250.)<br />   )<br />   (setq p1 (list dis 0. 0.))<br />   (if lst<br />     (mapcar '(lambda (x)<br />                (vl-cmdf ".insert" x p "1" "1" "0")<br />                (setq p (mapcar '+ p p1))<br />              )<br />             lst<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )

姚菲菲

谢谢版主

戒色

不知道这个十几年前的帖子还有没有人回复！！！我用了二楼发的代码，出现如下错误提示！！！
有没有哪位大神解决一下，不胜感激！！！
错误: 读入的 (八进制) 字符不正确: 0