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

steve_suich

如下圖片，如何用代碼實現添加全局變量：A2="名稱"？ 其中”名稱”是自定義屬性。
7 x* ?3 e+ M; Y3 V* M
# v% [- E, G. U, r0 K( k, e# J9 s
9 h( p2 X  E' {$ C0 p* Z+ I

shentu

首先，方程式只能是數值，這很重要。
6 J' G' V7 a& b! R# E3 [% W那么，你自定義屬性也得整個數值的，就簡單了。

shentu

寰宇無人

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

gddx110

方程式只支持純數值的自定義屬性調用，如果調用自定義屬性的文本值直接在屬性調用即可
如圖：
+ b) z6 m  @: I' c
5 @5 p0 s5 Q- ]5 @: a( U2 E
/ b1 a9 L& }- V  c

steve_suich

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

我的主要問題是如何用宏代碼實現自動添加？

steve_suich

swapi 自帶的例子，swEquationMgr.Add3 有錯？
: \1 p8 B7 ?4 m+ l# R7 w& s例子如下：
Option Explicit
( S" o: y7 I( z2 G  u# K( X# @Sub main()
$ [  D- b! u: }4 I3 l' a4 P# p
    Dim SwApp           As SldWorks.SldWorks
    Dim Part            As SldWorks.ModelDoc2
& V+ }/ {8 K$ h  C    Dim swEquationMgr   As SldWorks.EquationMgr
) R& P' @$ O! v& I( C/ [: E    Dim longEquation    As Long
1 ^- {8 _: d* a: i: N
9 P- ^( J- w3 t& D4 m8 w2 n2 Z
    Set SwApp = Application.SldWorks
    Set Part = SwApp.ActiveDoc
% }' y1 A1 T+ W
    Set swEquationMgr = Part.GetEquationMgr
: Q0 E$ y# F+ V% X* q8 F    If swEquationMgr Is Nothing Then ErrorMsg SwApp, "Failed to get the equation manager"
/ _" R7 f9 J' I! J+ ^5 O% ]

# z8 @3 ^6 o; b+ B' g! ?    'Add a global variable assignment at index, 0, to all configurations
( \# N6 I7 ?  Q    longEquation = swEquationMgr.Add3(0, """A"" = 2in", True, swAllConfiguration, Empty)
    If longEquation <> 0 Then ErrorMsg SwApp, "Failed to add a global variable assignment"
  Y9 k; m  v+ P
3 i8 q; o1 W1 l  K! v" W
7 K% _. B2 T9 }# ~    'Add a dimension equation at index, 1, to all configurations
3 I, F) W& {! q# M7 C/ v    longEquation = swEquationMgr.Add3(1, """D1@Boss-Extrude1"" = 0.05in", True, swAllConfiguration, Empty)
9 _5 s1 P( [) w$ ~, `3 [9 ~    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to add a dimension equation"
  c  a/ X: h( ?" u  R) C! _! E
* U, J& f, U$ ?0 m  r$ A
* c: D! m# d0 i- d8 x; ^    'Modify dimension equation at index, 1, in all configurations
    longEquation = swEquationMgr.SetEquationAndConfigurationOption(1, """D1@Boss-Extrude1"" = 0.07in", swAllConfiguration, Empty)
) |4 l. [& M! y5 R! L! U    If longEquation <> 1 Then ErrorMsg SwApp, "Failed to modify a dimension equation"
' `0 ^5 D2 A' ~6 t- T

% f3 Q2 F7 K4 k' u$ \
End Sub

& n; E# {" @! M3 b% e4 ?
Function ErrorMsg(SwApp As Object, Message As String)
8 U) H% j; }  F6 P    SwApp.SendMsgToUser2 Message, 0, 0
    SwApp.RecordLine "'*** WARNING - General"
    SwApp.RecordLine "'*** " & Message
    SwApp.RecordLine ""
! Y6 D" d) q7 Q7 gEnd Function
! c! P' [% Q' a) c* Y7 w5 K1 w

