（更新）[编程申请]：图纸拆分

hrbpkf · 发表于 2003-11-6 12:06:08

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

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

×

斑竹能帮忙写个程序吗？将一个文件内的若干张图纸分解成若干个文件（每个文件一张图）？工作需要，愁死我了！

zxp · 发表于 2003-11-6 12:14:30

不停的开新图，“选择－复制－粘贴” 不就行了。

coolzhb · 发表于 2003-11-6 12:37:19

最初由 zxp 发布
[B]不停的开新图，“选择－复制－粘贴” 不就行了。 [/B]

我也需要，单位说归档的需要，每个dwg只能放一张图，我一直用wblock，希望版主能写一个共享！

eachy · 发表于 2003-11-6 18:14:51

最初由 coolzhb 发布
[B]

我也需要，单位说归档的需要，每个dwg只能放一张图，我一直用wblock，希望版主能写一个共享！ [/B]

;;功能: 对DWG文件中含多个图时进行分图存盘
;;使用方法: 首先循环框选出分图部分，保存文件在原图目录下
;; AutoCAD 2004 下测试通过
;; Writer eachy (2004.11.06)
;; Email [email]eachy@21cn.com[/email]
(vl-load-com)
(defun c:outdwg (/ p1 p2 ptl path tf str)
(vla-startundomark
(vlax-get-property (vlax-get-acad-object) "activedocument")
)
(if (zerop (getvar "DWGTITLED"))
(princ "\n当前图形未命名，存盘后再试!")
(progn
;;(setq dwgname (vl-string-right-trim ".DWG" (strcase (getvar "dwgname")))
(setq path (getvar "DWGPREFIX"))
;;循环选择分图范围
(while (and (setq p1 (getpoint "\n第一角点: "))
(setq p2 (getcorner p1 "\n对角点: "))
(setq str (nentsel "\n拾取图名文字: "))
)
(setq ptl
(cons (list p1 p2 (cdr (assoc 1 (entget (car str))))) ptl)
)
)
(setq tf "0")
;;存盘
(if (> (length ptl) 0)
(mapcar '(lambda (x)
(vl-cmdf ".wblock"
(strcat path
(last x)
;"-"
;(setq tf (rtos (1+ (atoi tf)) 2 0))
)
""
(car x)
"c"
(car x)
(cadr x)
""
)
)
ptl
)
)
)
)
(vla-endundomark
(vlax-get-property (vlax-get-acad-object) "activedocument")
)
;(vl-cmdf "u");;恢复图形
(princ)
)

;;功    能: 对DWG文件中含多个图时进行分图存盘 
;;使用方法: 首先循环框选出分图部分，保存文件在原图目录下 
;; AutoCAD 2004 下测试通过 
;; Writer eachy (2004.11.06) 
;; Email  [email]eachy@21cn.com[/email] 
(vl-load-com) 
(defun c:outdwg        (/ p1 p2 ptl path tf str) 
  (vla-startundomark 
    (vlax-get-property (vlax-get-acad-object) "activedocument") 
  ) 
  (if (zerop (getvar "DWGTITLED")) 
    (princ "\n当前图形未命名，存盘后再试!") 
    (progn 
      ;;(setq dwgname (vl-string-right-trim ".DWG" (strcase (getvar "dwgname"))) 
      (setq   path    (getvar "DWGPREFIX")) 
      ;;循环选择分图范围 
      (while (and (setq p1 (getpoint "\n第一角点: ")) 
                  (setq p2 (getcorner p1 "\n对 角 点: ")) 
                  (setq str (nentsel "\n拾取图名文字: ")) 
             ) 
        (setq ptl 
               (cons (list p1 p2 (cdr (assoc 1 (entget (car str))))) ptl) 
        ) 
      ) 
      (setq tf "0") 
      ;;存盘 
      (if (> (length ptl) 0) 
        (mapcar        '(lambda (x) 
                   (vl-cmdf ".wblock" 
                            (strcat path 
                                    (last x) 
                                    ;"-" 
                                    ;(setq tf (rtos (1+ (atoi tf)) 2 0)) 
                            ) 
                            "" 
                            (car x) 
                            "c" 
                            (car x) 
                            (cadr x) 
                            "" 
                   ) 
                 ) 
                ptl 
        ) 
      ) 
    ) 
  ) 
  (vla-endundomark 
    (vlax-get-property (vlax-get-acad-object) "activedocument") 
  ) 
  ;(vl-cmdf "u");;恢复图形 
  (princ) 
)

chenhang1203 · 发表于 2003-11-7 08:50:09

2002下测试只有框上的线，框内什么也没有。。。

wsxedc · 发表于 2003-11-7 10:38:36

我刚接到任务，要将一个图纸文件中的几张图纸分开，文件名字就是每张图纸的图纸名，大概要怎么做啊？？

coolzhb · 发表于 2003-11-7 12:40:46

最初由 eachy 发布
[B]
[CODE]
;;功能: 对DWG文件中含多个图时进行分图存盘
;... [/B]

能不能改到r14中能用呀！谢谢！

czo · 发表于 2003-11-7 13:20:16

用CAD里面的视口啊

moqhua · 发表于 2003-11-7 14:07:16

分别另存为几个文件

xbx7920 · 发表于 2003-11-7 14:10:57

我觉得用WBLOCK更好.

cb305 · 发表于 2003-11-7 15:28:00

新建几个新文件，复制粘贴保存就解决了

hq_06 · 发表于 2003-11-7 16:50:39

在CAD里面选择另存为，然后用你想要的文件名储存，最后在CAD中删除不要的内容！

stevenzoe · 发表于 2003-11-7 19:17:02

最初由 wsxedc 发布
[B]我刚接到任务，要将一个图纸文件中的几张图纸分开，文件名字就是每张图纸的图纸名，大概要怎么做啊？？ [/B]

chendeyi · 发表于 2003-11-7 20:01:52

在布局→视口。可以在图纸中画多个视口，然后双击一个视口，可以缩放到想要的比例。

hrbpkf · 发表于 2003-11-7 22:57:42

感谢斑竹 eachy 的支持，但是程序在2002下运行有问题。另外，能否提个建议，将每张图的图名自动生成新的文件名？

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

（更新）[编程申请]：图纸拆分

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

相关帖子

[弹指神通]：兄弟们，帮帮我

Re: [弹指神通]：兄弟们，帮帮我

浏览过的版块