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

steve_suich

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

6 z3 @9 U8 N0 P+ _, _. S6 i: o

/ x: ]  a2 Y& ], ?# W

shentu

首先，方程式只能是数值，这很重要。
0 i# a) |/ `, e; R7 q  Z那么，你自定义属性也得整个数值的，就简单了。

shentu

& w3 [' f6 `. k$ K

寰宇无人

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

gddx110

方程式只支持纯数值的自定义属性调用，如果调用自定义属性的文本值直接在属性调用即可
0 M9 `/ s* W  j' y% Z1 Y8 D如图：

( T) \0 j1 F& ^) }, M8 A
  u# A6 E; {$ A7 S# \9 k  ^7 b

steve_suich

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

$ ]9 v) r- K7 f. ?; i+ y0 h0 u9 H7 q我的主要问题是如何用宏代码实现自动添加？
/ U  F/ |# W5 j7 A0 C, ^

steve_suich

swapi 自带的例子，swEquationMgr.Add3 有错？
例子如下：
Option Explicit
Sub main()

    Dim SwApp           As SldWorks.SldWorks
7 C# e3 D+ i) B4 A) I# e/ i4 O. J( ~4 e    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
    Dim longEquation    As Long


    Set SwApp = Application.SldWorks
0 g) i% M" d) y7 u4 g    Set Part = SwApp.ActiveDoc
" ?; I2 v1 p1 v9 y! o
    Set swEquationMgr = Part.GetEquationMgr
3 j4 q4 R  S) I6 P1 J    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"

) c0 Y5 e1 B4 E1 c0 N6 ~+ _6 H
! F+ o, J+ t. k* Q+ F    'Add a global variable assignment at index, 0, to all configurations
    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
5 ^9 Y* R1 K1 o0 \: E    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"
% Z% B) M  y& g- @) m4 B( \3 j9 v# L

    'Add a dimension equation at index, 1, to all configurations
, _1 L' e' l! i1 M3 K    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"


1 S: x' M0 Q% h) z& b    '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"

' O' \2 N$ w+ [: x- X

& i7 J& s+ y' B+ _End Sub


! U& q0 M+ j8 k  m+ z" ^Function ErrorMsg(SwApp As Object, Message As String)
    SwApp.SendMsgToUser2 Message, 0, 0
    SwApp.RecordLine "'*** WARNING - General"
7 ^* T4 @6 Q; {" I    SwApp.RecordLine "'*** " & Message
% W' {' u" f- _6 i* J    SwApp.RecordLine ""
End Function

, O3 T0 c6 b. z9 \' `  |( h; }; E

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," ")))
- }- j  n7 W8 ~drawingN:
partN:   
. o# o  J3 ]6 V, M3 J% ^

方程式： 目前只能手动
4 D5 R8 i) S6 \A1="图号代码"
" ]- q( s- y6 l) J- ~2 wA2="名称代码"
  f0 A+ f. S6 u$ h. U

steve_suich

Dim swApp As Object
Sub main()

% K. @; R" T/ q: k% B. ^4 ?, xSet swApp = Application.SldWorks
4 A, U% I0 Y  y( w  F7 L' |
4 l1 m2 E& k! f2 Z$ }Set doc = swApp.ActiveDoc
3 N+ p* o4 J- G3 D6 ?0 d  For Each an In doc.GetCustomInfoNames   '删除所有自定义属性
2 S+ J6 ?2 E: M; m( R. _   doc.DeleteCustomInfo an
) D8 E$ c0 K( p, U: X) b# d  Next
2 L. M2 P/ e1 c5 E9 X  }7 G. ^Dim ST, SG As String
- L; |' o" a6 z( d- }, ^) |0 {      ST = ""
$ e6 j" c3 |3 W6 y. O' n      SG = ""
: o  y6 ^! p; p% v0 q* S    If doc.GetType = 1 Then '零件图

       ST = "Part.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "图号" + Chr(34) + _
' q/ G4 P$ ~/ ~6 i0 F$ E$ R5 Y( ?" o             ",Left" + Chr(40) + "Part.GetTitle, InStr" + Chr(40) + "Part.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)
9 B2 T0 `" X% e8 x1 ~
2 S+ Q6 X2 {/ z. Y9 o       SG = "Part.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名称" + Chr(34) + ",Right" + _
' N& t) ]2 z5 M7 a2 @/ p8 N             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)
) D% t+ Z& p9 {      
( v2 e0 U/ N& q" {' U/ {: C    ElseIf doc.GetType = 2 Then '装配体
      
       ST = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "图号" + Chr(34) + _
& X- I# Y* `( s, q          ",Left" + Chr(40) + "Assembly.GetTitle, InStr" + Chr(40) + "Assembly.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)

3 h( B: p  {- H5 s       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)
0 t# o" i, `' N: o$ w/ K6 m' }* Y( s" @     End If
      doc.AddCustomInfo3 "", "图号", swCustomInfoText, ""
8 h6 n% f4 _5 v" y1 o, g      doc.AddCustomInfo3 "", "名称", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "图号代码", swCustomInfoText, ST
- ]+ r0 T8 ~0 z# X+ }3 e      doc.AddCustomInfo3 "", "名称代码", swCustomInfoText, SG
% A4 Q9 E  @7 g% s: ~5 \( r
      Set swEquationMgr = doc.GetEquationMgr
% m  p' x1 o6 K4 a5 o# Z1 T3 n' P      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"="图号代码"
! [; _& {+ t% V- F+ P

End Sub
. Q$ q, |! }( c" W9 W