如何做一个把所选图形别存为一个文件的命令？？？

hellojaby · 发表于 2011-4-15 14:09:20

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

先上个图，看图说话，

如何做一个把所选图形别存为一个文件的命令

请各位指点一二。谢谢了。

我在网上搜了一下说W命令可以，但是用那个命令文件名还是得手动输入，如何才能自动点呢？？？？

hb-park · 发表于 2011-4-16 15:09:37

使用写块命令即可

woaishuijia · 发表于 2011-4-19 09:57:36

1# hellojaby
请上传DWG文件

hellojaby · 发表于 2011-4-19 13:59:58

3# woaishuijia

您好，现在我上传的就是零件的图，每个零件上面的字是零件名（Name图层）。现在是想让每个零件都存为一个DWG文件，文件的文件名变成零件名子，不知道怎么样实现，用W命令虽然可以，但是我有些图有几百个上千个零件一个个手工做起来太麻烦了

woaishuijia · 发表于 2011-4-19 16:16:16

本帖最后由 woaishuijia 于 2011-4-19 16:24 编辑

你准备用作零件文件名的字符串中含有非法字符,不能做文件名!
如果保证该文字中没有非法字符,可以参考下面的代码(VBA)

! w" l5 V# U. Y% U
Dim SS As AcadSelectionSet, E(0) As AcadEntity, S As String8 C3 {- H! Y; E) Z7 Y6 J
'创建选择集
3 M8 l) M3 X( \0 X) u+ ?7 O' r
Set SS = ThisDrawing.SelectionSets.Add("SS")
/ s, U+ M, [) x! k& L3 w# m* x
'由用户在屏幕上选取零件图图元,包括准备用作文件名的Name图层的单行文字
, ~5 R- K' J/ R# r$ ?' Q
SS.SelectOnScreen
7 }+ }0 B8 v" }, F# E# {, N3 I
'遍历选择集,查找其中Name图层的单行文字
% j, H3 C" z5 P# b# M* u9 o
For Each E(0) In SS. X1 v5 d$ g& u' j" U0 ^( o
If E(0).ObjectName = "AcDbText" And E(0).Layer = "Name" Then9 x+ R# u* ^+ A6 l
'找到文字后提取字符串
; D) _+ [ v% {- x: A4 O
S = E(0).TextString
5 h, b9 w6 Y6 V: b2 j3 `3 e. r
'从选择集中移除该单行文字,在新的零件文件中不保存它.. a2 d+ a1 e9 u- y2 `
'如果在零件文件中需要保存该文字,则删掉下面这行' L' i7 d# R) t( S: O9 `; H( M" p
SS.RemoveItems E: ?$ Z* Z6 f- V' H$ g) p5 U! Q
Exit For: j5 |: @0 P9 y
End If
. }% h9 ?8 ?7 a& n7 j
Next6 A1 t# U1 ~5 w$ u/ x) p- B
'调用写块方法在新文件中保存选择集中的图元,路径与当前文档相同,文件名使用从单行文字中提取的字符串 m1 [+ A, C; T8 @# B! ]- a6 e
ThisDrawing.Wblock ThisDrawing.Path & "" & S & ".dwg", SS
! B) F" o8 }4 W; X% h9 o, o/ a
'删除用过的选择集
( w1 a: |% g4 g8 k( S" p( @
SS.Delete
- w' v3 Y5 {' p9 j

复制代码

hellojaby · 发表于 2011-4-19 18:35:38

5# woaishuijia

你好啊，大哥，真是谢谢你了，不过你能不能教教我这个东西怎么用啊，我实在是不会用这代码怎么去实现功能，谢谢。

www1974 · 发表于 2011-4-19 22:59:01

6# hellojaby
借用上面的VBA，加载附件的vlx后，运行wxssh-tt，可以自动批量导出。注意斑竹提示把斜杠用其他字符替代。

hellojaby · 发表于 2011-4-20 08:26:35

7# www1974 、

谢谢大哥了，真的很感谢你们。

hellojaby · 发表于 2011-4-20 08:49:07

7# www1974

你好，发现个问题就是我在运行的时候不成功，我把“/”分别给换成“－”和“&”试了一下，都出现以下的东西

这应该怎么解决啊？？请大哥指点一二。谢谢了。

3 o+ Z% j5 L: \6 P$ e# S
令: wxssh-tt; _1 y. t: S" C2 l3 a4 b
选择对象: 指定对角点: 找到 1 个0 @& H3 p- M, t2 B1 r" G/ `' u# [- h
选择对象:
0 T) a: r s/ z( V
._select, Y6 @& X2 N$ ]8 P9 ], I
选择对象: CP7 w, @& I$ A1 g: h9 j5 \
第一圈围点: none; |4 V( [% g$ j$ z
指定直线的端点或 [放弃(U)]: none5 l* j8 ~- Y8 O0 j& \
指定直线的端点或 [放弃(U)]: none6 X3 D- G$ f, |
指定直线的端点或 [放弃(U)]: none
& w. y" S1 v- S2 w. x% u" v5 z
指定直线的端点或 [放弃(U)]: none
9 M" x6 |/ C( R& O4 L
指定直线的端点或 [放弃(U)]: none
% x% p; {0 X- N- B- H2 e' W
指定直线的端点或 [放弃(U)]: none
$ k8 m9 g5 O0 n$ E. U& y
指定直线的端点或 [放弃(U)]: none
0 G0 u; G$ W: e7 `- ?9 ?/ c
指定直线的端点或 [放弃(U)]: none2 c& ~5 _) [+ w+ \
指定直线的端点或 [放弃(U)]: none3 u) N' l8 ^0 C; e
指定直线的端点或 [放弃(U)]: none `) n2 H9 s. Y1 z
指定直线的端点或 [放弃(U)]: 找到 3 个/ ]6 w$ ~2 K" ~( h U4 b" Q2 D
选择对象:
$ v$ l3 _. o! l1 P0 E! @! z, T; x
命令: ._vbarun 正在初始化 VBA 系统...! ?7 @4 ?+ _4 G5 P" B/ B
宏名称(M): tt 执行错误! C2 O, T5 c0 E( c$ j3 \5 b
命令: <选择集: 476># O* W+ Y# K* \! f4 d. H: G4 N4 N* l) h
WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。) }* P% _% x% W$ g2 p' m, f' J
命令: WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。
: W1 H7 x8 }" L# h, {
命令: -1
5 s. C* L9 ~! r9 F# r5 e+ Z
, F3 h' \' Q# j8 \( f

