SOLIDWORKS怎样将图档名“图号+名称”分离后自动链接到属性中

杨成武 · 发表于 2016-4-27 20:48:25

jinqin11 发表于 2016-2-18 18:45! `0 L0 G: N* E$ k+ C" l" M! W
打开属性栏，设置属性，如图
& p# e/ g! F9 e6 G进入方程式界面，设置全局变量，如图

老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02-03-04支撑架，装配图号例如：GH01-02-03-04-001轴承座组建

jinqin11 · 发表于 2016-4-27 21:38:24

杨成武发表于 2016-4-27 20:482 h( X0 C! i/ ~+ S; T, r
老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02 ...

装配图好像不管用。
你的是什么版本的

杨成武 · 发表于 2016-4-28 19:16:50

jinqin11 发表于 2016-4-27 21:387 C; m# M! q4 f: q3 i8 Z0 Z
装配图好像不管用。
- n/ K! X- X9 Z& _9 `* Z" |6 g1 j你的是什么版本的

sw2015，你有qq吗？

gt.adan · 发表于 2016-4-29 07:01:38

杨成武发表于 2016-4-28 19:16
; y$ q0 w# V! S6 {, m2 Tsw2015，你有qq吗？

#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。
把你要的編碼方式寫出來，具體要求到哪邊寫入圖號？哪邊寫入名稱？這樣才好幫上忙。
每一公司的命名原則都是不同的，怎麼能期望一個宏就打遍天下呢？

杨成武 · 发表于 2016-4-29 07:54:52

gt.adan 发表于 2016-4-29 07:019 I! P9 F F0 X" j+ |0 b- G
#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。- J" V$ E3 U4 w3 {: v& d
把你要的編碼方式寫出來，具體 ...

谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－０１－００１轴承支架组件

gt.adan · 发表于 2016-4-29 09:42:20

杨成武发表于 2016-4-29 07:54! [; S! U4 a* }" x
谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

看不明白…
這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
能否明白舉個例子？一個完整的零件命名，然後哪一部份要寫入「圖號」？哪一部份要寫入「名稱」？

杨成武 · 发表于 2016-4-29 15:29:43

gt.adan 发表于 2016-4-29 09:42) e: w8 N0 j: ^+ P5 }3 T: v" ]
看不明白…* k! k2 N4 w7 N
這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？3 u) X& @6 z1 C5 Y. Y& W& E; G" r
能否明白舉個例子？一個完整的零 ...

丹大这个是一个示意图；
做的不好希望能看的明白
QQ截图20160429152357.jpg

麻烦丹大看看谢谢。

gt.adan · 发表于 2016-4-29 15:38:32

本帖最后由 gt.adan 于 2016-4-29 15:58 编辑

杨成武发表于 2016-4-29 15:29) y# r( X, n! I& j6 [
丹大这个是一个示意图；; e! @3 E: l" V( o8 m4 b
做的不好希望能看的明白

如果貴司的命名原則統一是如此：前10碼為圖號，其餘的為名稱。
那麼以下代碼就可以使用了。

Sub main()5 O+ Y' ?# U) d B+ j/ I S
( j! \8 X8 c: Y+ u& [, v# j) W* V
Set swApp = Application.SldWorks) Y; S: v8 |8 F5 i7 C/ B- n
Set model = swApp.ActiveDoc
/ K+ b# c9 \' Y4 W5 r
& J8 b" \8 ? V. S" E
ModelName = model.GetTitle) ]% s9 c) i: j! }: D: |% R# |
ModelName = Left(ModelName, InStr(ModelName, ".") - 1)
# c0 |! Q, b3 n; L+ f
4 ~' {9 o( t! W& Q. V, y/ q
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")/ X1 o7 u( _2 `
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))3 Y% o: I) T4 R$ ?
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")
4 z2 n5 n- y& h/ a9 a, l: Z
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10))# w1 A7 J* P, s
7 A* q4 j. d$ ~) L' p& A4 l) X
End Sub
* D) e0 O5 q1 q W0 N

复制代码

gt.adan · 发表于 2016-4-29 16:39:54

杨成武发表于 2016-4-29 15:29
" z; s! D. A8 h: d丹大这个是一个示意图；( E3 e* z* ~, `0 ? V: P. c* r
做的不好希望能看的明白

要達到批量新增的話，如下代碼：

