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

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 {) ^/ w8 l: T5 H/ K: T
Dim SS As AcadSelectionSet, E(0) As AcadEntity, S As String9 T( u& f- e; ^" s8 S/ v4 h
'创建选择集
' z6 Y( z& {% p0 u' I; g
Set SS = ThisDrawing.SelectionSets.Add("SS")
Z% j$ \$ Q% V0 k! \6 |
'由用户在屏幕上选取零件图图元,包括准备用作文件名的Name图层的单行文字
" J! B9 k) S, f
SS.SelectOnScreen/ W" G3 S( z( ^( p' O4 I) H* \0 p
'遍历选择集,查找其中Name图层的单行文字
, m M, k' B. a
For Each E(0) In SS9 v& P3 j2 K* M
If E(0).ObjectName = "AcDbText" And E(0).Layer = "Name" Then% ]& K9 Y% h! x6 Q4 c z
'找到文字后提取字符串
' b8 g. P3 r7 K, c& R
S = E(0).TextString
1 N' v+ Q$ K9 i9 T
'从选择集中移除该单行文字,在新的零件文件中不保存它.
/ `5 N# i/ T( {/ F
'如果在零件文件中需要保存该文字,则删掉下面这行# U' |1 [4 `; g$ r/ F0 E
SS.RemoveItems E% J: i+ x; G' t4 ~+ f% y* s
Exit For& F0 v& Q9 S$ Q4 `" s; ?
End If
: ~4 x, p0 t" w4 {5 U
Next6 m$ { ?# L! h& _/ L: y
'调用写块方法在新文件中保存选择集中的图元,路径与当前文档相同,文件名使用从单行文字中提取的字符串
- P' j9 |) a; z" X
ThisDrawing.Wblock ThisDrawing.Path & "" & S & ".dwg", SS% g# B2 G9 ]: f4 E2 [
'删除用过的选择集! J9 ]( w9 j& F# X; F
SS.Delete# R7 G# z) a! h* ~4 M8 u2 K$ X2 h

复制代码

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

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

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

2 I* i# S& [/ n; h+ [# Q* D. w
令: wxssh-tt
; u; U; E. v3 z, b: `& P
选择对象: 指定对角点: 找到 1 个
: S- B: i! x* E
选择对象:! Q$ S6 n' C T, ]2 e- e4 R
._select" f$ j( a. x* c# t! i/ f0 E
选择对象: CP9 L" k- ^7 |# L2 A- s
第一圈围点: none4 Z; l4 b8 m+ Z: \% Y
指定直线的端点或 [放弃(U)]: none& n: M5 P) A& z7 B3 m, V: o. ?
指定直线的端点或 [放弃(U)]: none
8 n6 u# ^, w. `) q. O0 H, s
指定直线的端点或 [放弃(U)]: none
: I7 e* N% V! d& X
指定直线的端点或 [放弃(U)]: none! R) `1 a2 o2 }' x
指定直线的端点或 [放弃(U)]: none* h2 a/ p {1 p0 @: q+ @9 r
指定直线的端点或 [放弃(U)]: none
4 t* R* s) m( k" `1 Y
指定直线的端点或 [放弃(U)]: none
& \: \6 f* E, A# `/ J1 d3 U8 p
指定直线的端点或 [放弃(U)]: none+ U, A( ?. j M8 [
指定直线的端点或 [放弃(U)]: none
: D, `" l+ W i8 j
指定直线的端点或 [放弃(U)]: none( S1 m0 G7 i% d+ Y
指定直线的端点或 [放弃(U)]: 找到 3 个, b* E1 C* G+ Z) }- T6 z
选择对象:0 Y7 Z; X) k" J8 x
命令: ._vbarun 正在初始化 VBA 系统...+ U, k: g- O1 `& s3 L
宏名称(M): tt 执行错误( U: a8 N+ A: Z* A; {6 t$ b5 s. n
命令: <选择集: 476>
9 y/ @: c4 L9 w; g$ S5 ~+ B: m0 B2 s
WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。' |! T6 {( c3 M
命令: WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。5 Y" o+ ]& Y% v
命令: -1
, ^8 {+ M' Q2 l5 ~! B& D6 B; P
, X+ A7 X1 v3 C/ s/ z

复制代码

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()) ~* e. n; T2 S% R6 Q
?( y5 N' Y1 q% ^3 K
End Sub

复制代码

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

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

12# woaishuijia
谢谢版主

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

通知

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

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

评分

评分

浏览过的版块