依據(jù)配置特定屬性之"件號"及"名稱"存檔

ryouss · 發(fā)表于 2018-11-15 13:32:28

分享在他網(wǎng)的回覆

' ************************************************************************************ c# c3 N; i( b& N K
' 依據(jù)配置特定屬性之"件號"及"名稱"存檔 - macro recorded on 10/30/18 by scliang
5 D6 X! @3 z3 e) h' q }9 W6 W+ A- c
' ************************************************************************************0 [$ H( P8 U2 T/ |; W& W
2 O: y! {+ o& N% m
Dim swApp As SldWorks.SldWorks( |2 P) p; o( @5 }
Dim swModel As SldWorks.ModelDoc2
- Q) e! e; u5 V3 j# |
Dim swConfigMgr As SldWorks.ConfigurationManager# J! q4 A: y4 }: J. K
Dim swConfig As SldWorks.Configuration
9 e) j. U& S5 L. i* M6 l
Dim swCustPropMgr As SldWorks.CustomPropertyManager. W- O; c5 L# z8 t: O, w
Dim nNbrProps As Long
1 P* |% y y+ K. a4 z1 c" B
Dim Part As Object/ }0 I1 x# w. o. H# \4 c
Dim Code_Name(2) As String! x7 v$ y) L+ m4 K" P% f6 T# I
Dim valOut As String
+ i7 F) r x9 ?8 E! k# v) C7 z7 r5 K
Dim resolvedValOut As String
2 r2 K; Z/ }' Y
Dim longstatus As Long0 W. Y: R7 k( N, @
, ~& X* `2 ` A) H
& x# K, S( s7 l
Sub main()
* e. v/ R* J* |9 c# `2 G
3 J d2 l5 K* r! A2 R& i/ ^
Set swApp = Application.SldWorks
w! f L- y0 M, P2 ^0 w
Set swModel = swApp.ActiveDoc4 l/ E; f d( G# A- ]
Set swConfigMgr = swModel.ConfigurationManager V0 e8 ?2 J9 U: _: r6 I
Set swConfig = swConfigMgr.ActiveConfiguration
9 X* h6 m- d# Z H. C
Set swCustPropMgr = swConfig.CustomPropertyManager( R9 } M. H+ y, `' f- b3 t
' Get the number of custom properties for this configuration9 M5 o* S$ F& [8 I9 ]9 k1 ?
nNbrProps = swCustPropMgr.Count
Q% B5 n5 }2 i. `
vPropNames = swCustPropMgr.GetNames- S8 s; j; S% y" P2 u
For j = 0 To nNbrProps - 18 a1 B0 I; l7 K, Z
swCustPropMgr.Get2 vPropNames(j), valOut, resolvedValOut" ^0 ?" w9 j. U& U& L d. m
If vPropNames(j) = "代號" Then Code_Name(0) = valOut; j& k7 }" e' ]0 @, D4 F
If vPropNames(j) = "名稱" Then Code_Name(1) = valOut: y3 f$ U9 F9 q
Next j4 H8 @' o: s& y
'Debug.Print " Name, type, and resolved value of custom property: " & "代號: " & Code_Name(0) & " ----- " & "名稱:" & Code_Name(1)
' P* O* p& e3 p1 Z5 w2 E5 o# Y0 k
Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴展名",不管擴展名是否隱藏
+ s0 o l0 A& z
Path_ = Left(Path_Name, InStrRev(Path_Name, "")) '提出路徑0 M3 c6 H9 f1 ^" B; ?" B7 c0 _* {; _
Set Part = swApp.ActiveDoc
" o2 h) g4 Y& p( C7 F
longstatus = Part.SaveAs3(Path_ & Code_Name(0) & " " & Code_Name(1) & ".SLDPRT", 0, 2) '依據(jù)配置屬性"件號"及"名稱"存檔
1 H5 y5 \% L: b1 E: h
, S1 T" H* g; q$ ] o4 H
End Sub2 y, ^. z( c) x# j& V

復(fù)制代碼

zx65606 · 發(fā)表于 2018-11-15 16:15:01

圖號分離？

ryouss · 發(fā)表于 2018-11-15 20:19:10

zx65606 發(fā)表于 2018-11-15 16:15. |* A/ W& [6 E. q/ X% S
圖號分離,？

非也!如主題名稱.

遠祥 · 發(fā)表于 2018-11-16 22:06:09

這個動態(tài)圖樓主用什么軟件截取的,，求教一下！,！

ryouss · 發(fā)表于 2018-11-16 23:23:41

遠祥發(fā)表于 2018-11-16 22:06
; F) V/ _1 Y+ V. k0 \這個動態(tài)圖樓主用什么軟件截取的，求教一下�,�,！

Camtasia Studio 8.0 軟件截取的

		自動登錄	找回密碼
密碼			注冊會員

依據(jù)配置特定屬性之"件號"及"名稱"存檔

本帖子中包含更多資源

評分