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

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)

2 v5 v+ `* H' W( x# r
Dim SS As AcadSelectionSet, E(0) As AcadEntity, S As String
1 |$ J x) V. h7 K8 z7 ^; u
'创建选择集+ I. H2 l q! w D4 _! U, q" s9 ^
Set SS = ThisDrawing.SelectionSets.Add("SS"); w: l9 J; Q6 j6 X& p5 c5 t& R/ P1 \
'由用户在屏幕上选取零件图图元,包括准备用作文件名的Name图层的单行文字9 @, i2 E4 n, _5 v0 m% i& T& T
SS.SelectOnScreen0 T2 p& O2 x, Z0 S. D
'遍历选择集,查找其中Name图层的单行文字
- s9 H. V! K2 T7 ]3 R p# \: t) o) V
For Each E(0) In SS% K3 j: {$ d% I! L5 J9 X$ f
If E(0).ObjectName = "AcDbText" And E(0).Layer = "Name" Then, d, a ? L1 ^ ?8 U
'找到文字后提取字符串2 i& l8 n% L0 |) F0 P B# N9 o/ \
S = E(0).TextString& x$ r; X J3 m( a
'从选择集中移除该单行文字,在新的零件文件中不保存它.2 A$ z0 T, q' m$ ]
'如果在零件文件中需要保存该文字,则删掉下面这行
4 O% Z- V% b3 L2 _$ O
SS.RemoveItems E! {* X/ w( m3 V8 r1 X2 z
Exit For6 V1 r! ]2 q' `# @- {6 N# W" r9 g
End If
$ i( o! J4 i" b8 H( ^$ ^# ~
Next
; A2 f* | `& [* F8 U' w9 l
'调用写块方法在新文件中保存选择集中的图元,路径与当前文档相同,文件名使用从单行文字中提取的字符串0 g8 G4 R% ^- y8 ~ v4 m
ThisDrawing.Wblock ThisDrawing.Path & "" & S & ".dwg", SS5 `! z1 H" X4 Q/ w% n/ f4 a1 E$ F
'删除用过的选择集8 z; n9 q" d/ z* V' o
SS.Delete
2 R# V5 \2 G5 Z# A- t4 c2 |" d& w

复制代码

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

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

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

4 `! i5 i1 c" D; V c5 y8 p& e
令: wxssh-tt+ m E, l4 ^7 A4 S, b7 p3 }
选择对象: 指定对角点: 找到 1 个7 p2 S" \/ f. {/ _% Z2 g
选择对象:
' X/ n3 {% _% N+ l3 R, P; }9 w4 `
._select
- Q7 M$ |0 \$ q
选择对象: CP
* y5 E/ ]1 \0 h+ I
第一圈围点: none+ A; n9 K$ O8 r N. v( z- o5 F
指定直线的端点或 [放弃(U)]: none _3 A5 O) u4 ?9 f0 R s
指定直线的端点或 [放弃(U)]: none X" \3 m. B! o" [
指定直线的端点或 [放弃(U)]: none2 I4 j6 C2 ]1 x5 z) y6 M
指定直线的端点或 [放弃(U)]: none( {( S- c* z f' I0 C& G, h
指定直线的端点或 [放弃(U)]: none
% b5 z% Q7 o+ }) N+ ^) t' C# D
指定直线的端点或 [放弃(U)]: none! }1 B% F$ l8 [7 }
指定直线的端点或 [放弃(U)]: none3 w4 ]( E- _- [- D/ {
指定直线的端点或 [放弃(U)]: none
/ \: J) ^# I' K6 a2 D" P: ^
指定直线的端点或 [放弃(U)]: none
Q1 [$ L8 X- v P" P
指定直线的端点或 [放弃(U)]: none/ |" N6 t1 f. h
指定直线的端点或 [放弃(U)]: 找到 3 个
! L; Z7 R7 G8 R3 A
选择对象:
! g* U" y! z1 f8 h& D6 a. S
命令: ._vbarun 正在初始化 VBA 系统...1 K7 h9 `; D {% Y
宏名称(M): tt 执行错误
2 P7 b" c8 q' T+ y
命令: <选择集: 476>) @) G, O; ^0 V) X4 h, l |# r" R/ t" s$ A
WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。5 |5 Q! \/ Y4 h- Y4 b
命令: WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。
. r4 p/ a+ y; l4 V1 f5 o: {
命令: -14 c+ C3 s+ S4 T) m; v+ ^% N
4 Z5 X8 r: \' r$ | G

复制代码

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()
: Q- Z5 @7 ^: i1 F) v& D' j% G
( c8 U# V& ?: g( Q0 G( }9 G$ w
End Sub

复制代码

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

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

12# woaishuijia
谢谢版主

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

通知

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

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

评分

评分

浏览过的版块