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

steve_suich

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

3 M1 P- d) w5 I9 Y+ [

shentu

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

shentu

寰宇无人

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

gddx110

方程式只支持纯数值的自定义属性调用，如果调用自定义属性的文本值直接在属性调用即可
7 U/ t/ Y9 r8 A如图：
0 Y7 l. S3 h: t# Z% Z7 S/ F- J! P

: s. O8 }8 q( M3 _

steve_suich

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

我的主要问题是如何用宏代码实现自动添加？
' ]( P( b  W9 _; [2 s6 I7 j

steve_suich

swapi 自带的例子，swEquationMgr.Add3 有错？
例子如下：
' H" ]% P4 `- ^8 k0 COption Explicit
) K( j6 |% Y" ^: T6 U# BSub main()

) u" A2 s" ~3 j5 i1 K, O* h    Dim SwApp           As SldWorks.SldWorks
) Z8 L; e, m- y0 j    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
    Dim longEquation    As Long


    Set SwApp = Application.SldWorks
% e$ q. }# y$ ]% Q$ e1 X9 m    Set Part = SwApp.ActiveDoc
& O8 {' g) E+ M  P* {& {! ?
    Set swEquationMgr = Part.GetEquationMgr
    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"


% N* |- X9 c) F7 }    'Add a global variable assignment at index, 0, to all configurations
    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"


    'Add a dimension equation at index, 1, to all configurations
" X4 Y& N4 J4 L( T3 M$ g- M    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
7 N2 n) b4 `& a; M    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"

. j& r. {4 P; e# ]6 l9 X
1 b: G5 y: @; @! K    '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"

; _" G! L" T/ A9 j

! Z9 U8 u+ k/ e1 f3 j( P8 r1 VEnd Sub

  ]- p0 S& D) V+ O; ]# r0 J. x
Function ErrorMsg(SwApp As Object, Message As String)
2 c" @  m) q! @% ?- ]3 n+ @- N% U    SwApp.SendMsgToUser2 Message, 0, 0
9 z; H, r) }+ Z  Q! t; N    SwApp.RecordLine "'*** WARNING - General"
9 T( c: Y* o2 a    SwApp.RecordLine "'*** " & Message
    SwApp.RecordLine ""
End 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," ")))
. `" u# C3 j' e- }- e$ pdrawingN:
- w' L! N* w3 ~4 fpartN:   
' l( d3 [* z( |4 h+ ]1 V" c
- E" G- \- Z& Z2 `) l( P9 h! n
方程式： 目前只能手动
9 Y1 r$ Q. N4 L0 U4 aA1="图号代码"
- Z" U+ g; ~* UA2="名称代码"
% E' ~+ j  {. d0 H. ], e

steve_suich

Dim swApp As Object
Sub main()
6 W' {/ I, q# p
Set swApp = Application.SldWorks
7 a7 F1 h! V6 A0 X6 v  Q/ z( y
Set doc = swApp.ActiveDoc
( }+ s7 l- T' n& Y1 x: s: @  For Each an In doc.GetCustomInfoNames   '删除所有自定义属性
   doc.DeleteCustomInfo an
, r7 j5 ~9 I3 P" p7 |/ p  Next
Dim ST, SG As String
      ST = ""
# |9 v1 ^0 f: o, q: Y9 b" H3 P      SG = ""
    If doc.GetType = 1 Then '零件图
: c0 x$ G+ E" j+ x5 p. n
  Y1 T$ f7 u- I  n       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)
/ E: L7 t- h9 W! h: e- v" i  ?$ k
8 D3 q8 U2 w4 X. e       SG = "Part.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名称" + Chr(34) + ",Right" + _
: h" a, H. {. s5 `0 [8 s             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)
: k9 e, q: R- k3 ]2 v( h$ Z      
$ O) D. ~7 u5 n& C2 t( S: u8 J& C: i    ElseIf doc.GetType = 2 Then '装配体
' E6 O2 E8 ?3 M$ O- T5 e      
       ST = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "图号" + Chr(34) + _
1 h; `6 F4 k% r: x          ",Left" + Chr(40) + "Assembly.GetTitle, InStr" + Chr(40) + "Assembly.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)

7 |% h: r7 J8 u5 T: k+ G       SG = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名称" + Chr(34) + ",Right" + _
           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
/ }$ Q$ f# g; V" B, [      doc.AddCustomInfo3 "", "图号", swCustomInfoText, ""
4 v8 y3 a* D7 i6 Y- l, Y7 o/ I: o      doc.AddCustomInfo3 "", "名称", swCustomInfoText, ""
1 j5 S$ b9 |  i; ^6 L& |5 |9 U, ]9 Q      doc.AddCustomInfo3 "", "图号代码", swCustomInfoText, ST
6 V& R" v: N' }2 t% }) o7 y9 _( |" j      doc.AddCustomInfo3 "", "名称代码", swCustomInfoText, SG
: V/ H) P( g, c; q
! D8 V/ v7 f9 E* W, ]# h      Set swEquationMgr = doc.GetEquationMgr
      swEquationMgr.Add 0, Chr(34) + "A1" + Chr(34) + "=" + Chr(34) + "名称代码" + Chr(34) '添加方程式---"A1"="名称代码"
9 B  O- R/ |) E( ~' I2 w4 X      swEquationMgr.Add 0, Chr(34) + "A2" + Chr(34) + "=" + Chr(34) + "图号代码" + Chr(34) '添加方程式---"A2"="图号代码"


End Sub