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

steve_suich

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

+ c9 J6 `6 \1 t) K4 {( E6 q$ K- O
3 e6 x! K/ j2 c1 J

shentu

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

shentu

寰宇无人

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

gddx110

方程式只支持纯数值的自定义属性调用，如果调用自定义属性的文本值直接在属性调用即可
如图：
/ d2 I  y- @4 e) }

; O9 B* B9 y  D. m* R- j

steve_suich

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

1 ^% u: W) a' D( m6 \* Y9 P" @我的主要问题是如何用宏代码实现自动添加？
# Q2 [; h5 ]2 p; W7 |/ {5 `1 d

steve_suich

swapi 自带的例子，swEquationMgr.Add3 有错？
例子如下：
# w0 `4 C+ u& p; g" ?1 j/ mOption Explicit
Sub main()
& |  E& `, P- Z  l* x% b" T
    Dim SwApp           As SldWorks.SldWorks
    Dim Part            As SldWorks.ModelDoc2
( N4 m# h0 l9 J* Z; \+ H5 L6 M+ _    Dim swEquationMgr   As SldWorks.EquationMgr
    Dim longEquation    As Long
) p" j) X& i7 q5 H* B: @

    Set SwApp = Application.SldWorks
# u+ w, P' E4 s0 [( p    Set Part = SwApp.ActiveDoc
/ X- O" S2 u( l$ _2 O8 w9 y: b9 I
0 t6 o+ L: I" z- E4 {    Set swEquationMgr = Part.GetEquationMgr
    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"
0 {1 L4 g6 d# x! f

" o7 h8 J' F' d1 R5 H. c    'Add a global variable assignment at index, 0, to all configurations
9 E) U: C( k- B: {    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
4 Y! W# J( |( R8 i" K    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"

/ g* U5 `7 {% `3 K
* l; }2 z* I$ c: u) C6 y    'Add a dimension equation at index, 1, to all configurations
9 \1 f8 T2 m# f    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
* m' v* l# Z; |# [& G' _' e$ s    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"

" {$ \3 P2 b2 _# Z1 `8 s- m2 Q
- \: _3 x% {9 p; K9 b, `    'Modify dimension equation at index, 1, in all configurations
6 p! j! }. I/ x4 v5 a: W    longEquation = swEquationMgr.SetEquationAndConfigurationOption(1, """D1@Boss-Extrude1"" = 0.07in", swAllConfiguration, Empty)
$ i* `& J* q$ G- h    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to modify a dimension equation"
% ~& }) b4 _' P1 o


End Sub
0 W5 E  R' h0 l

  I& E2 U/ S$ Q( r3 s- XFunction ErrorMsg(SwApp As Object, Message As String)
    SwApp.SendMsgToUser2 Message, 0, 0
    SwApp.RecordLine "'*** WARNING - General"
    SwApp.RecordLine "'*** " & Message
    SwApp.RecordLine ""
: Q$ d  `0 t1 |- @9 ?' Q  K. Z$ [End Function
6 L, l" e* F  U0 L' W2 u

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:
8 P: q0 n* m3 K. ~partN:   
1 W& r1 k8 Y9 K
: ?7 A* h, g& o; y9 _0 f
方程式： 目前只能手动
" X; _" j4 K8 b. K! _( _( yA1="图号代码"
A2="名称代码"
* F' H3 z* J% v8 @6 m/ m

steve_suich

Dim swApp As Object
Sub main()

2 i2 h" T* u+ B# ]7 T7 TSet swApp = Application.SldWorks

Set doc = swApp.ActiveDoc
  For Each an In doc.GetCustomInfoNames   '删除所有自定义属性
   doc.DeleteCustomInfo an
) v9 C- k$ n. a! }  Next
- [4 Q+ ?$ ]# y5 l8 ]Dim ST, SG As String
      ST = ""
7 A" i- P. ~0 I% x' \1 ^      SG = ""
5 I! a5 B7 U- z6 b- H    If doc.GetType = 1 Then '零件图
, D% x3 v! B& B2 C3 ^9 o1 k# Q/ X
: p% Z, M$ {9 s( M  G( C       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" + _
8 m: m$ c# h9 W- O             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)
      
    ElseIf doc.GetType = 2 Then '装配体
      
       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)
$ Z( d( j, _# ]* y2 t
       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)
) f6 n, z9 [5 j( |& }! r     End If
+ d; I" h* m1 I# D. w1 U# O      doc.AddCustomInfo3 "", "图号", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "名称", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "图号代码", swCustomInfoText, ST
      doc.AddCustomInfo3 "", "名称代码", swCustomInfoText, SG

" p  J& M0 v$ h  W2 W      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"="图号代码"
. A/ L( ~. y  ~9 G
% p% l, H. V! q: Y$ E6 Y+ {
End Sub