求助，如何用代码添加全局变量？

steve_suich

如下图片，如何用代码实现添加全局变量：A2="名称"？ 其中”名称”是自定义属性。


' x& H% ^2 p. L% F9 e* t& G
  c6 O1 Z* K/ Q' ]7 Z! n

shentu

首先，方程式只能是数值，这很重要。
- U8 t/ j; f2 t% D+ T2 d/ ?那么，你自定义属性也得整个数值的，就简单了。

shentu

寰宇无人

你的目的是什么呢？自定义属性可以直接用代码Part.CustomInfo2("", "名称")赋值

gddx110

方程式只支持纯数值的自定义属性调用，如果调用自定义属性的文本值直接在属性调用即可
如图：

steve_suich

shentu 发表于 2022-5-10 08:26

我的主要问题是如何用宏代码实现自动添加？

steve_suich

swapi 自带的例子，swEquationMgr.Add3 有错？
例子如下：
Option Explicit
Sub main()
) H: s$ G! S5 _2 H4 @. G* _! e
# k. C: R3 a+ m3 O% T- f, e/ O1 s+ C    Dim SwApp           As SldWorks.SldWorks
" P) n* Q9 o. h3 Q; E, f5 h0 f$ t    Dim Part            As SldWorks.ModelDoc2
$ z7 ?$ M* {9 y8 w8 [  b, `) K    Dim swEquationMgr   As SldWorks.EquationMgr
" s6 c. e7 Y. X+ h1 C  Z    Dim longEquation    As Long
' {* _% H6 [$ T# Y; ]3 [

/ e: c" ~# h1 @- K    Set SwApp = Application.SldWorks
2 L  L# B4 x3 n    Set Part = SwApp.ActiveDoc
' T7 G2 H& G* S8 f
8 b) n6 E+ y! z& I5 r" J  S- }2 |    Set swEquationMgr = Part.GetEquationMgr
* v- Z, V2 |# @. \6 V    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"
3 |. C+ _3 E: S( y4 D0 n

/ [' n5 x& [5 Y4 e0 K4 I& }" s    'Add a global variable assignment at index, 0, to all configurations
) b7 _+ u. _2 h+ Q/ S    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"


9 \8 b( a, L0 E    'Add a dimension equation at index, 1, to all configurations
    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"
$ ^6 `7 c" e: X2 t
5 D/ m' J* Z* t  @0 U
3 u8 K2 f0 l& k' _' ]- l    'Modify dimension equation at index, 1, in all configurations
    longEquation = swEquationMgr.SetEquationAndConfigurationOption(1, """D1@Boss-Extrude1"" = 0.07in", swAllConfiguration, Empty)
    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to modify a dimension equation"


3 D. e( t9 {) D
3 F+ Q- R1 g9 O$ t$ }$ R& mEnd Sub
# J' p: g, R, V$ d9 }+ j" @
- e# J0 H# P$ N( W: z( a
8 K& h" Z# L6 }4 BFunction ErrorMsg(SwApp As Object, Message As String)
    SwApp.SendMsgToUser2 Message, 0, 0
    SwApp.RecordLine "'*** WARNING - General"
    SwApp.RecordLine "'*** " & Message
    SwApp.RecordLine ""
2 d4 N$ s" M+ k6 F1 HEnd Function

steve_suich

自定义属性内嵌宏代码：图号代码：    "Part.Extension.CustomPropertyManager("").Set("drawingN",Left(Part.GetTitle, InStr(Part.GetTitle, " ")-1))
名称代码：     Part.Extension.CustomPropertyManager("").Set("partN",Right(Part.GetTitle, Len(Part.GetTitle)-InStr(Part.GetTitle," ")))
drawingN:
partN:   
6 ~; C: v: Q" g* N) o  n4 \
* K  d. y- H  G/ e
方程式： 目前只能手动
. }) F  X$ I1 Z" Q/ c2 J& wA1="图号代码"
1 r9 q4 o3 [" [  m: b- AA2="名称代码"
, ]* z3 r, R8 f0 m4 v

steve_suich

Dim swApp As Object
+ n( B* r/ ~1 L( USub main()
' q7 I/ ?) a$ i+ d: Q. b7 {* V
2 o0 I* ^2 }" S6 ]6 s  L  T3 iSet swApp = Application.SldWorks
% M0 _- A0 M/ ], Q' j
Set doc = swApp.ActiveDoc
  L1 L9 `$ F4 j7 r& w" O3 Q  For Each an In doc.GetCustomInfoNames   '删除所有自定义属性
& z  h6 E, G0 V) o  x$ R8 Q6 w$ |   doc.DeleteCustomInfo an
  Next
Dim ST, SG As String
9 d- `7 k# l, F0 a      ST = ""
0 @. F3 ?) j& M$ n6 X3 D- F7 p      SG = ""
    If doc.GetType = 1 Then '零件图
$ e( Q. k( k5 j- J8 ^
       ST = "Part.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "图号" + Chr(34) + _
             ",Left" + Chr(40) + "Part.GetTitle, InStr" + Chr(40) + "Part.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)
8 o1 S% v& x, M6 T6 l
       SG = "Part.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名称" + Chr(34) + ",Right" + _
             Chr(40) + "Part.GetTitle, Len" + Chr(40) + "Part.GetTitle" + Chr(41) + "-InStr" + Chr(40) + "Part.GetTitle," + Chr(34) + " " + Chr(34) + Chr(41) + Chr(41) + Chr(41)
% H5 c: ?9 M% R+ Z1 V  H5 W      
( o7 o) T) Y+ S! G: \    ElseIf doc.GetType = 2 Then '装配体
. z; v1 k  h6 b! N      
$ T9 W! E7 F+ p7 t! ?5 z# h       ST = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "图号" + Chr(34) + _
1 g2 A$ j; E! G' v% _# e; {+ l          ",Left" + Chr(40) + "Assembly.GetTitle, InStr" + Chr(40) + "Assembly.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)
* M5 H8 c2 Y# L( `: }
% J4 @3 [" i+ ^/ B- r       SG = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名称" + Chr(34) + ",Right" + _
) Y' {2 M6 j1 u+ w6 m6 A* G. G, i. n: x           Chr(40) + "Assembly.GetTitle, Len" + Chr(40) + "Assembly.GetTitle" + Chr(41) + "-InStr" + Chr(40) + "Assembly.GetTitle," + Chr(34) + " " + Chr(34) + Chr(41) + Chr(41) + Chr(41)
     End If
      doc.AddCustomInfo3 "", "图号", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "名称", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "图号代码", swCustomInfoText, ST
/ b7 p, R6 [. s2 R      doc.AddCustomInfo3 "", "名称代码", swCustomInfoText, SG
$ r2 W; v/ u! d
      Set swEquationMgr = doc.GetEquationMgr
) c( K7 |. C! ]  Z- L      swEquationMgr.Add 0, Chr(34) + "A1" + Chr(34) + "=" + Chr(34) + "名称代码" + Chr(34) '添加方程式---"A1"="名称代码"
      swEquationMgr.Add 0, Chr(34) + "A2" + Chr(34) + "=" + Chr(34) + "图号代码" + Chr(34) '添加方程式---"A2"="图号代码"
, W& y5 {" u6 r
3 N8 W$ N7 B  Y5 c
9 z( A' |% D. R3 s. @& P0 n! pEnd Sub
- k" [+ `1 Z! F1 [2 u# k: ^* t) C