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

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

jinqin11 发表于 2016-2-18 18:45$ O$ \ }) c3 } e S/ L
打开属性栏，设置属性，如图
5 b5 q6 n, v. R Z7 W4 C进入方程式界面，设置全局变量，如图

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

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

杨成武发表于 2016-4-27 20:483 C! K5 A$ z9 M. f5 q
老师按照你给的东西我的怎么不能分离，你能加qq帮我一下吗553942958麻烦你了，我图号是这样例如：GH01-02 ...

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

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

jinqin11 发表于 2016-4-27 21:38# I$ Q! j3 A) W A4 Y
装配图好像不管用。6 A3 `% ^/ \7 e4 d8 G! @3 f
你的是什么版本的

sw2015，你有qq吗？

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

杨成武发表于 2016-4-28 19:16" T9 X2 y3 n( w {+ O
sw2015，你有qq吗？

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

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

gt.adan 发表于 2016-4-29 07:01+ K6 E. j1 ^" w! l! N
#18 大大說的方式以前有討論過，似乎2013以後就不支持這樣的崁入方式了。/ K$ }! p7 l8 D U! K
把你要的編碼方式寫出來，具體 ...

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

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

杨成武发表于 2016-4-29 07:54' K% V, |, S! i/ a/ a
谢谢丹大的回复，我的图号是这样命名的例如ＨＬ０１－０１－０１轴承支架，装配图号编为ＨＬ０１－０１－ ...

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

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

gt.adan 发表于 2016-4-29 09:428 p. o# E0 F. Q& [
看不明白…
/ X, L4 j5 K; e- e這裡討論的應該是零件的圖號分離，怎的又有裝配圖出現呢？
0 ~$ p" @9 H4 }$ }2 P7 Z! V能否明白舉個例子？一個完整的零 ...

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

麻烦丹大看看谢谢。

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

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

杨成武发表于 2016-4-29 15:29% X5 N% [1 ` T9 Z: p
丹大这个是一个示意图；8 F/ e/ ~4 B+ R) n
做的不好希望能看的明白

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

Sub main()
* N4 s2 _6 \: S# R7 L) o
8 _- h) I8 C) n; K
Set swApp = Application.SldWorks9 P4 g$ U+ Q- i3 N9 g/ \
Set model = swApp.ActiveDoc
% e7 a$ ?7 m' Q) N2 G! @' F
# @! |+ T: o( j# A( @1 N
ModelName = model.GetTitle+ ]' s' I# g6 [/ e- c' H$ m, L+ v
ModelName = Left(ModelName, InStr(ModelName, ".") - 1)
1 C0 j8 L1 x* V4 h
6 g( q7 ]0 W5 p- @$ w0 i! n, o6 z
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Number")+ j! j0 B$ U K
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Number", swCustomInfoText, Left(ModelName, 10))
6 C5 U; O$ U" L) |
retval = swApp.ActiveDoc.DeleteCustomInfo2(sconfigname, "Name")
0 x9 \/ B; K( o- ^- E4 r
retval = swApp.ActiveDoc.AddCustomInfo3(sconfigname, "Name", swCustomInfoText, Right(ModelName, Len(ModelName) - 10)). N+ [0 X2 H) O! M( V" f/ A6 P
8 R* L" J3 P9 E3 c) O& ]
End Sub
5 m: [( B6 d8 g# c- u

复制代码

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

杨成武发表于 2016-4-29 15:29. c2 U/ E' Y- d P1 C- I& }
丹大这个是一个示意图；# k7 w* C) a0 T' Q8 ?
做的不好希望能看的明白

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

Dim swApp As SldWorks.SldWorks( y+ V2 A8 b$ L3 G! ^) |9 R2 U4 z
Dim swModel As SldWorks.ModelDoc3 w- _" h, h" U- D5 q) r+ V
Dim sFileName As String
5 E$ }" U9 `8 Y- N' ^$ k
Dim path As String+ q& r9 ^ F, R; G5 \! k `! Y
Dim nErrors As Long0 h8 Z/ O5 k W( C1 j
Dim nWarnings As Long
. `! k2 h) J F* R+ h2 H
Sub main()# S8 M' x* |+ V% [3 a7 y( s: X
Set swApp = Application.SldWorks
0 B! u0 p0 K" A7 B6 d
path = InputBox("Enter a folder path containing any Solidworks files (For example '' C:\test '' )", "Parts path location") '鍵入路徑
p% B; r6 M# ]2 ?9 @* j
If Right(path, 1) <> "" Then path = path & ""
% E% C* X, R/ y+ s( s. r4 {+ E
sFileName = Dir(path & "*.sldprt") '可以換成 *.sldasm or *.slddrw4 G: i+ [; t" x n
Do Until sFileName = ""
9 a4 w+ C/ ]) I3 I9 g$ w: O. B
$ F, e( ?( I$ H
Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '可以換成 swDocASSEMBLY or swDocDRAWING2 m" u" C# ?& K
Set swModel = swApp.ActiveDoc3 K' f$ D3 B2 D( a
" v) K: Q3 H, U9 y0 ~9 r3 N
retva6 = swModel.DeleteCustomInfo("Number")2 W( ?0 W( ]/ `0 R
retva6 = swModel.AddCustomInfo3("", "Number", swCustomInfoText, Left(sFileName, 10))
" s! I( w& V& ^
retva6 = swModel.DeleteCustomInfo("Name")
- K; A0 N* J5 y6 r% {2 ~# |% I
retva6 = swModel.AddCustomInfo3("", "Name", swCustomInfoText, Right(sFileName, Len(sFileName) - 10))
/ H4 P. M5 s. R; N0 P* L* A
0 X3 T$ l& M, U' q
swModel.Save1 M* _; C0 y8 S# P5 N. x& X" u
swApp.CloseDoc (sFileName)
. Y6 y! N' X8 z4 v y5 w
sFileName = Dir
7 j' U$ R8 @' a8 U# q
Loop
" Y5 b; Z* G: U2 g8 k
MsgBox "DONE!"8 O# ?: M* H* c0 D# m
End Sub
3 i0 ?- l$ q2 {( _% R% i, ?# ?/ H$ i

复制代码

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

gt.adan 发表于 2016-4-29 16:391 i/ ?" W6 j, A* X- |
要達到批量新增的話，如下代碼：

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

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

杨成武发表于 2016-4-29 18:369 r, R/ r7 I! c4 ^6 |
丹大，不好意思再次麻烦你，我对宏引用不熟悉，你能给我演示一下吗，做一个小视屏不好意思了。

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

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

gt.adan 发表于 2016-4-29 23:54
; `7 ^3 F; ^ g1. 工具--宏--新增- ]% I- X, j |" ~# {
2. 命名後確認，進入編輯視窗，不要關閉。7 |; n3 s* H7 c# |/ [. {
3. 將#18的代碼複製下來(該樓層下方有一 ...

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

打开来报警

出现这个

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

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

杨成武发表于 2016-4-30 19:34 Q3 u( z6 t# V# U% S: p R! y" G Y
不好意思麻烦丹大看看问题出在哪里

最上方加入下兩行代碼

Dim swApp As SldWorks.SldWorks
( N |: S+ }- P" K7 j1 x: P0 C
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:270 \! z) A/ }) m# r O$ Y
能共享你所使用的宏吗，我也想要实现这个功能。麻烦你了

现在要不要了，我有

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

安顺发表于 2016-7-13 13:49
% F' }; l! q- `9 B6 U; `现在要不要了，我有

能用于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

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

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

全站		2005llnn 说: CAD几何作图竞赛题（2024年4月），至5月22日止。	1小时前
全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04

通知

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