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

steve_suich

如下图片，如何用代码实现添加全局变量：A2="名称"？ 其中”名称”是自定义属性。
1 D* Z" P! h8 k1 G$ T4 A


8 C+ A' G% j$ M0 \; T

shentu

首先，方程式只能是数值，这很重要。
2 X8 R6 i3 g  d- ?那么，你自定义属性也得整个数值的，就简单了。

shentu

寰宇无人

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

gddx110

方程式只支持纯数值的自定义属性调用，如果调用自定义属性的文本值直接在属性调用即可
2 _- j/ a+ j7 @: y* V" [/ c如图：
* j9 D1 a6 k7 S8 W

; m/ C) G4 }  a

steve_suich

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

- v+ v& I0 ~# W" n$ l我的主要问题是如何用宏代码实现自动添加？

steve_suich

swapi 自带的例子，swEquationMgr.Add3 有错？
例子如下：
' i% `5 z, M) \0 N* {* qOption Explicit
9 k* x" X% U: ESub main()
0 M# h" O& l1 I. r- Z/ A( }
    Dim SwApp           As SldWorks.SldWorks
$ q3 F7 i$ Y8 z! v* u$ w    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
5 y$ n: v: a" S  Z    Dim longEquation    As Long


    Set SwApp = Application.SldWorks
    Set Part = SwApp.ActiveDoc
5 F4 g9 D" q& H  g
    Set swEquationMgr = Part.GetEquationMgr
    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"


& H, p' d% v0 g' O    'Add a global variable assignment at index, 0, to all configurations
) k, a6 w- [2 r! \2 L  p- L    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"
0 P( z' _+ _. t6 d: d! _+ f1 @5 B; D

+ Z+ h3 L3 A# s1 P; ?    '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"


    'Modify dimension equation at index, 1, in all configurations
/ z! a, Z) d, p; G    longEquation = swEquationMgr.SetEquationAndConfigurationOption(1, """D1@Boss-Extrude1"" = 0.07in", swAllConfiguration, Empty)
9 h9 C- G* m- ^% V3 r3 ~    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to modify a dimension equation"
+ M6 `% B% j$ `7 S4 L$ i+ ^
+ r% Q7 P) b" p

End Sub
: e. {+ j& X7 `1 @( g* k1 o
& W% ]) v1 \1 J& [* U0 P' a9 O
) Y' {( Y1 I1 a6 uFunction ErrorMsg(SwApp As Object, Message As String)
    SwApp.SendMsgToUser2 Message, 0, 0
, G+ ]0 Z* X6 z1 o! C- H. I5 B    SwApp.RecordLine "'*** WARNING - General"
    SwApp.RecordLine "'*** " & Message
    SwApp.RecordLine ""
End Function

! ]3 T+ k" d0 J' {0 D

steve_suich

自定义属性内嵌宏代码：图号代码：    "Part.Extension.CustomPropertyManager("").Set("drawingN",Left(Part.GetTitle, InStr(Part.GetTitle, " ")-1))
9 M, H5 f8 U7 N0 y( I, X1 M5 r% ]名称代码：     Part.Extension.CustomPropertyManager("").Set("partN",Right(Part.GetTitle, Len(Part.GetTitle)-InStr(Part.GetTitle," ")))
drawingN:
. }& ?2 [/ I3 {2 J: a7 Y% v' ~$ epartN:   
. Q2 I6 c  n3 A/ p2 f

方程式： 目前只能手动
) j7 p1 c4 X7 f% L3 mA1="图号代码"
1 N9 ]+ O( d" k! IA2="名称代码"

steve_suich

Dim swApp As Object
* c6 M/ J- Y% y! ~2 ~1 F& P4 l8 oSub main()

Set swApp = Application.SldWorks

Set doc = swApp.ActiveDoc
. f; ?( K. a- A0 o1 l: T  For Each an In doc.GetCustomInfoNames   '删除所有自定义属性
   doc.DeleteCustomInfo an
  Next
Dim ST, SG As String
      ST = ""
/ J+ M4 }: i; W      SG = ""
* j+ o4 I* o8 u% ~    If doc.GetType = 1 Then '零件图
; I! q# k- q+ a
8 M8 H) q  G: s       ST = "Part.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "图号" + Chr(34) + _
6 [* [2 s. c4 L# y: |             ",Left" + Chr(40) + "Part.GetTitle, InStr" + Chr(40) + "Part.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)

       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)
      
, x/ v, Z9 O! i# C+ U7 r    ElseIf doc.GetType = 2 Then '装配体
# q$ X$ J* M% X6 f% ]  r' O4 Z      
       ST = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "图号" + Chr(34) + _
          ",Left" + Chr(40) + "Assembly.GetTitle, InStr" + Chr(40) + "Assembly.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)
8 }% x8 z/ J9 g5 A
       SG = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名称" + Chr(34) + ",Right" + _
# N' h, e, q# w6 d' s           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
) j5 }0 A$ }/ h      doc.AddCustomInfo3 "", "图号", swCustomInfoText, ""
; \7 z, W$ y0 Z: J2 J      doc.AddCustomInfo3 "", "名称", swCustomInfoText, ""
; h$ v+ i$ D' {4 Y( W; t      doc.AddCustomInfo3 "", "图号代码", swCustomInfoText, ST
      doc.AddCustomInfo3 "", "名称代码", swCustomInfoText, SG

      Set swEquationMgr = doc.GetEquationMgr
      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"="图号代码"
: Q2 ?2 _5 p3 u
2 Z7 b3 I0 w. j  t3 @/ T
2 i3 Z4 _0 \. C3 uEnd Sub