steve_suich

自定義屬性內嵌宏代碼：圖號代碼：    "Part.Extension.CustomPropertyManager("").Set("drawingN",Left(Part.GetTitle, InStr(Part.GetTitle, " ")-1))
  b  C; b/ o" J  a' ^' j1 |名稱代碼：     Part.Extension.CustomPropertyManager("").Set("partN",Right(Part.GetTitle, Len(Part.GetTitle)-InStr(Part.GetTitle," ")))
drawingN:
4 q# l* a# ^. k; WpartN:   
- h- P$ c  Y' ^$ T& {4 ?

8 V0 F2 a5 q7 \* U方程式： 目前只能手動
A1="圖號代碼"
A2="名稱代碼"
5 J3 u- A) X1 Z. _8 ]# \2 M! s( L9 |0 f

steve_suich

Dim swApp As Object
6 R# Z# V; |. Y7 {: Z  rSub main()
4 G5 ^1 ~3 ^7 I7 R+ P
, E9 c" ~8 t. DSet swApp = Application.SldWorks

/ n; b4 l  c% S6 ~2 QSet doc = swApp.ActiveDoc
/ [9 f6 y  ?4 n; E+ x1 Z$ K  For Each an In doc.GetCustomInfoNames   '刪除所有自定義屬性
9 _; W$ ~$ _! j! ]% V" Y   doc.DeleteCustomInfo an
  Next
Dim ST, SG As String
      ST = ""
; D/ p! r/ v' E0 i4 o( r0 S' W      SG = ""
- b) Z+ ^+ A* R1 f% [0 F& `; C- g, V    If doc.GetType = 1 Then '零件圖

       ST = "Part.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "圖號" + Chr(34) + _
$ m9 p6 A% A3 W: X& ^/ i: p             ",Left" + Chr(40) + "Part.GetTitle, InStr" + Chr(40) + "Part.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)

1 l/ ]! T. L4 {. X& X( B9 X       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)
0 I9 ?2 I/ \. M; @* _% p7 h2 v/ _+ q      
    ElseIf doc.GetType = 2 Then '裝配體
; s; j" A; k3 ?& D; @+ m0 K7 e      
       ST = "Assembly.Extension.CustomPropertyManager" + Chr(40) + Chr(34) + Chr(34) + Chr(41) + ".Set" + Chr(40) + Chr(34) + "圖號" + Chr(34) + _
! H* F8 e7 ^0 \/ v  |1 l4 l; F. L6 o          ",Left" + Chr(40) + "Assembly.GetTitle, InStr" + Chr(40) + "Assembly.GetTitle, " + Chr(34) + " " + Chr(34) + Chr(41) + "-1" + Chr(41) + Chr(41)
# G7 V0 e4 @. t0 ?& ^; P; g# N
       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)
5 h# J' n6 v$ x$ `9 }     End If
3 G- N  F- P; i2 j" v      doc.AddCustomInfo3 "", "圖號", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "名稱", swCustomInfoText, ""
      doc.AddCustomInfo3 "", "圖號代碼", swCustomInfoText, ST
) _, S6 m/ t7 c8 }: Z& W! N      doc.AddCustomInfo3 "", "名稱代碼", swCustomInfoText, SG
- ]" Q& f1 v7 G2 C. d
' Z9 b; f7 R! v2 x: {4 [& R' |      Set swEquationMgr = doc.GetEquationMgr
      swEquationMgr.Add 0, Chr(34) + "A1" + Chr(34) + "=" + Chr(34) + "名稱代碼" + Chr(34) '添加方程式---"A1"="名稱代碼"
! n. @5 H3 v7 i8 B# W  [      swEquationMgr.Add 0, Chr(34) + "A2" + Chr(34) + "=" + Chr(34) + "圖號代碼" + Chr(34) '添加方程式---"A2"="圖號代碼"


- H# R% ?7 z. T, g- bEnd Sub
4 Q6 {. `* ]$ [