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

hellojaby

先上个图，看图说话，

如何做一个把所选图形别存为一个文件的命令
8 p, t! p4 J* B
请各位指点一二。谢谢了。

3 \! L) J1 z' ]) B
我在网上搜了一下说W命令可以，但是用那个命令文件名还是得手动输入，如何才能自动点呢？？？？

+ V  U6 r! d4 ], o5 ?7 V

hb-park

使用写块命令即可

woaishuijia

1# hellojaby
: y2 j6 E; B* {7 |4 Y% `请上传DWG文件

hellojaby

3# woaishuijia
0 u" z% U) r3 m
您好，现在我上传的就是零件的图，每个零件上面的字是零件名（Name图层）。现在是想让每个零件都存为一个DWG文件，文件的文件名变成零件名子，不知道怎么样实现，用W命令虽然可以，但是我有些图有几百个上千个零件一个个手工做起来太麻烦了

woaishuijia

1 A$ i& @% W3 f/ B你准备用作零件文件名的字符串中含有非法字符,不能做文件名!
+ ~- {8 m2 U5 y. I3 `' r& O如果保证该文字中没有非法字符,可以参考下面的代码(VBA)
3 \1 K" }5 g; m# \( F: f& |; l0 }

1. 
   + e' T4 q, o& |# J$ [3 Y
2.     Dim SS As AcadSelectionSet, E(0) As AcadEntity, S As String
   
3.     '创建选择集
   / P' ?! S# q" z& Q; G
4.     Set SS = ThisDrawing.SelectionSets.Add("SS")
   
5.     '由用户在屏幕上选取零件图图元,包括准备用作文件名的Name图层的单行文字
   + }2 U4 X* c3 W5 ~+ ?
6.     SS.SelectOnScreen
   7 ?7 y0 [# r/ S9 G
7.     '遍历选择集,查找其中Name图层的单行文字
   
8.     For Each E(0) In SS
   & q' b2 }7 q0 J$ K  z
9.         If E(0).ObjectName = "AcDbText" And E(0).Layer = "Name" Then
   7 K6 m9 w7 A5 m3 y
10.             '找到文字后提取字符串
    . B5 j' _9 _) G8 G2 P
11.             S = E(0).TextString
    + B$ H) u* q6 P4 a! M7 l
12.             '从选择集中移除该单行文字,在新的零件文件中不保存它.
    
13.             '如果在零件文件中需要保存该文字,则删掉下面这行
    ! u# T1 l. S1 P% p; H
14.             SS.RemoveItems E
    
15.             Exit For
    
16.         End If
    # R+ q5 I/ n' K* G1 V% {
17.     Next
    + y( [  O6 S# d- O# C  w
18.     '调用写块方法在新文件中保存选择集中的图元,路径与当前文档相同,文件名使用从单行文字中提取的字符串
    $ X5 `( h) K# F% N
19.     ThisDrawing.Wblock ThisDrawing.Path & "" & S & ".dwg", SS
      P: I! V% e0 G4 E# l/ G, ]0 z
20.     '删除用过的选择集
    : N0 s& _+ G5 [# |$ u
21.     SS.Delete
    

复制代码

hellojaby

5# woaishuijia


5 Z5 [3 F; ]2 o' ~5 M% S* D你好啊，大哥，真是谢谢你了， 不过你能不能教教我这个东西怎么用啊，我实在是不会用这代码怎么去实现功能，谢谢。

www1974

6# hellojaby
借用上面的VBA，加载附件的vlx后，运行wxssh-tt，可以自动批量导出。注意斑竹提示把斜杠用其他字符替代。

hellojaby

7# www1974 、
% O; X1 P6 l3 c& y
8 m- R' H; _3 o) O' L% d
' b1 {4 d8 V+ z+ }2 J2 J* b2 E, K
谢谢大哥了，真的很感谢你们。

hellojaby

7# www1974
* L; V( w5 v$ M0 l* G
$ [- q- U/ K' }0 F4 ?) }( I/ ]+ j
2 ]1 r+ e, v3 u# U# e: q你好，发现个问题就是我在运行的时候不成功，我把“/”分别给换成“－”和“&”试了一下，都出现以下的东西
$ x" Q2 o; z  E! W4 D1 b
7 D5 E2 l' f% z: l! S) Z7 N这应该怎么解决啊？？请大哥指点一二。谢谢了。
1 c0 n+ |6 p2 T; Z

1. 
   
2. 令: wxssh-tt
   ' ^5 }4 U% c7 k/ y, h9 t; [
3. 选择对象: 指定对角点: 找到 1 个
   
4. 选择对象:
   & @5 X3 j- e! P) c! a* b
5. ._select
   9 D8 ]3 D" p5 z: v7 U; @
6. 选择对象: CP
   
7. 第一圈围点: none
   
8. 指定直线的端点或 [放弃(U)]: none
   
9. 指定直线的端点或 [放弃(U)]: none
   / `0 f% Y" X6 ~- A2 N
10. 指定直线的端点或 [放弃(U)]: none
    . Y; c) x7 z9 n
11. 指定直线的端点或 [放弃(U)]: none
    + ?& M5 J9 d. U. \
12. 指定直线的端点或 [放弃(U)]: none
    ! Q- ~7 Z, s8 ?$ |/ K
13. 指定直线的端点或 [放弃(U)]: none
    
14. 指定直线的端点或 [放弃(U)]: none
    
15. 指定直线的端点或 [放弃(U)]: none
    
16. 指定直线的端点或 [放弃(U)]: none
    ' g2 z- \7 q: t) n6 O/ \
17. 指定直线的端点或 [放弃(U)]: none
    - y! b. }8 S5 J5 F
18. 指定直线的端点或 [放弃(U)]: 找到 3 个
    
19. 选择对象:
    
20. 命令: ._vbarun 正在初始化 VBA 系统...
    2 @& f. E2 t- q
21. 宏名称(M): tt 执行错误
    ) N5 m# p/ T9 b# A7 _, |6 G1 b6 n" t
22. 命令: <选择集: 476>
    
23. WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。
    
24. 命令: WXSSH-TT 未知命令“WXSSH-TT”。按 F1 查看帮助。
    - P6 l. u7 a( s/ P
25. 命令: -1
    * t- {7 A0 u1 N4 \; D, ?7 g
26. 
    

复制代码

www1974

命令: ._vbarun 正在初始化 VBA 系统...
$ H8 W! z# Q! Y8 U
& f" ^) b% W& p( L9 W- c宏名称(M): tt 执行错误

- |2 }7 z3 ~7 n3 B+ y6 N2 v把斑竹的VBA定义宏tt

hellojaby

10# www1974
! R8 ~9 X- }. `2 O. X0 T/ {+ V
大哥我还没懂那个怎么用啊.我用2005和2008的都试了,

按你说把那个加载到VBA咋加载啊,这方面一门不门啊.多指点指点一下,谢谢了

woaishuijia

在CAD图形界面按"Alt+F11"(高版本可能需要按两次)打开VBA IDE界面,双击"工程资源管理器"中的"thisdrawing"对象,弹出代码窗口,在其中输入"sub tt"(没有引号,注意中间有空格),回车.代码窗口会出现

1. Sub tt()
   2 r! q0 u0 h3 T
2. 
   2 _$ d, B* {5 Q6 o. o5 J
3. End Sub

复制代码

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

koutx

12# woaishuijia
谢谢版主