找回密码
 注册会员

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:45' }- W3 J2 R" ~
2014试过了,和2018一样。但3个宏各自单独执行是没问题的。不知道问题在哪里
" r! F  R$ Y! |9 ?( n
2012版本 "引用項目" 作參考,看是否有打勾!
2 W+ e! {1 G% E1 }! i# y8 p* O
5 x; E/ k- B, V# D  v1 e& o1 i  y' X( g  I  O  `" x

本帖子中包含更多资源

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

×
 楼主| 发表于 2018-11-28 18:54:50 | 显示全部楼层
ryouss 发表于 2018-11-28 17:111 T' H8 q6 A' j0 f+ u
2012版本 "引用項目" 作參考,看是否有打勾!

* y3 b' D* \& {7 q! X8 N& \打勾了,只是没有solidworks 2012的选项,我从上到下都看过了0 }+ p& w# b+ n

本帖子中包含更多资源

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

×
发表于 2018-11-28 20:18:36 | 显示全部楼层
arter_2006 发表于 2018-11-28 18:54
& n9 o  L. n3 i打勾了,只是没有solidworks 2012的选项,我从上到下都看过了

) ^# I4 L# M: ?0 e# E因是2018版沒2012是正常的.
  L0 Z, z. R" ^0 `3 E1 r0 d. Z. ?9 S; i# H5 k. E" `/ J. L, M
另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")
/ u2 p) I1 J/ U- s: B  G) z- F8 D+ p; D" {" P' H2 Q6 n
8 b' o# p5 L  k( F; u
& V4 `0 U6 z% y. _1 p* a# C

本帖子中包含更多资源

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

×
 楼主| 发表于 2018-11-29 08:18:06 | 显示全部楼层
本帖最后由 arter_2006 于 2018-11-29 08:49 编辑
6 r0 G6 X/ T+ P) a4 k6 w6 R$ ?3 G# D6 O, C8 O2 ~. R4 N
2018没有侦错按钮,但有“逐语句”按钮,点了后没发现任何问题。& a  u5 H% S$ u
下面是截屏。
; ?$ O9 y( o( i4 \' v

本帖子中包含更多资源

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

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

本帖子中包含更多资源

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

×
 楼主| 发表于 2018-11-29 08:57:38 | 显示全部楼层
对于solidworks 2014,我试了两个宏,一个是昨天的宏,及宏的名字为中文名,如”删除当前配置属性.swp“,但
& c6 e1 e% p& A% P- K7 h6 x; k"CurCFGname = Part.GetConfigurationNames") W- r2 P% A! x/ [
这一句没有改,3 u3 O' X) G5 ^, Q5 x. ]
我进行了逐句检查,没有发现问题。
  x3 Q. O8 b7 D6 z& y后来我把宏的名字改为英文名,但上面的语句改为了3 U3 s: h: K. E- ~3 o
CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '补加零件文件的路径及名称
, @* t* t- o1 C8 {. Q,执行逐句检查,没有再发现问题。7 X$ h* N, t  y$ ^5 V
上面的两个版本在solidworks 2018,及在sw2014里发现问题的宏,都没有发现任何问题。
; D" @* y, o& O' _$ j& r2 R- Z3 v$ E1 x- l$ k2 w$ Q
补充一点,我刚刚发现,这几个宏,无论是在sw2014还是2018里,都能够执行”partitionTM.swp“宏里的内容,但另外两个宏里的内容都不能起到任何作用,即不能删除自定义属性、及所有配置属性里的内容。3 d5 Y: j8 Y$ x$ u$ C2 N5 D5 `+ y

点评

沒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
    % X& d' E: o0 i/ L6 G: g1 a
  2. Dim swApp As SldWorks.SldWorks  n* g% Y& J, y' C3 r8 z6 u4 d& p+ E; O
  3. Dim runMacroError As Long
    ) K. y, @2 X& r* w# @) R

  4. # ?& T: ?3 s7 N  _, s
  5. Sub main()
    - @) E8 Q9 ~7 g  y( [0 o$ z$ ~7 u
  6.    Set swApp = Application.SldWorks
    . E7 p- @5 h2 p5 ]% @" n) L
  7.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除所有配置属性.swp", "配置1", "main", 0, runMacroError
    $ T5 n) S8 z* \
  8.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除自定义属性.swp", "配置1", "main", 0, runMacroError4 F0 t7 \" R7 ~9 }
  9.    swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError1 i1 g. g* \9 v9 D; z
  10. End Sub
    7 |: u! z( [$ p
复制代码
& B8 K9 v  O( }, o. k6 x& k

本帖子中包含更多资源

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

×

评分

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

查看全部评分

 楼主| 发表于 2018-11-30 12:52:08 | 显示全部楼层
DaveChan 发表于 2018-11-30 11:11
$ e, ?/ R% I3 W: ^3 o可使用RunMacro2函数执行外部宏,如下参考

5 c2 d# Z( V0 ^非常感谢您,成功了
" b, q: p0 K/ E" E( ~% o) O4 g
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2025-8-11 17:53 , Processed in 0.077222 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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