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

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)

9 P! s/ l/ H1 K: F$ i) R, D
Dim SS As AcadSelectionSet, E(0) As AcadEntity, S As String
- c6 S' {' |5 n8 ?% F1 ~
'创建选择集
7 `2 F+ E# ^$ W. f1 Z- I5 l& g5 w* Q: X
Set SS = ThisDrawing.SelectionSets.Add("SS")8 U" L7 A& k% k; ?& ^
'由用户在屏幕上选取零件图图元,包括准备用作文件名的Name图层的单行文字
, R% F w0 z" g% r; ?4 u5 Z0 M
SS.SelectOnScreen
4 r2 p F1 s; ^/ O- W: Y4 i+ I/ ^; M
'遍历选择集,查找其中Name图层的单行文字7 J/ G% o0 A+ } n2 Y" w& a8 z6 G
For Each E(0) In SS1 u2 N5 {: b: d4 w0 X' N+ V9 D7 R
If E(0).ObjectName = "AcDbText" And E(0).Layer = "Name" Then' s8 _- l! A* Z) z" O; W' \
'找到文字后提取字符串
% _, {; e9 K+ U `/ L
S = E(0).TextString3 Z4 X+ e4 }# D9 u. V/ t* D
'从选择集中移除该单行文字,在新的零件文件中不保存它.# g N3 x) f9 k! J0 b
'如果在零件文件中需要保存该文字,则删掉下面这行
' p; [% c+ x! g8 }8 ]( V( |% L
SS.RemoveItems E! W1 V/ m s5 e! N' F; s: `, K8 `
Exit For/ L6 i' X4 ^ r9 m8 u$ Q$ k
End If
0 ?) h0 T% ~9 @- z% }; Z! M1 ^
Next
'调用写块方法在新文件中保存选择集中的图元,路径与当前文档相同,文件名使用从单行文字中提取的字符串
( t2 M8 X$ @( h3 \9 j# ?5 m
ThisDrawing.Wblock ThisDrawing.Path & "" & S & ".dwg", SS
8 \0 }5 V" e, f0 \. R3 M4 Q! ^
'删除用过的选择集! q" g& b% O1 z" e
SS.Delete
) _$ L- e, N/ G. {8 c; G8 {

复制代码

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

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

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

8 t* D1 J2 I# G" n6 t7 G- }% r
令: wxssh-tt
( A8 `- p& n& Y
选择对象: 指定对角点: 找到 1 个. v) m8 l n2 y4 R; l+ E
选择对象:
, ~4 Y: y, t& g* K
._select
4 @- N2 A% D9 Q; o/ F; M/ u0 ]6 h
选择对象: CP8 B U" z& C c# c
第一圈围点: none
% _8 g7 j0 \: E8 Z
指定直线的端点或 [放弃(U)]: none
% {: j" t3 H6 r8 c' y: ?
指定直线的端点或 [放弃(U)]: none
) l7 k9 a/ x) L: T) t
指定直线的端点或 [放弃(U)]: none
, J: x: P; U2 S5 x& ~0 w$ z j
指定直线的端点或 [放弃(U)]: none
3 j7 ^% O# R$ c: M4 Y9 W
指定直线的端点或 [放弃(U)]: none8 C+ ^6 j4 s! I( Z
指定直线的端点或 [放弃(U)]: none
+ m4 k7 ~. R9 a/ Z g9 P
指定直线的端点或 [放弃(U)]: none
9 N& h' I Q# y& ?) i5 Z
指定直线的端点或 [放弃(U)]: none, s: V: i; z- i0 X) i, l" S
指定直线的端点或 [放弃(U)]: none! x: J d6 h4 g" `; A
指定直线的端点或 [放弃(U)]: none$ Z1 \7 V. O d, H8 x4 \2 A
指定直线的端点或 [放弃(U)]: 找到 3 个
- u( W, P8 H* C d4 v: [7 y! \
选择对象:8 p9 ]& d' D2 N$ Q. L, G& e8 ^. ]
命令: ._vbarun 正在初始化 VBA 系统...
9 `* |: J4 U0 S9 S. s3 ^$ b5 X
宏名称(M): tt 执行错误3 N' B) m0 i4 w- p$ D: Y$ s2 k
命令: <选择集: 476>
! O! S: Q) T4 u4 K4 ^
WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。1 q, t5 X. a X4 j$ U3 `
命令: WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。
, M* |& _6 e+ v( U/ M7 @9 L
命令: -1
q `- ^5 @7 ?5 a9 {( G8 \
/ Q* E$ K7 V! j* b6 o1 z' I, |

复制代码

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()
, o3 b+ h& M- y6 W
; {" c& E1 x$ a! p
End Sub

复制代码

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

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

12# woaishuijia
谢谢版主

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

通知

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

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

评分

评分

浏览过的版块