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

steve_suich

如下圖片，如何用代碼實現添加全局變量：A2="名稱"？ 其中”名稱”是自定義屬性。
. j- {1 y  F( I- J6 F
6 q8 ^( _0 L+ Z( v' U& K; A

( k; p' O- R9 ^! W* Y

shentu

首先，方程式只能是數值，這很重要。
  M/ p9 [5 q. v+ j: P那么，你自定義屬性也得整個數值的，就簡單了。

shentu

寰宇無人

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

gddx110

方程式只支持純數值的自定義屬性調用，如果調用自定義屬性的文本值直接在屬性調用即可
( T$ d! M1 s4 G+ G( c4 ?如圖：
6 T% z$ d9 s6 E

steve_suich

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

) V! X  x; j! ]: @- r: M7 g我的主要問題是如何用宏代碼實現自動添加？
# S9 V2 f) L" H# N8 d

steve_suich

swapi 自帶的例子，swEquationMgr.Add3 有錯？
" S3 E; M; {5 l例子如下：
6 ?# w5 p7 m) J* a( Q8 IOption Explicit
; Z3 k$ ~( D0 [# ]; {9 ^* w* \Sub main()

    Dim SwApp           As SldWorks.SldWorks
6 q) M( l6 \. Z) a    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
+ a2 w. r6 |0 b4 k0 H0 K    Dim longEquation    As Long
! a- i; l: K  m' k9 G2 x% E( ~

    Set SwApp = Application.SldWorks
$ H6 y! g& V: A0 l; x    Set Part = SwApp.ActiveDoc

    Set swEquationMgr = Part.GetEquationMgr
% ~! f7 y  r1 \    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"
+ U9 @( h- R! ]( ^0 H8 |$ v
  w/ V' ^- F/ \4 ]: J% v- \
7 `" ^4 ^2 q- b    'Add a global variable assignment at index, 0, to all configurations
    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"


8 h2 M) ?6 I) T    'Add a dimension equation at index, 1, to all configurations
4 t, I5 k* [) ~    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
: A1 v  `1 o$ n& v    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"
1 ?9 W) Y+ ~/ E3 {# `
" V* F% ^' v2 a- S& @0 c7 f
$ d9 ]9 |7 K0 k; Q6 U    'Modify dimension equation at index, 1, in all configurations
+ b6 ~. Y/ J) f$ S' J    longEquation = swEquationMgr.SetEquationAndConfigurationOption(1, """D1@Boss-Extrude1"" = 0.07in", swAllConfiguration, Empty)
* O& k9 g) e/ T* l3 ~' k' B  g$ W    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to modify a dimension equation"


  I- s* m1 j* t' p
End Sub
0 q, X0 `6 m' y' e

' M/ I% W0 x3 k0 _. MFunction ErrorMsg(SwApp As Object, Message As String)
! A0 D- p! v, s/ m) _    SwApp.SendMsgToUser2 Message, 0, 0
    SwApp.RecordLine "'*** WARNING - General"
    SwApp.RecordLine "'*** " & Message
; v2 ]5 O# C$ B    SwApp.RecordLine ""
End Function

' e" R, H' @& o7 J( K5 g& j/ n

steve_suich

自定義屬性內嵌宏代碼：圖號代碼：    "Part.Extension.CustomPropertyManager("").Set("drawingN",Left(Part.GetTitle, InStr(Part.GetTitle, " ")-1))
+ Q: d: v8 X5 W* R! D  X- K名稱代碼：     Part.Extension.CustomPropertyManager("").Set("partN",Right(Part.GetTitle, Len(Part.GetTitle)-InStr(Part.GetTitle," ")))
drawingN:
partN:   
; |( O- n8 T7 P6 K9 {' f
. V, Y5 j. k7 R* |" j. ^
) U% p# z2 _- H方程式： 目前只能手動
A1="圖號代碼"
A2="名稱代碼"

steve_suich

Dim swApp As Object
Sub main()

: b6 y' Z( ]- k* @1 V# ySet swApp = Application.SldWorks

Set doc = swApp.ActiveDoc
- U  }" a: Z( k6 A( Z& ~; L  For Each an In doc.GetCustomInfoNames   '刪除所有自定義屬性
   doc.DeleteCustomInfo an
2 F0 k$ p7 P! g  Next
7 {- \8 s' b3 ^& b- a6 R4 ?Dim ST, SG As String
! l  a! g% p# b+ S: g      ST = ""
+ e) z5 p# p9 j6 C5 F      SG = ""
    If doc.GetType = 1 Then '零件圖
: `1 Q7 j+ J+ z9 C7 [. \5 e
* J4 o6 s$ \) L$ s3 J$ s  o3 w9 f; Y       ST = "Part.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "圖號" + Chr(34) + _
4 J) s% R; X  U, G- u             ",Left" + Chr(40) + "Part.GetTitle, InStr" + Chr(40) + "Part.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)
* A: r7 h6 q  z' t
       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)
. m: D7 `: M  I7 C- v9 S& g( y* ?      
    ElseIf doc.GetType = 2 Then '裝配體
# @3 V' ^( I7 w3 J& ]      
       ST = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "圖號" + Chr(34) + _
* J; z7 V- E& H          ",Left" + Chr(40) + "Assembly.GetTitle, InStr" + Chr(40) + "Assembly.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)
/ X$ u% b! U6 Z3 ?/ U( {
       SG = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "名稱" + 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)
) l/ o0 R9 _3 d( c  [; H5 p, Y     End If
      doc.AddCustomInfo3 "", "圖號", swCustomInfoText, ""
- n" {' L& r) W$ l  S8 Q      doc.AddCustomInfo3 "", "名稱", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "圖號代碼", swCustomInfoText, ST
      doc.AddCustomInfo3 "", "名稱代碼", swCustomInfoText, SG

      Set swEquationMgr = doc.GetEquationMgr
7 [' o# d4 @3 r0 N8 _      swEquationMgr.Add 0, Chr(34) + "A1" + Chr(34) + "=" + Chr(34) + "名稱代碼" + Chr(34) '添加方程式---"A1"="名稱代碼"
$ _0 E" O7 j; B/ @, v      swEquationMgr.Add 0, Chr(34) + "A2" + Chr(34) + "=" + Chr(34) + "圖號代碼" + Chr(34) '添加方程式---"A2"="圖號代碼"

5 ~3 `. p: y0 o
End Sub
7 I  M7 Z, w0 `4 n' d1 p