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

steve_suich

如下圖片，如何用代碼實(shí)現(xiàn)添加全局變量：A2="名稱(chēng)"？ 其中”名稱(chēng)”是自定義屬性,。

! E( d6 c% X, I6 X8 z# Q+ F

shentu

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

shentu

& X& }! A& B8 b* T1 \% E+ s6 Q

寰宇無(wú)人

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

gddx110

方程式只支持純數(shù)值的自定義屬性調(diào)用,，如果調(diào)用自定義屬性的文本值直接在屬性調(diào)用即可
如圖：
. D0 F5 k4 ~& A) M# w
( G9 f, @$ k  G$ C, H% g! b5 c
7 `9 r0 e7 W4 l8 D, m9 A3 e' t

steve_suich

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

6 c7 H. ]6 L5 z/ l8 |3 I% `我的主要問(wèn)題是如何用宏代碼實(shí)現(xiàn)自動(dòng)添加,？

steve_suich

swapi 自帶的例子，swEquationMgr.Add3 有錯(cuò),？
2 y# g+ E" ?' x' G) ^$ [例子如下：
Option Explicit
Sub main()

    Dim SwApp           As SldWorks.SldWorks
    Dim Part            As SldWorks.ModelDoc2
6 v2 H, f, _+ @4 v4 _& l    Dim swEquationMgr   As SldWorks.EquationMgr
    Dim longEquation    As Long


7 b  U4 K  |3 w7 c/ A7 @    Set SwApp = Application.SldWorks
    Set Part = SwApp.ActiveDoc
: N+ W6 I& `; P. j$ [' w+ U
' X% q& M& f+ h- n1 W3 u8 w    Set swEquationMgr = Part.GetEquationMgr
    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"

8 l2 [2 j! `, F0 C& M$ E
    'Add a global variable assignment at index, 0, to all configurations
) H. `3 T) p' B8 b    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"
- E7 m0 v3 ~6 ~$ L9 V6 J
3 t7 Q7 X  }% ?5 M5 P' n9 w
    'Add a dimension equation at index, 1, to all configurations
" L- H* i; A! z/ O6 B  `" |7 Z& h/ I    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
- m- G8 T7 B0 g, j2 O    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"
" U7 m( e: N) z7 ?, X5 h
; N; r- a" S& t+ f; J! A1 g
    '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"
$ p5 ~" s8 I. D9 A  ?4 A3 Q
6 I2 [$ k+ N% ~/ _# Y+ U# z- M3 W6 N

End Sub


4 U6 Q! d: Y0 u6 P* ], `  h* YFunction ErrorMsg(SwApp As Object, Message As String)
( h5 {& U! V9 L+ D7 }& p  v    SwApp.SendMsgToUser2 Message, 0, 0
    SwApp.RecordLine "'*** WARNING - General"
, ]8 k$ N7 M+ v. w) r0 v. a5 N    SwApp.RecordLine "'*** " & Message
    SwApp.RecordLine ""
End Function

. @+ M& W4 B9 V- B

steve_suich

自定義屬性?xún)?nèi)嵌宏代碼：圖號(hào)代碼：    "Part.Extension.CustomPropertyManager("").Set("drawingN",Left(Part.GetTitle, InStr(Part.GetTitle, " ")-1))
名稱(chēng)代碼：     Part.Extension.CustomPropertyManager("").Set("partN",Right(Part.GetTitle, Len(Part.GetTitle)-InStr(Part.GetTitle," ")))
drawingN:
/ ^$ Z& }" ]7 t( [, ], ~partN:   
/ R$ I" F0 H5 l. N! r
' K1 ]# N- o) l5 [7 X8 a" ~
方程式： 目前只能手動(dòng)
) y- g4 n1 F. w% }A1="圖號(hào)代碼"
* l% b3 I! N) U" S9 u1 [A2="名稱(chēng)代碼"
) P! Z6 I9 k+ u7 V- j9 n

steve_suich

Dim swApp As Object
& N( U) u2 T# `- U# wSub main()
4 R9 o% T" w6 V0 B8 Q  h
2 b: m- ]4 S) S# U& dSet swApp = Application.SldWorks
1 Y1 ?) d' V! A, Q8 r: s4 y2 ^% T
Set doc = swApp.ActiveDoc
1 ~# h. E( e2 [; f- ?. |- L; S6 w1 ^  For Each an In doc.GetCustomInfoNames   '刪除所有自定義屬性
! K, @) t7 J7 I1 T) K! {0 K( y   doc.DeleteCustomInfo an
  Next
Dim ST, SG As String
      ST = ""
  W) a7 c8 |+ Y; y7 R0 `6 \8 m      SG = ""
! d% i0 b) T4 U; _- E    If doc.GetType = 1 Then '零件圖

' t7 A0 c& h- @0 t: p' Y0 ?* i       ST = "Part.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "圖號(hào)" + 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) + "名稱(chēng)" + 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)
# g5 J) G( m( u, R& T. P$ O- F      
- q; x+ B; B, _  e( H7 O/ j    ElseIf doc.GetType = 2 Then '裝配體
% ?7 U* j' _6 U  S, B; O/ u: X      
       ST = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "圖號(hào)" + Chr(34) + _
! z+ M8 {  c" ^: s- g! R          ",Left" + Chr(40) + "Assembly.GetTitle, InStr" + Chr(40) + "Assembly.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)

$ @" L. S3 _# u1 A       SG = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名稱(chēng)" + 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)
+ e7 X5 Z  v; T. G: r     End If
      doc.AddCustomInfo3 "", "圖號(hào)", swCustomInfoText, ""
5 C" g, i$ B) ]# J/ T- e9 ]( x  j+ h2 J      doc.AddCustomInfo3 "", "名稱(chēng)", swCustomInfoText, ""
. t2 b4 h0 J/ y3 C. {( p, T      doc.AddCustomInfo3 "", "圖號(hào)代碼", swCustomInfoText, ST
  Z7 o9 f2 ^+ _$ b# m      doc.AddCustomInfo3 "", "名稱(chēng)代碼", swCustomInfoText, SG

  j$ |3 O+ v. E      Set swEquationMgr = doc.GetEquationMgr
      swEquationMgr.Add 0, Chr(34) + "A1" + Chr(34) + "=" + Chr(34) + "名稱(chēng)代碼" + Chr(34) '添加方程式---"A1"="名稱(chēng)代碼"
+ G) b, v+ J6 X8 w      swEquationMgr.Add 0, Chr(34) + "A2" + Chr(34) + "=" + Chr(34) + "圖號(hào)代碼" + Chr(34) '添加方程式---"A2"="圖號(hào)代碼"
5 A# C! o# u  c, ?1 w5 g
6 R; g% G& h* g! q" e- o6 f$ N
1 `1 N8 O6 W# @% X( D8 j5 c. G2 yEnd Sub