[求助]：寻找Dwg文件自动拆图软件开发人员

zmqian

如何将一个包含多个的Dwg文件自动或半自动地拆分成多个Dwg文件? 寻找AutoCAD开发高手.

它山之石

　　俺倒是有一个现成的程序，不知你找开发人员做什么？是聘用吗？还是帮你写个拆图的小程序？

lijiao

最初由 zmqian 发布
[B]如何将一个包含多个的Dwg文件自动或半自动地拆分成多个Dwg文件? 寻找AutoCAD开发高手. [/B]

“将一个包含多个的Dwg文件自动或半自动地拆分成多个Dwg文件”，这句话我看不明白。

xazhji

不用小题大做，直接写块 wblock

啵浪鼓

是啊,写一个wblock程序就好了啊

chdragon

最初由 zmqian 发布
[B]如何将一个包含多个的Dwg文件自动或半自动地拆分成多个Dwg文件? 寻找AutoCAD开发高手. [/B]

是什么程序啊？能不能发个给我啊

Underway

其实这是客制化的一环
每一家厂商都有其制图规范
甚而各个工程师都自成一局
未见图说不得准的
况有料到不到的状况 ....
不是不能而是得量身定做

xyp1964

最初由 zmqian 发布
[B]如何将一个包含多个的Dwg文件自动或半自动地拆分成多个Dwg文件? 寻找AutoCAD开发高手. [/B]

不知“一个包含多个的Dwg文件”如何理解？
为什么经常有莫名其妙的怪问题冒出来？

chdragon

最初由 xyp1964 发布
[B]
不知“一个包含多个的Dwg文件”如何理解？
为什么经常有莫名其妙的怪问?.. [/B]

就是一个图里面有几个图框的图纸

xyp1964

最初由 chdragon 发布
[B]

就是一个图里面有几个图框的图纸 [/B]

真是这样也就清楚和简单了！
如何自动确定那个是图框呢？

lemonx

这个程序是很有意义的，因为平时画图都是一个dwg中多个图框，而归档要求每个图框一个dwg文件。
虽然wblock的操作也很简单，但图多了就稍嫌烦琐了
它山能否共享一下你的程序？

win-gf

有个批打印的程序,好像是秋枫写的吧?我觉得那个程序修改一下应该差不多哦,

至少可以分别打印成pdf 的哦

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;;;ZDCT(自动拆图)
    
15. (defun c:ZDCT ()
    
16.   (CMDLA0)
    
17.   (if(null STR)(setq STR "C:"))
    
18.   (if(null STR1)(setq STR1 "DRAW-"))
    
19.   (SETQ STR (USTR 7 "\n存盘路径(C:/ls)" STR NIL)
    
20.         STR1 (USTR 7 "\n图名前缀" STR1 NIL)
    
21.         )
    
22.   (princ "\n请选择图框或封闭外边框: ")  
    
23.   (setq        ss (ssget)
    
24.         i  -1
    
25.   )
    
26.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
27.     (setq etype (xyp-get-dxf 0 s1))
    
28.     (if        (= etype "INSERT")
    
29.       (wb-out s1)
    
30.       (progn
    
31.         (if (or        (= etype "POLYLINE")
    
32.                 (= etype "LWPOLYLINE")
    
33.             )
    
34.           (progn
    
35.             (setq pts (xyp-get-CurveStartPoint s1)
    
36.                   pte (xyp-get-CurveEndPoint s1)
    
37.             )
    
38.             (if        (equal pts pte)
    
39.               (wb-out s1)
    
40.               (princ "\n外框不封闭! ")
    
41.             )
    
42.           )
    
43.           (princ "\n外框不封闭! ");非外边框
    
44.         )
    
45.       )
    
46.     )
    
47.   )
    
48.   (CMDLA1)
    
49. )
    
50. (defun wb-out (sname)
    
51.   (setq        pt1 (xyp-get-MinMaxPoint sname 1)
    
52.         pt3 (xyp-get-MinMaxPoint sname 3)
    
53.         pt9 (xyp-get-MinMaxPoint sname 9)
    
54.         dn  (strcat str "/" STR1 (rtos (+ i 1) 2 0))
    
55.   )
    
56.   (command "wblock" dn "" pt3 "w" pt1 pt9 "")
    
57. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;ZDCT(自动拆图)<br /> (defun c:ZDCT ()<br />   (CMDLA0)<br />   (if(null STR)(setq STR "C:"))<br />   (if(null STR1)(setq STR1 "DRAW-"))<br />   (SETQ STR (USTR 7 "\n存盘路径(C:/ls)" STR NIL)<br />         STR1 (USTR 7 "\n图名前缀" STR1 NIL)<br />         )<br />   (princ "\n请选择图框或封闭外边框: ")  <br />   (setq        ss (ssget)<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq etype (xyp-get-dxf 0 s1))<br />     (if        (= etype "INSERT")<br />       (wb-out s1)<br />       (progn<br />         (if (or        (= etype "POLYLINE")<br />                 (= etype "LWPOLYLINE")<br />             )<br />           (progn<br />             (setq pts (xyp-get-CurveStartPoint s1)<br />                   pte (xyp-get-CurveEndPoint s1)<br />             )<br />             (if        (equal pts pte)<br />               (wb-out s1)<br />               (princ "\n外框不封闭! ")<br />             )<br />           )<br />           (princ "\n外框不封闭! ");非外边框<br />         )<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )<br /> (defun wb-out (sname)<br />   (setq        pt1 (xyp-get-MinMaxPoint sname 1)<br />         pt3 (xyp-get-MinMaxPoint sname 3)<br />         pt9 (xyp-get-MinMaxPoint sname 9)<br />         dn  (strcat str "/" STR1 (rtos (+ i 1) 2 0))<br />   )<br />   (command "wblock" dn "" pt3 "w" pt1 pt9 "")<br /> )[/FONT]

chdragon

最初由 xyp1964 发布
[B][CODE](load "xyp_lib.vlx")  ;版本 V.20060314
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1?.. [/B]

好程序，谢谢！

lemonx

xyp的程序很不错
不过美中不足，还有些小问题：
当所选择的路径中有重名文件时程序不能进行错误处理
路径名输入错误时也应该有提示
只能控制文件名前缀，而不能控制整个文件名，假如我的dwg文件中只有结1和结3，而没有结2，就无法一次性生成我想要的文件名