复制代码

www1974 · 发表于 2011-4-20 20:26:34

命令: ._vbarun 正在初始化 VBA 系统...

宏名称(M): tt 执行错误

把斑竹的VBA定义宏tt

hellojaby · 发表于 2011-4-21 09:18:30

10# www1974

大哥我还没懂那个怎么用啊.我用2005和2008的都试了,

按你说把那个加载到VBA咋加载啊,这方面一门不门啊.多指点指点一下,谢谢了

woaishuijia · 发表于 2011-4-21 10:16:58

在CAD图形界面按"Alt+F11"(高版本可能需要按两次)打开VBA IDE界面,双击"工程资源管理器"中的"thisdrawing"对象,弹出代码窗口,在其中输入"sub tt"(没有引号,注意中间有空格),回车.代码窗口会出现

Sub tt()' @$ j$ I4 P }1 ]
( x9 h+ i( s. C! j) u6 I- Y
End Sub

复制代码

在中间的空行粘贴5#的代码.回到CAD图形界面,按"Alt+F8"(高版本可能需要按两次),在弹出的"宏"对话框上点击"运行"按钮即可运行程序.
上面的VBA代码是一个输出单个文件的程序,加载7#的LISP程序后就可以自动反复调用VBA代码,从而批量输出零件文件.
加载的方法是:点出"工具"菜单下的"加载应用程序..."
在VBA IDE界面,点"文件"菜单下的"保存",把VBA程序保存为".dvb"文件,便于以后使用.以后使用时加载的方法同上.

koutx · 发表于 2011-5-22 14:59:13

12# woaishuijia
谢谢版主

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

[已解决] 如何做一个把所选图形别存为一个文件的命令？？？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分