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

steve_suich

如下圖片，如何用代碼實(shí)現(xiàn)添加全局變量：A2="名稱",？ 其中”名稱”是自定義屬性。
  ~4 U: W/ @  \8 w" A1 D

shentu

首先,，方程式只能是數(shù)值，這很重要,。
4 ?0 @6 O- z" l0 O5 i9 j* X那么,，你自定義屬性也得整個(gè)數(shù)值的，就簡單了,。

shentu

! K$ z- e" E: a* g8 R8 U

寰宇無人

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

gddx110

方程式只支持純數(shù)值的自定義屬性調(diào)用，如果調(diào)用自定義屬性的文本值直接在屬性調(diào)用即可
+ R& {; S% D1 r如圖：
) S" ?4 z. p6 ?0 p. ^" g4 E: O! Y2 a

steve_suich

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

1 X5 L0 Z7 [$ b# ~6 L我的主要問題是如何用宏代碼實(shí)現(xiàn)自動(dòng)添加？

steve_suich

swapi 自帶的例子,，swEquationMgr.Add3 有錯(cuò),？
; e/ P7 g! ]7 m7 ?( X$ p- ?例子如下：
Option Explicit
Sub main()

    Dim SwApp           As SldWorks.SldWorks
: g! G3 f, [+ i" x' t3 X, y    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
3 t' l% [4 j0 C3 c% M    Dim longEquation    As Long


    Set SwApp = Application.SldWorks
3 F2 ?; D. \/ D: j    Set Part = SwApp.ActiveDoc
# s' h. I0 M8 F
* T3 ~8 d  }9 h/ r  F  A( c    Set swEquationMgr = Part.GetEquationMgr
* C3 j7 P. e3 O    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"

" |, r9 _9 T1 Y# z% I7 @
0 e% x6 e9 I9 s( A    'Add a global variable assignment at index, 0, to all configurations
" r3 R; X% v5 c6 i1 f9 U    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
9 Z% B: d2 ~. t5 v- M    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"


+ `% [$ l) X7 c% B    'Add a dimension equation at index, 1, to all configurations
+ F# r1 ?: D4 w6 s, p! 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"


& }3 c8 @: v. z! F    'Modify dimension equation at index, 1, in all configurations
    longEquation = swEquationMgr.SetEquationAndConfigurationOption(1, """D1@Boss-Extrude1"" = 0.07in", swAllConfiguration, Empty)
9 e8 `0 f; v: X+ ?    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to modify a dimension equation"
* E( n6 j3 Y* E! v/ N3 m# U1 M; ~
7 S3 q) g% I5 Z9 G$ j0 c& N

End Sub


' A' ^& e9 e; CFunction ErrorMsg(SwApp As Object, Message As String)
    SwApp.SendMsgToUser2 Message, 0, 0
    SwApp.RecordLine "'*** WARNING - General"
    SwApp.RecordLine "'*** " & Message
    SwApp.RecordLine ""
, r7 M6 \/ R. j$ i- h$ r5 CEnd Function

steve_suich

自定義屬性內(nèi)嵌宏代碼：圖號(hào)代碼：    "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:
7 G# [  R3 a' h* v& u8 I1 q% dpartN:   


方程式： 目前只能手動(dòng)
A1="圖號(hào)代碼"
: \) Z4 e! n0 `* PA2="名稱代碼"
& t! h5 C' i4 o3 \

steve_suich

Dim swApp As Object
Sub main()

Set swApp = Application.SldWorks
4 c6 l  ]! G7 z& x
Set doc = swApp.ActiveDoc
  For Each an In doc.GetCustomInfoNames   '刪除所有自定義屬性
   doc.DeleteCustomInfo an
+ L  h  ~7 \. z# A4 k) i* T  Next
Dim ST, SG As String
      ST = ""
/ Q8 W1 M+ _0 K      SG = ""
+ r9 k; ]3 z$ `1 j: \+ T, a0 _3 Z    If doc.GetType = 1 Then '零件圖

       ST = "Part.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "圖號(hào)" + Chr(34) + _
6 P/ g! ?" O8 t% t             ",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" + _
2 G# K2 j5 N0 |" o             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)
  ^  h) S2 G& V7 U/ F4 e      
- s4 Z; @+ X  C; k" G2 a    ElseIf doc.GetType = 2 Then '裝配體
% j! g7 u* H7 s9 ~. `      
       ST = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "圖號(hào)" + Chr(34) + _
" w& M( K& p" \+ ?( C+ H+ S          ",Left" + Chr(40) + "Assembly.GetTitle, InStr" + Chr(40) + "Assembly.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)
) W7 B0 f, _! n$ I
       SG = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名稱" + Chr(34) + ",Right" + _
: D" u8 G/ y* R* \# n           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)
     End If
      doc.AddCustomInfo3 "", "圖號(hào)", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "名稱", swCustomInfoText, ""
& c& E' s1 J' s' \9 I      doc.AddCustomInfo3 "", "圖號(hào)代碼", swCustomInfoText, ST
' j: y! K9 l. t' D$ C      doc.AddCustomInfo3 "", "名稱代碼", swCustomInfoText, SG

9 A. t! ~& C! A7 B, x0 \      Set swEquationMgr = doc.GetEquationMgr
- `0 N9 N# k( q' y: g/ R7 H      swEquationMgr.Add 0, Chr(34) + "A1" + Chr(34) + "=" + Chr(34) + "名稱代碼" + Chr(34) '添加方程式---"A1"="名稱代碼"
      swEquationMgr.Add 0, Chr(34) + "A2" + Chr(34) + "=" + Chr(34) + "圖號(hào)代碼" + Chr(34) '添加方程式---"A2"="圖號(hào)代碼"
- v' |$ R1 [% d( V' f) W6 h

End Sub
1 u# }; Q5 y- k& ?2 M& M: m' o1 c/ G