求助，如何用代碼添加全局變量？

steve_suich

如下圖片，如何用代碼實現添加全局變量：A2="名稱"？ 其中”名稱”是自定義屬性。
/ I2 u. z6 X& U


) I* i9 T( I: E( l) f# g) W

shentu

首先，方程式只能是數值，這很重要。
5 A" {5 P+ B6 y6 u) P那么，你自定義屬性也得整個數值的，就簡單了。

shentu

寰宇無人

你的目的是什么呢？自定義屬性可以直接用代碼Part.CustomInfo2("", "名稱")賦值

gddx110

方程式只支持純數值的自定義屬性調用，如果調用自定義屬性的文本值直接在屬性調用即可
8 z. |5 k+ J# J0 {( m* V如圖：

1 L( I, B$ J, i0 L9 [8 k

steve_suich

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

我的主要問題是如何用宏代碼實現自動添加？
4 D2 ^* }$ @) d$ B; z% K8 t9 S

steve_suich

swapi 自帶的例子，swEquationMgr.Add3 有錯？
例子如下：
Option Explicit
% r9 k) I/ {# Y5 _Sub main()
( i, H8 v2 a) S% i0 j& x$ o8 _5 V
2 l1 u3 \) t8 P3 _    Dim SwApp           As SldWorks.SldWorks
2 ?+ b9 j3 _+ k0 g/ v- m9 A. A4 A    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
/ W' z2 t% a" J/ f    Dim longEquation    As Long

( d) U: E  |/ E2 L5 E
0 l% V- N( h& M. t: w7 \    Set SwApp = Application.SldWorks
0 P5 c5 `/ R' {& d: B. F    Set Part = SwApp.ActiveDoc

    Set swEquationMgr = Part.GetEquationMgr
" B3 D" b+ Q; j) j9 D" ^    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"
+ z5 ]$ G/ R1 G

    'Add a global variable assignment at index, 0, to all configurations
    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
" v: Q* `( K: z  S    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"

9 A4 i6 d9 {7 W% k) b4 S
. I1 ^: J1 C5 q) i& r: n; w4 C$ W    'Add a dimension equation at index, 1, to all configurations
; F9 G" g, H7 E    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
9 m1 X5 s- I# M4 P" o) t2 T& ~! O    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"

7 f* i% t. z( j( d+ s/ D8 a  N' l# S
* [& `) x7 ?, V    'Modify dimension equation at index, 1, in all configurations
$ C- Y$ }0 d. i: {& }  a    longEquation = swEquationMgr.SetEquationAndConfigurationOption(1, """D1@Boss-Extrude1"" = 0.07in", swAllConfiguration, Empty)
/ Q& j; E. Z+ q! x2 g% `6 N    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to modify a dimension equation"
9 q  b" X1 ?/ E$ S
5 Z, Q& m% L% g/ I! b. m" {( v
! Z1 s! r, W' _# D0 n
) B9 ?4 L# c# X, CEnd Sub
8 C  P! e6 _9 H% d0 E! }
/ e5 E0 D* T; N% v4 T
Function ErrorMsg(SwApp As Object, Message As String)
    SwApp.SendMsgToUser2 Message, 0, 0
    SwApp.RecordLine "'*** WARNING - General"
  {" {$ O8 Z- I; }    SwApp.RecordLine "'*** " & Message
% a7 `6 J# w7 B: R5 P  V    SwApp.RecordLine ""
/ o9 q4 N1 T; N6 ]- JEnd Function

: z4 u' D4 u, R& ]" @

steve_suich

自定義屬性內嵌宏代碼：圖號代碼：    "Part.Extension.CustomPropertyManager("").Set("drawingN",Left(Part.GetTitle, InStr(Part.GetTitle, " ")-1))
3 I. B% ~+ F+ ~" P4 [名稱代碼：     Part.Extension.CustomPropertyManager("").Set("partN",Right(Part.GetTitle, Len(Part.GetTitle)-InStr(Part.GetTitle," ")))
drawingN:
partN:   

) C* T! p& R, u: N
3 b6 |( ^( d% ?# z2 I) ^4 e方程式： 目前只能手動
A1="圖號代碼"
8 r: O0 L% E2 QA2="名稱代碼"

steve_suich

Dim swApp As Object
Sub main()

8 T4 r9 T2 e6 E( qSet swApp = Application.SldWorks

! U# v: o1 _0 M$ O7 ^$ A" oSet doc = swApp.ActiveDoc
8 ^& y7 ?9 s  G, ?1 G  For Each an In doc.GetCustomInfoNames   '刪除所有自定義屬性
+ g' L' ~8 w+ q2 _, }, m# Q   doc.DeleteCustomInfo an
  Next
Dim ST, SG As String
      ST = ""
      SG = ""
! N. ], \/ y/ X6 A    If doc.GetType = 1 Then '零件圖

       ST = "Part.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "圖號" + Chr(34) + _
+ Y" J; E+ f9 [$ T) u             ",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" + _
! r7 K) a* X# [! p2 c0 w             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)
! [- m' a" X2 ~" \8 g  H9 j      
    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)
- }0 u8 ^- E. |, t
       SG = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名稱" + Chr(34) + ",Right" + _
4 g0 g; e3 ^  O- K) T           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)
) P' A% b0 [' E* ^$ F     End If
+ g: Z+ m  R: ]  H. J4 T, {      doc.AddCustomInfo3 "", "圖號", swCustomInfoText, ""
: o0 j; s' |- c* T      doc.AddCustomInfo3 "", "名稱", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "圖號代碼", swCustomInfoText, ST
      doc.AddCustomInfo3 "", "名稱代碼", swCustomInfoText, SG

, v9 J; }1 i& ~      Set swEquationMgr = doc.GetEquationMgr
6 R: ~: U$ ]) E: 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"="圖號代碼"
3 @1 @  H* c, J% j5 }: ?8 X6 Y
9 {, g# W8 d7 |; d; W; e% X* x
End Sub
) Z, t7 N. R4 I/ Y% [