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

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)

. b4 l/ T0 {) S
Dim SS As AcadSelectionSet, E(0) As AcadEntity, S As String
2 K3 W' }7 @9 {! W2 `7 j' X8 @
'创建选择集1 O6 B, k) x8 O, U$ _8 R5 F
Set SS = ThisDrawing.SelectionSets.Add("SS")
6 a' L1 D7 o) L" h! O
'由用户在屏幕上选取零件图图元,包括准备用作文件名的Name图层的单行文字
4 j' j* ?. h5 y9 ]" H7 L {
SS.SelectOnScreen+ z$ D% K/ B) v3 t5 E
'遍历选择集,查找其中Name图层的单行文字
. J% `5 g. q( N- j
For Each E(0) In SS- L8 v* C( n9 m: v$ w. G
If E(0).ObjectName = "AcDbText" And E(0).Layer = "Name" Then
& m, F5 Y0 ]/ Z* M5 X) x
'找到文字后提取字符串( Z _7 Q7 y- E6 }# v/ X+ g8 O
S = E(0).TextString
) z M% t; Y% X# s0 L) m
'从选择集中移除该单行文字,在新的零件文件中不保存它.
6 D5 {1 I( j7 L+ h
'如果在零件文件中需要保存该文字,则删掉下面这行" l8 w: C- T' L' E/ M
SS.RemoveItems E+ X8 p. V. i) y h* t$ T5 B
Exit For
]( U7 q0 N* M7 p2 s
End If% I* ~, c7 O# P2 P$ |
Next8 K L4 ?1 a' X" Z, J$ f3 l7 ^
'调用写块方法在新文件中保存选择集中的图元,路径与当前文档相同,文件名使用从单行文字中提取的字符串
) {2 L) ^' J5 q3 X; a
ThisDrawing.Wblock ThisDrawing.Path & "" & S & ".dwg", SS' f# l6 q& B& x/ B% r$ k2 p; h9 T
'删除用过的选择集0 Z- T* T) M, A' a' u# K3 v
SS.Delete0 D. b) F; Y( M/ M$ a; F$ C* t

复制代码

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

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

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

( [9 m# w! A, q/ @% T
令: wxssh-tt5 Q8 Q1 B3 P7 u" M" r
选择对象: 指定对角点: 找到 1 个
4 K: D! B' c# |! V' E% k. G
选择对象:
% E, g( w; j7 M% @2 s
._select
0 J! @- H6 J3 s* V& K# X
选择对象: CP
5 p6 b7 X* T, K4 f& }
第一圈围点: none
- k; G0 T9 E6 f# F4 J% a+ y, c# L) l& I
指定直线的端点或 [放弃(U)]: none5 v7 N) I7 q' {7 L- @8 w4 g
指定直线的端点或 [放弃(U)]: none
) W; s# d6 {& g" L1 s2 b: E+ l+ U
指定直线的端点或 [放弃(U)]: none4 V+ S6 \ m9 x, J* M: D) Q' c
指定直线的端点或 [放弃(U)]: none% o: P& ~ w6 L9 G% \
指定直线的端点或 [放弃(U)]: none. R; T/ M! J5 T: X1 Q: c; x
指定直线的端点或 [放弃(U)]: none6 B! ?# T6 c9 ?; K/ D1 o
指定直线的端点或 [放弃(U)]: none+ x( T6 t9 u F+ W
指定直线的端点或 [放弃(U)]: none
3 ~) o, r$ c3 X9 \2 e6 u0 T
指定直线的端点或 [放弃(U)]: none
8 y8 p Y6 `8 b, K6 S
指定直线的端点或 [放弃(U)]: none. W% Q! L$ D9 u: u
指定直线的端点或 [放弃(U)]: 找到 3 个" U1 l4 i. g. j2 r
选择对象:
9 j$ Y6 O+ X# U& c" m8 ~
命令: ._vbarun 正在初始化 VBA 系统...
, O5 R% B2 |9 U1 ~
宏名称(M): tt 执行错误
! P) S+ H4 ?4 l k9 d. ]( J
命令: <选择集: 476>: b- t% I6 T- T! K' q) d; Y
WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。6 c1 M6 J6 A/ K+ W" ^- p/ X
命令: WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。" e& j0 r% S' A& y6 U4 s
命令: -1' K o0 O1 G2 H7 }
* ~/ w! V6 \: T5 ^# u% D) _, `' E2 @+ A

复制代码

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()
' J0 j2 C+ p! {. s! f. H
0 y8 g/ i T9 _! v3 ?! O j' b
End Sub

复制代码

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

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

12# woaishuijia
谢谢版主

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

通知

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

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

评分

评分

浏览过的版块