本人以前用solidworks，是在操作系統的資源管理器里手工管理零件模型裝配體工程圖這些資源。辦法很土，文件名字以“零件代號#零件名稱”的方式命名。所以寫了個vba宏，自動從文件名拆出來零件代號和零件名稱，填入零件的屬性中。
7 ?0 _% b9 K! M4 I. t/ b" G* j9 w v! }, B: ~/ z2 ^% a0 r
最近學習inventor 2017，想用ilogic也做類似的事。發現ilogic的“標準字符串函數參考”文檔里，竟然沒有 instr 函數。9 F5 w! a+ i0 M
+ j6 O- N% S4 Y% ^4 J
正發愁呢，無意中往代碼區寫了 instr，發現文字顏色變了！一試，能正確運行！
m+ l8 W2 m# i6 _1 g" Y
# s: s& V4 l7 Q7 v3 C+ _' N
( o. H. M7 C8 c; u8 _. c& p- modelFullFileName = ThisDoc.ModelDocument.FullFileName" x: g8 _8 l8 @
- modelDirectoryName = IO.Path.GetDirectoryName(modelFullFileName)% Y) u6 ~5 s, v: E/ u- `* p
- modelFileName = IO.Path.GetFileName(modelFullFileName)
5 }& z4 r3 x2 U& r$ ` - modelFileNamewithoutextentionsion = IO.Path.GetFileNameWithoutExtension(modelFullFileName)
/ p. [& ` e$ i$ ^# @ - 'MsgBox( modelFullFileName )& m5 v: A8 t6 c' O
- 'MsgBox( modelDirectoryName )
7 q h" Z. ^! T2 W9 n( b$ j - 'MsgBox( modelFileName )
@0 c5 v9 [( f6 y7 W - MsgBox( modelFileNamewithoutextentionsion )
% ]' \( x' E, P$ ^$ M - position=InStr(modelFileNamewithoutextentionsion,"#")
. b) C' D6 Y. n/ f1 n9 q - MsgBox(position)
5 n# J% W: D+ n7 ?0 P) C估計ilogic里還隱藏了不少這種vba的標準函數吧。文檔里不寫，實際卻能調用。) e+ Y: c* d7 ?) L. k, h- T/ p
- d' W3 Y9 ` U: z4 Q
8 P3 |8 |" V9 f! E* A
9 }1 W ~6 n; C# f% K7 \# m' c3 t昨晚看《Inventor-iLogic程序設計解析與實戰》，第124頁，作者也遇到了這個功能需求，只能輾轉遍歷字符串逐一對比，相當于自己寫了一個類似instr簡單函數。當時是inventor 2013，不知道是否也有這個隱藏的函數。
s4 d! B2 g& Z/ A
3 _7 I% q E7 j2 A" F5 t1 n2 y. f5 v4 N1 w. j) d$ h
|
發表于 2019-8-16 09:46:23
QQ好友和群
QQ空間