Dim swApp As SldWorks.SldWorks/ Y) f) m6 y8 \& ?9 q( O# D7 K
Dim swModel As SldWorks.ModelDoc, o J" D" B( R% ^$ O% a
Dim sFileName As String
) F2 v7 W9 I$ w: _9 W
Dim path As String
" G' z# h+ u! ~+ X3 ~7 n7 t6 H
Dim nErrors As Long
; l0 [ Z) x6 l. e- c4 i
Dim nWarnings As Long
4 T) b" X6 |6 i/ D: _
Sub main()
2 x% T: Q8 g6 u1 ~4 J$ f
Set swApp = Application.SldWorks
0 ~7 L; _# k% Q! p/ f6 a9 t! K6 X. w
path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑
I& Y! b3 ?$ Y0 V" b$ g
If Right(path, 1) <> "" Then path = path & ""
u# G( q( g. }8 Y, x8 `
sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw
7 h- l1 v) k& j+ ^( b5 r4 o# O
Do Until sFileName = ""
: l9 I/ l% V- q
2 \4 ], I! d! Y6 T6 B
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING
, M7 y0 `" {8 E: p; f! e$ P
Set swModel = swApp.ActiveDoc
! q$ w+ w( {. Q% y
; {: h; z1 H! J& {$ I4 [
retva6 = swModel.DeleteCustomInfo("Number")
1 \, R' a' h* s }( K3 k# ?* O
retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))7 A$ l8 G( N, Y4 G; K! L
retva6 = swModel.DeleteCustomInfo("Name")
j* G4 o$ c, D3 |3 y3 i1 D
retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10)) Y% y/ N8 m. s* P, {9 y
3 F# D2 Z/ D+ _. c& q' X4 a
swModel.Save( E+ N; Q' @# z) G8 t# {% X
swApp.CloseDoc (sFileName)
$ t9 K7 b* F! T; f# ^4 r
sFileName = Dir8 e/ Z5 g) ?. k0 y; K+ I% s: X
Loop7 u# U; J: l, R# F a0 ^
MsgBox "DONE!"
5 Q) p: U/ c/ B$ R' b/ j
End Sub
; c/ S, v, G3 v, c* O/ A

复制代码

杨成武 · 发表于 2016-4-29 18:36:36

gt.adan 发表于 2016-4-29 16:39
6 p1 z Y* y* c$ h" q# Q要達到批量新增的話，如下代碼：

丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

gt.adan · 发表于 2016-4-29 23:54:35

杨成武发表于 2016-4-29 18:366 C" M; t- U( o" y5 m6 E
丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

1. 工具--宏--新增
2. 命名後確認，進入編輯視窗，不要關閉。
3. 將#18的代碼複製下來(該樓層下方有一個複製的連結)
4. 回到編輯視窗，將方才的代碼貼上，儲存後關閉。
5. 打開要加入屬性的零件，工具--宏--執行，目的選擇剛才新建立的宏。
6. 完成。

杨成武 · 发表于 2016-4-30 19:34:08

gt.adan 发表于 2016-4-29 23:54 n7 G! X8 U/ g
1. 工具--宏--新增
: F" N; U4 Q+ l) f; E& y! e. Y2. 命名後確認，進入編輯視窗，不要關閉。, }5 d' M. g( l
3. 將#18的代碼複製下來(該樓層下方有一 ...

不好意思麻烦丹大看看问题出在哪里

打开来报警

出现这个

gt.adan · 发表于 2016-5-2 08:01:35

本帖最后由 gt.adan 于 2016-5-2 08:03 编辑

杨成武发表于 2016-4-30 19:34
- ^5 L9 `4 y0 K' E不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼

Dim swApp As SldWorks.SldWorks
# U, y9 R, q! t7 r4 I" ]: {( q. S
Dim model As SldWorks.ModelDoc

复制代码

leien0 · 发表于 2016-5-4 12:38:12

用了这个功能，版本就不要轻易换了，哈哈！

yockay · 发表于 2016-5-13 13:08:49

这个功能要弄好看起来还很复杂

yockay · 发表于 2016-5-15 23:00:44

要是图号和名称都不是固定长度，有解决办法吗

安顺 · 发表于 2016-7-13 13:49:51

squi111 发表于 2016-1-30 23:27+ i- k6 z, X( U. w8 @3 J! G0 K
能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

现在要不要了，我有

leo77 · 发表于 2016-11-17 22:04:02

安顺发表于 2016-7-13 13:49
- |. ~: Z9 a. m, g. W现在要不要了，我有

能用于2016吗？能否共享谢谢！

hheyafu · 发表于 2016-11-24 16:51:15

可用于2016的呀

bjgtlzh · 发表于 2017-12-14 16:26:17

论坛怎么赚流量啊

hchch909 · 发表于 2018-1-5 15:21:41

学习了，好好试用下！

liuyun0113 · 发表于 2018-2-2 10:03:59

把我的贡献出来吧。文件名编号规则“图号+空格+零件名称”，图号长度不限制。零件和装配体都适用。宏中的图号和零件名的属性链接根据自己情况修改。

		自动登录	找回密码
密码			注册

全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04
全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11

通知

[已解决] SOLIDWORKS怎样将图档名“图号+名称”分离后自动链接到属性中