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

steve_suich

如下图片，如何用代码实现添加全局变量：A2="名称"？ 其中”名称”是自定义属性。
8 t& [! r8 O5 a8 j' [6 `! h


3 G. o! ]/ V4 U, ]: u1 H: J* i

shentu

首先，方程式只能是数值，这很重要。
) O* B; B/ W, b3 k& O. g那么，你自定义属性也得整个数值的，就简单了。

shentu

寰宇无人

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

gddx110

方程式只支持纯数值的自定义属性调用，如果调用自定义属性的文本值直接在属性调用即可
! P* @. V" {0 m1 O. m8 E* b9 h* L( f如图：
8 Q/ K# ~: A. b* i" ?7 ?

steve_suich

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

我的主要问题是如何用宏代码实现自动添加？
! a, x  X% ~6 a  _' R* X& L

steve_suich

swapi 自带的例子，swEquationMgr.Add3 有错？
6 r) j8 S3 f- N" @# Z; \例子如下：
# Z9 M' a" A, {* D. MOption Explicit
2 g% R7 N8 n! DSub main()
7 d1 b; R. Q. C- \" K5 Q! m
4 C: D/ {+ c3 U. k7 x( N    Dim SwApp           As SldWorks.SldWorks
    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
    Dim longEquation    As Long
- |4 O% M; c" z

    Set SwApp = Application.SldWorks
    Set Part = SwApp.ActiveDoc
8 D" _  a+ s/ m/ |# X
' f) g- z8 i- {" l/ b$ P+ x" B    Set swEquationMgr = Part.GetEquationMgr
3 ~" b. F& \8 T3 w# l    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"
( f7 Z+ I: R3 U3 g) b
+ C4 D4 o9 i: X* M/ F
- K" p) z- ?6 g( ]% s% A2 h    'Add a global variable assignment at index, 0, to all configurations
    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
2 \2 f/ c. e& m3 S6 j) E" z    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"
$ f: h. l$ o" R6 O
$ K8 T: K0 ~& ]9 h/ ^
    'Add a dimension equation at index, 1, to all configurations
- I9 A1 b, E6 k+ |2 a/ j2 T    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"
% e. Q/ N9 C0 Z) \+ s, w6 X. m0 Q% t
) C5 Z3 o8 u/ N+ s, b4 a; K+ _
* C) Y( D0 b' H( {2 M0 t5 F* u# p    'Modify dimension equation at index, 1, in all configurations
. R6 [7 A0 p( W0 T    longEquation = swEquationMgr.SetEquationAndConfigurationOption(1, """D1@Boss-Extrude1"" = 0.07in", swAllConfiguration, Empty)
    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to modify a dimension equation"

( p) n9 a, y( N' A8 @% T

End Sub
0 L. N, x% w, B9 ]/ c! D2 `3 u

4 g; G0 ?$ E5 j1 g1 `- }' WFunction ErrorMsg(SwApp As Object, Message As String)
    SwApp.SendMsgToUser2 Message, 0, 0
3 w/ c, o6 r* Z* N  G. G7 O4 C    SwApp.RecordLine "'*** WARNING - General"
7 f3 E/ ?7 `; i8 f; Y& O& y    SwApp.RecordLine "'*** " & Message
    SwApp.RecordLine ""
9 W1 d- G4 a" \3 ~8 z; L. FEnd Function
3 F' M( B$ ?/ @6 V: a; G

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:
# m  T( v) F9 Y6 T6 u! b& `# @partN:   

# q. M: m2 c( r1 ?
7 ~0 B# ~% d- X& r方程式： 目前只能手动
: G* [/ M6 g1 \' l. N- E; D$ T+ HA1="图号代码"
% a. I; i7 Z' O' XA2="名称代码"
0 Z" l( f8 P: C6 I3 o

steve_suich

Dim swApp As Object
Sub main()

" A) U0 ]8 G4 k" C5 BSet swApp = Application.SldWorks

: v0 `$ S! U' jSet doc = swApp.ActiveDoc
" h3 u( ?1 W- x1 c9 }: a( Z  For Each an In doc.GetCustomInfoNames   '删除所有自定义属性
6 }8 N" \2 x' q4 e8 J* t9 i   doc.DeleteCustomInfo an
  Next
1 S6 ]# H9 h9 S5 `: z! WDim ST, SG As String
      ST = ""
. D: l' @. D" [8 y* H, u1 f/ k+ ?2 e2 m      SG = ""
8 s/ N* u6 l* s& n. @, N$ ^2 H    If doc.GetType = 1 Then '零件图
8 O) k5 x" d  ^( G
2 Z$ h6 O, @8 u$ q       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)
0 i! R# t' B3 r$ u3 u0 L
, C5 T1 J1 S8 L1 x       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)
8 T; O1 o+ `& ]      
) [* J0 ]( ]8 u2 |/ E9 N& e% G    ElseIf doc.GetType = 2 Then '装配体
4 S- E+ Y- a; K+ V; R      
; b: l+ S+ m) n7 [: k       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)
$ I. m! ]+ E7 r% j
* m8 D3 `3 f; i) I, O7 ~# Q       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)
/ l$ U- k3 W+ n- O3 x     End If
      doc.AddCustomInfo3 "", "图号", swCustomInfoText, ""
2 Z) o' r5 ^* d# r/ e- M1 h8 \      doc.AddCustomInfo3 "", "名称", swCustomInfoText, ""
* A0 s3 N% G, v      doc.AddCustomInfo3 "", "图号代码", swCustomInfoText, ST
      doc.AddCustomInfo3 "", "名称代码", swCustomInfoText, SG
- r% u9 D( _) i1 }
1 ?$ d" n' s+ z6 Y2 N      Set swEquationMgr = doc.GetEquationMgr
      swEquationMgr.Add 0, Chr(34) + "A1" + Chr(34) + "=" + Chr(34) + "名称代码" + Chr(34) '添加方程式---"A1"="名称代码"
! [6 U( [- V& P. l! @) o4 v/ E" S; w4 _      swEquationMgr.Add 0, Chr(34) + "A2" + Chr(34) + "=" + Chr(34) + "图号代码" + Chr(34) '添加方程式---"A2"="图号代码"
! }) k0 x: z0 k& R" ], t. U

End Sub