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

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)

0 Z# }- {- m# V% y' c' T- H
Dim SS As AcadSelectionSet, E(0) As AcadEntity, S As String8 B$ n; J! a! @( ]. H
'创建选择集# A% R5 h n/ i$ m; ]
Set SS = ThisDrawing.SelectionSets.Add("SS"): U, N" e! u" v" s5 b7 w
'由用户在屏幕上选取零件图图元,包括准备用作文件名的Name图层的单行文字6 `4 S, l6 L) @5 \
SS.SelectOnScreen
' G& C, ~% u% E6 o6 q7 L# v
'遍历选择集,查找其中Name图层的单行文字. r S3 ^* d7 X0 C
For Each E(0) In SS
; @' H1 n1 h4 E+ \6 V$ t* C" v u
If E(0).ObjectName = "AcDbText" And E(0).Layer = "Name" Then
6 Z/ d9 J) b: V- C' i+ d" q
'找到文字后提取字符串
$ i4 @2 T a' _7 R
S = E(0).TextString
$ c6 F& j$ R: C' N0 Q% j' v
'从选择集中移除该单行文字,在新的零件文件中不保存它.
1 C7 U* o7 f: w ~% Y! @6 Y
'如果在零件文件中需要保存该文字,则删掉下面这行2 G5 U6 u' K- m) c, g
SS.RemoveItems E V# C# {% H9 K: Z: [
Exit For& P7 X6 K. U+ g5 L* |' {+ o
End If
) y( ^) q- j+ N( o: C2 G% }, h
Next
+ k3 r( u0 Q1 l% \* @( n8 Q
'调用写块方法在新文件中保存选择集中的图元,路径与当前文档相同,文件名使用从单行文字中提取的字符串
; u6 u% r6 `' J$ F& ^
ThisDrawing.Wblock ThisDrawing.Path & "" & S & ".dwg", SS* }: Z( R4 A8 F, a- i
'删除用过的选择集
4 [; x+ p' W ~) v) }
SS.Delete
8 }8 A- A9 {# J5 T4 f" h& b

复制代码

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

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

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

5 E6 {; Y! R) }" u- [9 l+ x0 P
令: wxssh-tt
1 |" o1 v) g6 f$ E0 Y
选择对象: 指定对角点: 找到 1 个
& t( T% m. m9 l& p: G# h6 _% X
选择对象:
' v7 I4 q) p7 v# ?& G1 ?7 ?
._select
2 Q% b' H, g) p) Z/ J! X9 ]4 S
选择对象: CP" \5 L; w' }- t0 x$ ~5 n; \" v
第一圈围点: none
$ g6 g6 n- d4 D6 B& }
指定直线的端点或 [放弃(U)]: none5 y( M6 \. E% g
指定直线的端点或 [放弃(U)]: none
/ Z0 N$ T( Y! {0 @$ G9 H3 W/ h( ?7 y
指定直线的端点或 [放弃(U)]: none
1 \+ P% G4 v/ R. m+ ~
指定直线的端点或 [放弃(U)]: none/ N/ W6 g- x1 p( o1 ~
指定直线的端点或 [放弃(U)]: none
3 o/ J. n3 Z7 ~2 S# X& d [ l3 U
指定直线的端点或 [放弃(U)]: none8 _% I: g2 h+ r0 r' A
指定直线的端点或 [放弃(U)]: none Y+ Z# \; S. g; Z5 k: G: f! G
指定直线的端点或 [放弃(U)]: none
3 G/ ]/ k) j0 W0 n& E
指定直线的端点或 [放弃(U)]: none" ~3 G; E& V0 E: j. ^/ a! X- `9 z; ^
指定直线的端点或 [放弃(U)]: none
( ?7 P9 b* _6 u1 i4 ?8 p
指定直线的端点或 [放弃(U)]: 找到 3 个# v$ l7 A% f5 ?: t( ^# ^
选择对象:% W9 [ R( @. g' ?% b" `
命令: ._vbarun 正在初始化 VBA 系统...$ M! h! ?/ a, B4 o. Q6 y+ w
宏名称(M): tt 执行错误7 e' g6 T- {, F8 D9 [+ q! b
命令: <选择集: 476>" p) {0 c6 R8 S( g- x" r
WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。$ ^6 F" t* C {/ C# _( y
命令: WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。
" U/ X A6 ]' \) g8 R% Q' |
命令: -12 n0 C. r% t) K; Y1 l W
9 m; b9 f, }- a( G1 K

复制代码

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(); W# |4 U7 J. L# y1 h. R& B$ J6 ^
" G j* p& ?; J
End Sub

复制代码

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

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

12# woaishuijia
谢谢版主

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

通知

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

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

评分

评分

浏览过的版块