找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索

重命名零件宏

[复制链接]
发表于 2025-6-30 08:00:54 | 显示全部楼层
lonelysnakejj 发表于 2024-3-26 11:09
$ V% e  Y- I" H+ q  H! [; e怎么拷贝好一些,复制都是乱码
4 }/ \' A6 I0 c  Y( l. g& Z
截图,自己重新输入一遍,也是一种学习。我以前试过复制,都是乱码,这次准备这样试一下。; g; J! o1 J( C
发表于 2025-7-1 22:29:44 | 显示全部楼层
TAXUSDONG 发表于 2025-6-30 08:00
, R5 w0 |! O7 B截图,自己重新输入一遍,也是一种学习。我以前试过复制,都是乱码,这次准备这样试一下。
0 L" f; |  Z1 |1 [7 m, Q% Z ...
! L% O9 E9 N8 z0 g6 U
乱码一般在尾部,删掉就好
" Z6 \/ A7 l; ?* ^6 G% q
发表于 2025-7-4 09:51:10 | 显示全部楼层
如果选中的零件已经打开工程图 宏命令会报错* }; B4 M8 ?, C+ O! r2 P: G

* n& l7 c( U/ K6 |这个bug可以解决吗! e" l0 ?: V4 d( h8 H0 z1 M" F

5 E1 C' K$ q8 S( P7 H( N; X5 o4 q5 o+ M
补充内容 (2025-7-10 09:13):: F! _+ X/ A2 m/ T9 z+ i
还有零件没有工程图也会报错。。
发表于 2025-7-22 22:52:22 | 显示全部楼层
woodygor 发表于 2025-7-4 09:51* ^+ ?# I) L  j6 P# ?
如果选中的零件已经打开工程图 宏命令会报错! K1 b2 C! F, d. c
# g7 h: g) x; [$ U' r9 O# [
这个bug可以解决吗
* v: R- O5 B& n! q, p, b
问题出在 FileCopy olddrwname, newdrwname. b4 H$ g4 H# e3 j( Y& c4 }
Copy、CopyFile、FileCopy的用法' k/ M- y# {8 X7 N  T  r% F4 s1 y

" }) D* F7 Y& P

1、Copy 方法
; h# C. y) A+ e& `4 \描述* w7 S0 _, N; e" R% S9 [
把一个指定的文件或文件夹从一个地方复制到另一个地方。& y" b- T" w: }5 z
语法" C7 z8 w4 H$ o9 ^
object.Copy destination[, overwrite]
4 e# \5 e- L; ?Copy 方法语法有如下几部分:
: G0 L; ~8 o+ f3 a( v* o部分 描述
# V# K/ ]7 S, p% |# Sobject 必需的。始终是一个 File 或 Folder 对象的名字。
- M7 @! E+ Z3 ^* Z% Zdestination 必需的。文件或文件夹要复制到的接受端。不允许有通配符。2 Z1 i: G9 |% R5 `3 j" q
overwrite 可选的。Boolean 值,如果该值为 True (缺省),则已存在的文件或文件夹将被覆盖。如果为 False,则它们不被覆盖。
) b' o, N( n* `" f4 y9 J说明
1 I, N( k2 F4 K7 v0 s: [, e对一个 File 或 Folder,Copy 方法的结果和执行 FileSystemObject.CopyFile 或FileSystemObject.CopyFolder 操作的结果是一样的,在后者中, object所引用的文件或文件夹是作为参数传递的。应当注意,后面的方法能够复制多个文件或文件夹。

=============================================================================

2、CopyFile 方法5 h+ D" U1 r' F+ n
描述
; Q9 Y* w) I4 O1 _6 r4 A# {把一个或多个文件从一个地方复制到另一个地方。; a  {# \' ]6 O0 [$ B0 l1 ?
语法9 c- j' i2 y1 r# ~& Z' v, I1 I) \9 c
object.CopyFile source, destination[, overwrite]
: k2 X0 [2 v  ~* d) ?CopyFile 方法语法有如下几部分:: x0 T' k2 ]. i
部分 描述+ e! p8 Y0 X3 E) Q3 x
object 必需的。object始终是一个 FileSystemObject 的名字。# y' L/ x. K6 I! q& n: t
source 必需的。指明一个或多个要被复制文件的字符串文件说明,它可以包括通配符。
0 g' p; [! m& ?0 n3 t$ q6 Q4 Edestination 必需的。指明 source 中的一个或多个文件要被复制到的接受端的字符串,不允许有通配符。6 @, N: o7 G6 ]( K
overwrite 选项的。Boolean 值,它表示存在的文件是否被覆盖。如果是 True,文件将被覆盖;如果是 False,它们不被覆盖。缺省值是 True。注意如果 destination 具有只读属性设置,不论 overwrite 值如何,CopyFile 都将失败。  _& ^6 k1 u3 Q, Q' b: e
说明) g# q7 M* r4 [) ^1 g  U+ P
通配符只能用在 source 参数的最后一个路径部件。例如,你可以在下面请况使用通配符:" u3 R# p. b5 N8 N: ~  _. f
FileSystemObject.CopyFile “c:\mydocuments\letters*.doc”, “c:\tempfolder\”/ S4 F: ^% s% _/ i" q
但下面情况不能使用:: s4 }7 r' N, j0 \5 s; B
FileSystemObject.CopyFile “c:\mydocuments*\R1???97.xls”, “c:\tempfolder”+ y( r0 z3 M6 }, B9 R" m
如果 source 包含通配符或 destination 以路径分隔符(\)为结尾,则认为 destination 是一个已存在文件夹,在其中复制相匹配的文件。否则认为 destination 是一个要创建文件的名字。不论是那种情况,当复制一个文件时,可能发生三种事件。$ @$ M& `2 q0 k  O* s
如果 destination 不存在,source 得到复制。这是通常的情况。
3 d( w% |5 k* Z  v如果 destination 是一个已存在的文件,则当 overwrite 值为 False 时发生一个错误,否则,source的复制文件将试图覆盖已存在文件。6 {6 g" o2 _2 Z0 _
如果 destination 是一个目录,发生一个错误。/ U% v) y; o+ A4 W7 i
如果使用通配符的 source 不能和任何文件匹配,同样产生一个错误。CopyFile 方法停止在它遇到的第一个错误上。不要试图回卷或撤消错误发生前所做的任何改变。

=============================================================================

3、FileCopy 语句
5 \. z+ G+ h, q+ |, f4 _  F复制一个文件。
# B# B/ I/ `* E! a4 q' [& e语法
! N* u9 k5 ~- n2 z+ J# }1 ^FileCopy source, destination
% b' X: V( s2 TFileCopy 语句的语法含有以下这些命名参数:5 y2 M; o4 M) _
部分 描述( w* u$ ?3 w. E: ~% O+ X2 b1 s
source 必要参数。字符串表达式,用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
  z$ i4 e" _2 o8 |destination 必要参数。字符串表达式,用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。+ k* t" }) w" X% G3 g- M# G
说明
9 |- `: a+ L, f/ W- @3 N如果想要对一个已打开的文件使用 FileCopy 语句,则会产生错误。


+ K/ _# @5 k+ _8 d1 Q. M* M& w0 I& O" [' @5 e- @
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Archiver|手机版|小黑屋|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-7-31 20:26 , Processed in 0.060179 second(s), 13 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表