找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
楼主: arter_2006

SOLIDWORKS 宏合并执行的问题

[复制链接]
 楼主| 发表于 2018-11-28 16:45:31 | 显示全部楼层
2014试过了,和2018一样。但3个宏各自单独执行是没问题的。不知道问题在哪里
发表于 2018-11-28 17:11:54 | 显示全部楼层
arter_2006 发表于 2018-11-28 16:450 E; P: z9 N/ f3 }, g7 W
2014试过了,和2018一样。但3个宏各自单独执行是没问题的。不知道问题在哪里

  A- V6 q$ W: K) e: P5 O2012版本 "引用項目" 作參考,看是否有打勾!3 P, L. W, c% J& Z* f5 Q

; s: W+ V3 A: [, y! i8 W. U3 @' P; B+ B7 A# v$ i, L3 }7 v

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册会员

×
 楼主| 发表于 2018-11-28 18:54:50 | 显示全部楼层
ryouss 发表于 2018-11-28 17:114 n) V) u) Q0 r5 w. y9 M2 |
2012版本 "引用項目" 作參考,看是否有打勾!

" d: S. J, f4 ]* H" X7 M打勾了,只是没有solidworks 2012的选项,我从上到下都看过了
) R; L' X* H5 l$ K$ Q/ Y' S2 T2 q

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册会员

×
发表于 2018-11-28 20:18:36 | 显示全部楼层
arter_2006 发表于 2018-11-28 18:54
8 L3 ~8 p; f0 u& Y! m打勾了,只是没有solidworks 2012的选项,我从上到下都看过了

# X( u3 z4 O, ?+ I因是2018版沒2012是正常的.5 b" X8 Z" p; X, @) Y, [
5 E6 ]0 t9 b7 p! ]0 Y+ L: x) d7 G
另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")5 E8 r9 W. g$ f( s
- Z5 ]& i+ m5 @4 r  @. @
" e, O/ r* I+ T9 q" j: X. E
7 F" X; z. ]1 J" X  c1 @; K

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册会员

×
 楼主| 发表于 2018-11-29 08:18:06 | 显示全部楼层
本帖最后由 arter_2006 于 2018-11-29 08:49 编辑
( b/ ~; y! I, {3 _- x
, X" V' n( Y% V$ }/ V: W2 s0 N2018没有侦错按钮,但有“逐语句”按钮,点了后没发现任何问题。
* l2 @/ J& e, b下面是截屏。3 O* z: ?. t8 o7 Z( i- J7 v; f

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册会员

×
 楼主| 发表于 2018-11-29 08:23:42 | 显示全部楼层
又用solidworks 2014试了下,发现问题:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册会员

×
 楼主| 发表于 2018-11-29 08:57:38 | 显示全部楼层
对于solidworks 2014,我试了两个宏,一个是昨天的宏,及宏的名字为中文名,如”删除当前配置属性.swp“,但/ c. d3 f6 n4 O* k
"CurCFGname = Part.GetConfigurationNames"
9 W5 x3 p% v, U' C4 V4 Y1 K这一句没有改,+ k# z9 j. U" P( n  K$ f
我进行了逐句检查,没有发现问题。' ?7 W# N$ |- F0 T( e
后来我把宏的名字改为英文名,但上面的语句改为了* t) D* S( W3 h8 `
CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '补加零件文件的路径及名称; m0 ^2 s* W" V4 D/ \  R  @
,执行逐句检查,没有再发现问题。6 S& S7 d) Q% j
上面的两个版本在solidworks 2018,及在sw2014里发现问题的宏,都没有发现任何问题。
) V5 S5 O& v6 B0 Z$ C0 ?) l1 x; W2 g
/ r0 ~) l+ U" D2 r* y$ n补充一点,我刚刚发现,这几个宏,无论是在sw2014还是2018里,都能够执行”partitionTM.swp“宏里的内容,但另外两个宏里的内容都不能起到任何作用,即不能删除自定义属性、及所有配置属性里的内容。" b3 L) d; {# t9 {8 N9 ?6 e

点评

沒2014及2018版,就沒法試了,但在2012,2015,2017皆可以.  发表于 2018-11-29 09:45
 楼主| 发表于 2018-11-29 10:18:43 | 显示全部楼层
@ryouss,谢谢,让您费心了。
发表于 2018-11-30 11:11:50 | 显示全部楼层
可使用RunMacro2函数执行外部宏,如下参考
  1. Option Explicit. B8 N; q/ Z0 G# L) h& z+ ?3 O
  2. Dim swApp As SldWorks.SldWorks6 B! \/ q0 u% ^2 A2 ^4 L/ t4 X1 }
  3. Dim runMacroError As Long
    # B" D3 W3 {+ L. b
  4. 4 Q. k% k/ }% g& e% D: A) w1 Q2 M
  5. Sub main()* O% A6 u2 N8 k. t! s: S1 R
  6.    Set swApp = Application.SldWorks6 S7 d- X9 R# {
  7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除所有配置属性.swp", "配置1", "main", 0, runMacroError
    6 c) U& U& W# m/ G. {  W
  8.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除自定义属性.swp", "配置1", "main", 0, runMacroError
    ' a& t7 m. ^7 L+ G2 g4 f" e
  9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
    6 e; F: D9 Q) U4 Z+ G' u
  10. End Sub. _6 y7 J+ \* E/ {% M. R% O  f
复制代码
" W( u- m" B+ P7 o: ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册会员

×

评分

参与人数 1威望 +1 收起 理由
arter_2006 + 1 热心助人,专业精湛!

查看全部评分

 楼主| 发表于 2018-11-30 12:52:08 | 显示全部楼层
DaveChan 发表于 2018-11-30 11:11
$ j3 ?; E8 y3 \3 b4 q可使用RunMacro2函数执行外部宏,如下参考

2 F3 B3 E5 i6 e2 _, L& C' G9 P非常感谢您,成功了
% e7 m; W$ e& a4 f; Q
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2025-10-16 23:28 , Processed in 0.066597 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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