|
|
发表于 2011-4-19 16:16:16
|
显示全部楼层
来自： 中国云南保山
本帖最后由 woaishuijia 于 2011-4-19 16:24 编辑
% U J: ?& H: }5 m3 G& x, c7 M
5 N$ W, [/ m) p- O# v* X9 M你准备用作零件文件名的字符串中含有非法字符,不能做文件名!
! D2 n5 \' G" c- E如果保证该文字中没有非法字符,可以参考下面的代码(VBA)9 F" ?2 X8 l( f/ N/ K# D# {# o
-
2 ^* F! o) V2 C0 O - Dim SS As AcadSelectionSet, E(0) As AcadEntity, S As String
, m$ u* R# E6 q* G( M7 p0 b - '创建选择集: y- J' ~/ e' I8 I, w2 z
- Set SS = ThisDrawing.SelectionSets.Add("SS")
# A# A2 r: i. A0 R% y I3 b J - '由用户在屏幕上选取零件图图元,包括准备用作文件名的Name图层的单行文字
# [6 _" }1 C; ]5 U. |+ ]& p; S$ R5 t - SS.SelectOnScreen
5 K& ~ m* O* k5 B) f+ ]( |) g, d - '遍历选择集,查找其中Name图层的单行文字3 Q" f% w# a! [/ A
- For Each E(0) In SS) t& F# z' ]) h+ }' D
- If E(0).ObjectName = "AcDbText" And E(0).Layer = "Name" Then
1 ?/ w0 L N, s - '找到文字后提取字符串3 Z1 t# w7 s) N9 Q0 O# J! \
- S = E(0).TextString
% O, V: F6 ?' ?$ h* g" I - '从选择集中移除该单行文字,在新的零件文件中不保存它.( b' M5 J- q& {
- '如果在零件文件中需要保存该文字,则删掉下面这行5 ^2 x/ U6 B4 A" R% \
- SS.RemoveItems E" g8 ?8 k# C- H$ z9 c$ n
- Exit For
! `6 k6 h. v) [ - End If
) z' h% ~% R' h# A) a/ s - Next
1 H; G. `/ p! z - '调用写块方法在新文件中保存选择集中的图元,路径与当前文档相同,文件名使用从单行文字中提取的字符串- P, |9 c5 Y- k8 ^* k
- ThisDrawing.Wblock ThisDrawing.Path & "" & S & ".dwg", SS
: g, n/ f4 U$ p - '删除用过的选择集
R& \/ P: D9 ^2 y; A) A8 p - SS.Delete s# q* _# G# P1 a7 F
|
|
[复制链接]
发表于 2011-4-15 14:09:20
楼主
