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

steve_suich

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


& b8 L% {+ r: d/ b
. v6 i8 ?% \$ y6 n" h4 g

shentu

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

shentu

: A# i# U) Z+ r$ j; o

寰宇无人

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

gddx110

方程式只支持纯数值的自定义属性调用，如果调用自定义属性的文本值直接在属性调用即可
如图：

9 w1 \- e* O- \  P. l
0 ]" ^! q8 r# l7 ~

steve_suich

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

% l, o( B& _1 V* B" A我的主要问题是如何用宏代码实现自动添加？

steve_suich

swapi 自带的例子，swEquationMgr.Add3 有错？
例子如下：
, r) ~; l. h0 j- x0 l  w$ @  OOption Explicit
Sub main()

    Dim SwApp           As SldWorks.SldWorks
    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
' p3 Q4 S3 S! G& G4 h# o" B9 `    Dim longEquation    As Long


    Set SwApp = Application.SldWorks
4 Q. ]2 ^( k8 O6 `    Set Part = SwApp.ActiveDoc

    Set swEquationMgr = Part.GetEquationMgr
    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"
& W. A; L! ?3 `( K

    'Add a global variable assignment at index, 0, to all configurations
    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
4 J& s8 R, g% }' K7 w( w$ j    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"


    'Add a dimension equation at index, 1, to all configurations
$ k7 U6 Z: X" y4 J; B    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"
( j3 L; L' V) |' o) q# I
1 D& g# {/ F; d% K& T& f# w
6 E4 t2 r: L1 ?" M' T. l    'Modify dimension equation at index, 1, in all configurations
( e& |3 F/ i8 k/ [* q    longEquation = swEquationMgr.SetEquationAndConfigurationOption(1, """D1@Boss-Extrude1"" = 0.07in", swAllConfiguration, Empty)
    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to modify a dimension equation"
! ]* ^* ?) }( R( c1 g, h
; }6 W4 C) V8 G7 }, R
! Q% \) Q% w6 h( g1 W! |. @! x
End Sub

" Z% [* p3 p& t0 o# q
0 a  T/ S& B: G9 A0 ~/ NFunction ErrorMsg(SwApp As Object, Message As String)
. D( }& ^8 C/ q" _2 B, z& N0 c/ M    SwApp.SendMsgToUser2 Message, 0, 0
) {' L- r7 R' `1 ^/ {  ~; H, l8 [7 n    SwApp.RecordLine "'*** WARNING - General"
7 j  ^1 d$ m! a; E    SwApp.RecordLine "'*** " & Message
8 p8 z8 U8 D+ r: O( [/ ]    SwApp.RecordLine ""
End Function
7 B: X; I+ J8 I( v# a& g# M5 e
, c2 a! ~' O: x) T

steve_suich

自定义属性内嵌宏代码：图号代码：    "Part.Extension.CustomPropertyManager("").Set("drawingN",Left(Part.GetTitle, InStr(Part.GetTitle, " ")-1))
% P0 z$ g4 e# S$ Z6 g名称代码：     Part.Extension.CustomPropertyManager("").Set("partN",Right(Part.GetTitle, Len(Part.GetTitle)-InStr(Part.GetTitle," ")))
, f9 `% B& F% ]' @3 edrawingN:
, M/ ^5 x" f9 g4 A  upartN:   
% K* L. O9 U$ ?* W- }8 l
" q" W" [1 ]5 A4 N7 _% D, D/ q
方程式： 目前只能手动
A1="图号代码"
# F9 p# t9 b0 d% [8 l  NA2="名称代码"
% A' x) U5 E0 s, d2 \% P

steve_suich

Dim swApp As Object
Sub main()
: S# ]# y. P  K  B  J: j: k
Set swApp = Application.SldWorks
- f6 F# d% Z, V: S; Z9 X  u
Set doc = swApp.ActiveDoc
  For Each an In doc.GetCustomInfoNames   '删除所有自定义属性
   doc.DeleteCustomInfo an
+ X) L/ @/ R5 ^+ G9 q  Next
2 o9 i2 _* `4 Y  ^" }# iDim ST, SG As String
      ST = ""
; M' l5 K/ _9 }; `+ S& I      SG = ""
    If doc.GetType = 1 Then '零件图

; i% ^$ D2 E  b" i( U& O: @4 C& R       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)
" x; g2 y, M; k
       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)
      
    ElseIf doc.GetType = 2 Then '装配体
      
       ST = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "图号" + Chr(34) + _
, S" I7 j$ h  g8 z" f$ \6 w8 X          ",Left" + Chr(40) + "Assembly.GetTitle, InStr" + Chr(40) + "Assembly.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)

) ^/ t4 i0 h8 U. _       SG = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名称" + Chr(34) + ",Right" + _
; z. _0 V4 ]0 C) L, x3 j           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)
1 }# J, O1 [6 p7 R     End If
- E+ ]5 H* u+ E7 k      doc.AddCustomInfo3 "", "图号", swCustomInfoText, ""
! V/ G1 R/ V5 }) d% b9 u      doc.AddCustomInfo3 "", "名称", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "图号代码", swCustomInfoText, ST
      doc.AddCustomInfo3 "", "名称代码", swCustomInfoText, SG

0 g" {+ z* H3 {5 f% ^2 S      Set swEquationMgr = doc.GetEquationMgr
      swEquationMgr.Add 0, Chr(34) + "A1" + Chr(34) + "=" + Chr(34) + "名称代码" + Chr(34) '添加方程式---"A1"="名称代码"
9 b: l. e5 H* i/ ~* A, A% F      swEquationMgr.Add 0, Chr(34) + "A2" + Chr(34) + "=" + Chr(34) + "图号代码" + Chr(34) '添加方程式---"A2"="图号代码"
% J2 {7 r3 V' p/ f0 p
" ?2 h! W- ~# w; x( M* R! U
% U, X/ ^( s8 l# ~/ Q& E3 b& BEnd Sub