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

steve_suich

如下图片，如何用代码实现添加全局变量：A2="名称"？ 其中”名称”是自定义属性。
" X; F; F, s- A/ |
( ]3 `+ D# f( }/ \$ u* B0 Z8 \% ?
/ [+ A* v0 B, y+ s5 G
/ ]- A; ]2 c' w' J# c' q

shentu

首先，方程式只能是数值，这很重要。
$ j( f7 }% |  _  _( d+ c  l+ N那么，你自定义属性也得整个数值的，就简单了。

shentu

4 R7 Z6 o6 P! M, r  q: L

寰宇无人

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

gddx110

方程式只支持纯数值的自定义属性调用，如果调用自定义属性的文本值直接在属性调用即可
0 e, p$ U+ w6 V3 F2 h9 T( ^如图：
: U( \1 @7 a1 c" j0 q! [; y
2 g4 X& h. v9 I3 u0 a1 I

steve_suich

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

我的主要问题是如何用宏代码实现自动添加？
: W; H% T# w5 A0 G3 l3 a  W

steve_suich

swapi 自带的例子，swEquationMgr.Add3 有错？
例子如下：
. w% ^  ~- i0 g: R# V5 c# j( yOption Explicit
Sub main()
: z- ~+ W' r) {& u4 D
; Y+ g6 f2 p9 J1 ~6 y    Dim SwApp           As SldWorks.SldWorks
    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
    Dim longEquation    As Long
. y" p7 w% j. R0 q4 s

    Set SwApp = Application.SldWorks
  q! [# F5 O+ M. O) X    Set Part = SwApp.ActiveDoc

    Set swEquationMgr = Part.GetEquationMgr
    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"
7 F  q, p2 N0 I% J) i8 w2 J
, ?# t# R3 L+ U- F) f4 u
    'Add a global variable assignment at index, 0, to all configurations
    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
8 `  a% n" _1 ], i/ [    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"

: L/ y* m! P, m8 n- e3 d0 I+ Q
    'Add a dimension equation at index, 1, to all configurations
2 n/ v2 q8 D' J    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"

8 _+ R1 ^2 t  N7 ?
    'Modify dimension equation at index, 1, in all configurations
& x& b* w9 {9 W7 G- }& T    longEquation = swEquationMgr.SetEquationAndConfigurationOption(1, """D1@Boss-Extrude1"" = 0.07in", swAllConfiguration, Empty)
    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to modify a dimension equation"
7 n9 ^9 b3 l2 m# C" T0 p
) w# B+ W# ]2 @% e" g0 X
, q1 K) V& s! l9 W
/ l( v' r& I- \1 u6 _3 DEnd Sub

, A! t! v" ^! ~1 \1 k* l4 A
Function ErrorMsg(SwApp As Object, Message As String)
    SwApp.SendMsgToUser2 Message, 0, 0
    SwApp.RecordLine "'*** WARNING - General"
! Z, Y  P- K; l6 c$ z1 ~    SwApp.RecordLine "'*** " & Message
    SwApp.RecordLine ""
" H6 O) [4 T5 M$ f$ QEnd Function

steve_suich

自定义属性内嵌宏代码：图号代码：    "Part.Extension.CustomPropertyManager("").Set("drawingN",Left(Part.GetTitle, InStr(Part.GetTitle, " ")-1))
# ~. S! i2 B  `- H: b名称代码：     Part.Extension.CustomPropertyManager("").Set("partN",Right(Part.GetTitle, Len(Part.GetTitle)-InStr(Part.GetTitle," ")))
drawingN:
  r/ x" Y: `+ U# WpartN:   
* j7 D# N: m$ O+ {+ ]5 K4 {
! T( b' Z6 e, o8 W
& G9 A0 G" [, F, _$ c: M* w$ {方程式： 目前只能手动
5 t+ ?$ G6 i9 ?A1="图号代码"
& ^8 a( S& l5 \/ c9 OA2="名称代码"

steve_suich

Dim swApp As Object
Sub main()

$ W. k* `' t& ?9 N7 FSet swApp = Application.SldWorks

& M" X/ g% A  k; F3 f, _9 wSet doc = swApp.ActiveDoc
  For Each an In doc.GetCustomInfoNames   '删除所有自定义属性
   doc.DeleteCustomInfo an
3 P1 Y: n9 D2 x. y8 Q9 Q  Next
! u" I/ ~" `$ @# s8 J: J! aDim ST, SG As String
- O9 Z: ^4 _* V1 u+ t      ST = ""
      SG = ""
. r. W% u' b' y8 X$ q# y    If doc.GetType = 1 Then '零件图
# Q2 G1 {2 U1 K: b0 C0 x, u' K) X2 L
       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)

       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)
( C( ~; w: z5 J      
3 S. {% Z2 I/ u; J7 r8 I    ElseIf doc.GetType = 2 Then '装配体
4 G4 D7 ]" D/ F/ x0 X      
9 c& d3 T! |" }3 q. e% h       ST = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "图号" + Chr(34) + _
' b+ ~; a( W. u- T          ",Left" + Chr(40) + "Assembly.GetTitle, InStr" + Chr(40) + "Assembly.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)
; L$ |% h( b. L1 A& H. S5 ~. d& t
       SG = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名称" + Chr(34) + ",Right" + _
/ m7 _1 u! g1 K( e5 t  ?           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)
/ C3 V* h; \: q3 ?, d: p     End If
" v9 ?1 u6 h# S+ X      doc.AddCustomInfo3 "", "图号", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "名称", swCustomInfoText, ""
; b4 T; L- `1 [( R7 ^- s" J5 Y      doc.AddCustomInfo3 "", "图号代码", swCustomInfoText, ST
      doc.AddCustomInfo3 "", "名称代码", swCustomInfoText, SG
, y0 p2 W2 Y+ e  @& R4 d3 ^
" D; X8 i- q" V$ O  }$ \      Set swEquationMgr = doc.GetEquationMgr
$ W' v5 B' }; O& [1 _* e      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"="图号代码"
6 N6 `/ y0 [) \' H/ \8 Y+ }
, _1 a0 Z1 V: i" _- h
: c/ ^! L3 j9 p* h- i0 y( aEnd Sub
& S6 _, f: p  J% [3 A( z