|
|
发表于 2011-4-19 16:16:16
|
显示全部楼层
来自： 中国云南保山
本帖最后由 woaishuijia 于 2011-4-19 16:24 编辑
5 t0 P; _/ {2 @* P7 b5 d% }% ` ^5 t
你准备用作零件文件名的字符串中含有非法字符,不能做文件名!
0 H8 Y& B" A7 |- B如果保证该文字中没有非法字符,可以参考下面的代码(VBA)* j) d5 T% c9 v
- + I4 A' y$ q6 e2 n. U3 D
- Dim SS As AcadSelectionSet, E(0) As AcadEntity, S As String
) _2 H6 O: s; r2 ]3 q2 h - '创建选择集
& c: o$ N# e$ J( [6 u- _ - Set SS = ThisDrawing.SelectionSets.Add("SS")
) O% Y% s4 U5 h; H6 r A - '由用户在屏幕上选取零件图图元,包括准备用作文件名的Name图层的单行文字
+ O/ h( c, G0 p; c9 D9 R - SS.SelectOnScreen. M$ X1 Y* `% D$ ^6 C: Y
- '遍历选择集,查找其中Name图层的单行文字 q4 O( { R7 K1 k" |" u
- For Each E(0) In SS/ s7 `; a) p, ~) a% K. M
- If E(0).ObjectName = "AcDbText" And E(0).Layer = "Name" Then
9 V3 q q) I* z - '找到文字后提取字符串+ q1 v' s; P% m# I- {
- S = E(0).TextString
3 [4 l0 M/ |2 t- ~9 a* h - '从选择集中移除该单行文字,在新的零件文件中不保存它.) v. h1 ^5 H: ~$ L% ]5 t3 T/ i7 M+ T
- '如果在零件文件中需要保存该文字,则删掉下面这行
% v9 j0 F* ?$ B2 i8 \1 g - SS.RemoveItems E, m( \/ p/ L7 k+ B; A
- Exit For
2 g6 B4 P3 ^4 `. c1 h) J& g; e - End If6 [4 h' O7 h7 A9 N
- Next2 i7 h! p8 s, j* f+ y6 t l: z
- '调用写块方法在新文件中保存选择集中的图元,路径与当前文档相同,文件名使用从单行文字中提取的字符串
" q9 |( G0 y4 _/ h% ?0 } - ThisDrawing.Wblock ThisDrawing.Path & "" & S & ".dwg", SS$ k: `+ q# {( C: [
- '删除用过的选择集
- [; K0 e3 \- p& `* P' A; S( A - SS.Delete
+ B- l$ N. |3 q5 g( |$ \: ^0 M
|
|
[复制链接]
发表于 2011-4-15 14:09:20
楼主
