请吉人盛世高人进来指点下利用宏抓取文件名中代号、名称填入到文件属性中的问题

NC@jiang@nan

高人吉人盛世，我这两天在试着用宏提取SW文件的文件名中的一部分填入到文件属性栏。在学习使用中，出现一个问题。我公司的文件属性都是填在文件属性中的“配置特定”选项卡上。按论坛上的一些讨论帖中的方法提取出来的代号、名称属性都是只能填写到文件属性对话框中的“自定义”选项卡上。请问下高人，如果想把这两个属性提取到“配置特定”选荐卡上，
) ^1 j7 J$ f" Q" T$ t$ F 1: `! v5 W. K& E/ R1 V; B
dim yfd/ r  O- S! L. E
6 k5 k* j3 c/ C3 @" d. ryfd=part.Extension.CustomPropertyManager("").Set("partno",Left(part.GetTitle,InStr(1,part.GetTitle,"_")-1))
这个语句里应该怎么修改？
也就是说，把属性分别填写到“自定义”栏和“配置特定”栏上时的表达语句有什么不同的地方？
诚心求教。谢谢
$ G% p, a/ U8 @- ^

zhouyj1234

我对配置特定和自定义 属性也分不清
/ N# x, f6 \% h1 i我把配置特定里的 需要方程式表达的属性删除掉 ，就好了

NC@jiang@nan

两三天都没高人指点下，唉

ゞo鈊汰乿

不懂，路过

che-zp

配置特定和自定义属性确实很多人搞不清楚，期待专家指导

lwm1985

直接在零中定义名称代号等

gt.adan

嵌合代碼的方式在2013以後不能再使用了…悶大已經說明過可用其他方式。
提取部份文件名稱寫入「指定配置」的方法如下，做參考了…
: c) F8 t' C% X7 ~7 r# J+ n1 b' W至於要提取前幾碼、後幾碼、分開提取寫入"代號""名稱"等不同的要求…容後討論…
以下為：提取文件名稱前七碼寫入當前配置的"partno"屬性欄
. ?9 Y* T. r7 m

Dim swApp As Object

8 ]/ X; B: n' x* ^! RDim ActivationConfig As String
  u$ y" u& k3 I  M3 W. TDim retval As String
Dim Part As Object
$ k9 }7 l0 D+ j, F% A" X! o7 k: ADim boolstatus As Boolean
3 c8 H5 S* N! d, r; h6 PDim longstatus As Long, longwarnings As Long

Sub main()
/ J6 ]8 S0 V+ Q7 Q- B1 O
& t! U/ k  S" Z3 M) R# HSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Set swConfigMgr = Part.ConfigurationManager
; U+ }& j# r* u3 B1 S+ R$ fSet swConfig = swConfigMgr.ActiveConfiguration
" M$ Z# B! Y: D4 `, V" W5 jActivationConfig = swConfig.Name
5 {1 V8 @% {* ~5 d; [- }
retval = swApp.ActiveDoc.DeleteCustomInfo2(ActivationConfig, "PartNo")
. q" @. b: L5 R9 H- k  k0 o) T% _retval = swApp.ActiveDoc.AddCustomInfo3(ActivationConfig, "PartNo", swCustomInfoText, Left(Part.GetTitle, 7))

- Z' Q3 y  K) z$ ?* W* a: ~2 r8 vEnd Sub

7 M* Q9 e7 U, d6 W" s

NC@jiang@nan

gt.adan 发表于 2014-9-17 15:18 static/image/common/back.gif
嵌合代碼的方式在2013以後不能再使用了…悶大已經說明過可用其他方式。
提取部份文件名稱寫入「指定配置」 ...

( ?+ l/ }  P6 W5 x我试过，在SW2013中，也不是不能用那些内嵌宏代码。在SW2013中本身是不能写入两个触发执行宏代码的方程式了，提示语法错误，但在SW2013以前的版本中做好的模板先把那两个触发执行代码的方程式写进去的话，在SW2013中用这个已经先写入了触发方程式的模板建的文件还是能执行这两个方程式以触发执行内嵌宏代码的，只是在这两个触发方程式前会有个错误提示。但总的来说不影响最后执行结果。
* B: t9 U* t: @8 W; Z请问阿丹大神，你的这个代码是外置宏代码吗？是需要每个零件都运行一次才能达到提取属性的目的吗？现在除了忍受我前面说的那两个方程式报错的方式外，还有没有别的可以用内嵌宏或者别的方法达到文件名更改后会自动相应的提取出文件名一部分出来更新属性栏中原来的属性的办法呢？求教。

gt.adan

7 F( T) a+ ?: E; \0 S
1. 稱呼俺阿丹行了…別再大神大嬸的了…:L
2. 總的來說，樓主這樣做的目的是什麼？BOM 要用的嗎？
% |; Q! @' `0 }* U2 P5 L0 O
宏運行的方式很多，但我不是很懂，如果就您的要求來說，更改文件名稱後屬性會自動應變，
那麼在悶大的內嵌宏代碼中加入「指定配置的名稱」即可。
. R" T/ u$ m- b1 O! u. K9 W  p
, z; P& L; L# c! \  @

1
dim dummy
  i# h% X9 u3 |2 gdummy=part.Extension.CustomPropertyManager("配置名稱").Set("partno",Left(part.GetTitle,6))

$ C4 Q2 S" ^5 i" v; K9 X紅色字體鍵入配置的名稱，例如參考檔案中默認的名稱：default

參考文件： 091714-jiangnan.rar (12.43 KB, 下载次数: 36)

2014-9-17 22:16 上传

点击文件名下载附件
2012版次

NC@jiang@nan

gt.adan 发表于 2014-9-17 22:17 static/image/common/back.gif
1. 稱呼俺阿丹行了…別再大神大嬸的了…
2. 總的來說，樓主這樣做的目的是什麼？BOM 要用的嗎？

4 C8 N" P& M+ H' @+ f* C9 v6 u; d收到。谢谢。明天到公司电脑上试试。

NC@jiang@nan

gt.adan 发表于 2014-9-17 22:17 static/image/common/back.gif
1. 稱呼俺阿丹行了…別再大神大嬸的了…
1 T& S/ d. M! n2 `: j9 \2. 總的來說，樓主這樣做的目的是什麼？BOM 要用的嗎？

忘记回复第二个问题了。我这样做的目的其实就是想在更改了零件名称后，属性会自动变更，以防BOM表填写出错了。其实把这个属性填写到“自定义”里也可以，只是可能我有强迫症吧，因为公司现在有的设备是用配置做的，属性都是填写到配置特定上，所以想看下能不能自动提取这个属性到配置特定里去。不过看了下，如果这个提取要和配置名称挂上勾的话，估计有点悬，因为普通零件默认配置是“默认”，但焊件等这些东西的默认配置是“按加工”“按焊接”等，而且我公司这边焊接件还蛮多的。我先试试提取属性的问题，然后再看看有没有解决配置名称不一样的问题的办法吧。谢了。

gt.adan

上述的嵌入代碼必需「指定」配置名稱…礙於樓主說的每個檔案配置名稱不同…
+ A, c7 `' P$ d7 J將悶大的三行代碼添加以下內容，即可激活當前配置。

1
2 V4 U8 D' e& {dim dummy
9 }% s# j4 J; M2 }. d/ ?& _8 {dummy=part.Extension.CustomPropertyManager(part.ConfigurationManager.ActiveConfiguration.Name).Set("partno",Left(part.GetTitle,6))

NC@jiang@nan

gt.adan 发表于 2014-9-18 14:45 static/image/common/back.gif
7 u4 c. k6 J) r2 A3 V. k& Y( p上述的嵌入代碼必需「指定」配置名稱…礙於樓主說的每個檔案配置名稱不同…
8 l( T7 f- l' R+ g: ]3 W9 m將悶大的三行代碼添加以下內容 ...

上来找焊件件轮廓库，看到您的回复。我马上去试试。谢谢。

NC@jiang@nan

gt.adan 发表于 2014-9-18 14:45 static/image/common/back.gif
* [" N5 P# w- u+ Y- u上述的嵌入代碼必需「指定」配置名稱…礙於樓主說的每個檔案配置名稱不同…
# o* ]& Q4 e5 V將悶大的三行代碼添加以下內容 ...

) x; X0 S* e9 x经测试，零件环境和装配体环境都成功实现抓取零件文件名一部分提取到配置特定选项卡的功能。
. F9 Z* o& n/ b& T" C. g0 f/ L万分感谢。
  l* n% X" w7 I1 B2 S4 q请问，这个API有实用的教材吗？能否请帮我推荐一两本？要从入门开始的，我对API还没什么了解，只能对着现成的代码做些推测性的修改满足一些小的功能需要，想稍深入的了解一下。

gt.adan

我，是徹底的宏盲…要推荐的話…可能請教一下悶老大、梁叔、等其他常分享宏代碼的前輩~~
! K" {+ y5 Q3 j; V. N6 v, k
# @0 \- o  A; D- EBTW，很高興有幫上忙。

NC@jiang@nan

gt.adan 发表于 2014-9-18 23:02 static/image/common/back.gif
我，是徹底的宏盲…要推荐的話…可能請教一下悶老大、梁叔、等其他常分享宏代碼的前輩~~
: |9 n2 m/ c7 ~! `# y0 Y: m
% E" U" a6 ?! [. n: r/ aBT ...

' c% ~' ?2 x* F$ g; z2 o# B, \* i# a3 d不会吧？宏盲把我这搞了好久都没搞定的问题轻松搞定啦？这些宏代码都是从哪里查来的呢？

gt.adan

自帶的 API help  和精通VBA的朋友

Francis

gt.adan 发表于 2014-9-19 09:39 static/image/common/back.gif
5 L( W6 J- x* X/ q( f自帶的 API help  和精通VBA的朋友

丹哥太讚了, 謙遜有禮, 年青有為, 有態度, 有高度.
9 s! B+ O* b' j1 c. r* @9 m
5 P- Y! h* s8 ?* Q% l$ H# R不像某人..........................一把年紀

gt.adan

Francis 发表于 2014-9-19 09:58 static/image/common/back.gif
丹哥太讚了, 謙遜有禮, 年青有為, 有態度, 有高度.

不像某人..........................一把年紀

繼續追隨悶大，努力學習！

NC@jiang@nan

确实。有的人，一把年纪也是白活。
阿丹过于谦虚呀，呵呵

NC@jiang@nan

gt.adan 发表于 2014-9-19 10:15 static/image/common/back.gif
8 D, L7 S3 T! P3 V/ L繼續追隨悶大，努力學習！

' C* }4 }0 \# m4 ^' d) T8 n; P  d确实。有的人，一把年纪也是白活。
8 C& k3 s+ c0 @阿丹过于谦虚呀，呵呵
& z5 O, }" }" ~8 V1 {: {
* N3 }0 I, J) H/ l3 Y  jSW自带的API帮助文件，阴沟里洗版的，看了看，不得其门而入。有时间得去书城看看有没有中文版教程了，精不精通没关系，了解还是应该了解下了。

xtiveco

这个是“配置特定”用，自定义属性没有。@gt.adan   自定义属性宏怎么写？