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

steve_suich

如下圖片，如何用代碼實現(xiàn)添加全局變量：A2="名稱"？ 其中”名稱”是自定義屬性。
$ A4 K; f! W8 d; u+ u
. X) `6 u* M; p  T3 F0 n# Y" t% v' z% q
. E+ ]4 [- |  ^* s- j2 x
7 {& y% a. r; y5 G8 k, S/ M0 s

shentu

首先，方程式只能是數(shù)值，這很重要。
那么，你自定義屬性也得整個數(shù)值的，就簡單了。

shentu

寰宇無人

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

gddx110

方程式只支持純數(shù)值的自定義屬性調(diào)用，如果調(diào)用自定義屬性的文本值直接在屬性調(diào)用即可
如圖：

; ?  m" D9 ]' q; ^' \) y4 {

steve_suich

shentu 發(fā)表于 2022-5-10 08:26

我的主要問題是如何用宏代碼實現(xiàn)自動添加？
) k& C5 \& S5 m& S

steve_suich

swapi 自帶的例子，swEquationMgr.Add3 有錯？
" x# u% |1 P& ^例子如下：
Option Explicit
Sub main()
& F* B* g# ~8 `0 p
    Dim SwApp           As SldWorks.SldWorks
2 {' E0 `7 ^* `  L* ?" ^' A* O    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
  S7 n' X3 h. k5 ]    Dim longEquation    As Long


& K9 [) \0 H8 q* a2 d+ j    Set SwApp = Application.SldWorks
    Set Part = SwApp.ActiveDoc
- k& |9 Y( P4 G4 k& u1 S" L
  }! }& d0 r+ Q7 K4 N# `    Set swEquationMgr = Part.GetEquationMgr
+ m5 L, F5 B! a( o  K" ^    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"


! E. a! u/ \4 I9 |' h0 [6 I; p    'Add a global variable assignment at index, 0, to all configurations
    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
  Q7 q7 J8 ~0 }; A9 }# o( t    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"

; A* \" X; m6 Z" ]  l
    'Add a dimension equation at index, 1, to all configurations
' j+ X& _$ \  M5 X3 Z! J/ |8 Q    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"

5 w5 Q0 a3 N6 c8 _7 X9 F6 m
( d0 ?( W1 w6 Q3 `3 w  C    'Modify dimension equation at index, 1, in all configurations
* U7 y+ W: J2 b6 k! x' ?    longEquation = swEquationMgr.SetEquationAndConfigurationOption(1, """D1@Boss-Extrude1"" = 0.07in", swAllConfiguration, Empty)
    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to modify a dimension equation"

/ ?: m9 i$ B& a- Z* R+ M( t' ~

End Sub
6 R( c5 a$ K. o) _$ Y7 t

1 V9 W7 J2 e% x# b) }3 |Function ErrorMsg(SwApp As Object, Message As String)
    SwApp.SendMsgToUser2 Message, 0, 0
# w2 a# t. V6 _1 ?8 J: G# p! [7 _    SwApp.RecordLine "'*** WARNING - General"
    SwApp.RecordLine "'*** " & Message
7 C8 i+ S3 j" e  e4 `    SwApp.RecordLine ""
End Function

' I/ P) N+ }" ^' ?& q6 |

steve_suich

自定義屬性內(nèi)嵌宏代碼：圖號代碼：    "Part.Extension.CustomPropertyManager("").Set("drawingN",Left(Part.GetTitle, InStr(Part.GetTitle, " ")-1))
" H, d! m! ~, K0 c: `8 H名稱代碼：     Part.Extension.CustomPropertyManager("").Set("partN",Right(Part.GetTitle, Len(Part.GetTitle)-InStr(Part.GetTitle," ")))
drawingN:
% O; T2 K  U" g( ?7 _partN:   
. j- E7 i; d2 t
3 h7 C/ n# j3 e# ?  X
方程式： 目前只能手動
- N& M+ v: i! Z5 rA1="圖號代碼"
+ t: O' n/ v: W& rA2="名稱代碼"

steve_suich

Dim swApp As Object
) o4 _0 i4 i3 I) @! d( `0 q& @Sub main()
6 v, d3 Q9 J! Y. B4 J3 @
Set swApp = Application.SldWorks

* J* y3 b+ j7 C! t0 C5 e5 W" NSet doc = swApp.ActiveDoc
  For Each an In doc.GetCustomInfoNames   '刪除所有自定義屬性
   doc.DeleteCustomInfo an
1 r5 l1 B3 o" {5 Q  Next
Dim ST, SG As String
' o/ z3 y/ ^9 _4 v; r      ST = ""
      SG = ""
    If doc.GetType = 1 Then '零件圖

       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" + _
             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, ?. |' F8 L! r1 v! ?      
    ElseIf doc.GetType = 2 Then '裝配體
      
9 X( b3 l4 P, g: }       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)

' F2 L; h/ z& j& N       SG = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名稱" + Chr(34) + ",Right" + _
  s1 R( O1 H+ A9 J8 D           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)
" f/ W7 \: m2 V! t     End If
) D* Y' \- D6 `. F- A( l      doc.AddCustomInfo3 "", "圖號", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "名稱", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "圖號代碼", swCustomInfoText, ST
6 m4 i; }+ Y. U/ l) r0 t      doc.AddCustomInfo3 "", "名稱代碼", swCustomInfoText, SG

; k$ ^5 s$ l$ _* T      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"="圖號代碼"

( [# ^2 a( T' l6 ]6 h
End Sub