找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 2091|回复: 8

sw批量提取零件外形尺寸

[复制链接]
发表于 2025-1-10 08:33:23 | 显示全部楼层 |阅读模式
如题,请问sw怎么批量提取零件外形尺寸并写进属性?有没有宏分享,谢谢!
回复

使用道具 举报

发表于 2025-1-10 09:13:00 | 显示全部楼层
插件上有
回复

使用道具 举报

 楼主| 发表于 2025-1-10 09:51:41 | 显示全部楼层
fiyu1314 发表于 2025-1-10 09:13
3 u- L0 Z( C3 w( I# v% M- h( @插件上有
& j! N/ E# V2 L8 \; d
什么插件?5 W" g1 Y" C. M# n
发表于 2025-1-10 10:49:16 | 显示全部楼层
逐梦2020 发表于 2025-1-10 09:51
# b: c, p) F) o什么插件?
2 X9 y! e5 V& }8 Z
凯元肯定有 麦迪应该也有吧
0 b+ y! b" J& Y7 S: t) j) S
3 l) q! Z7 [/ q  f. W+ s) n
发表于 2025-1-10 12:00:52 | 显示全部楼层
安装第三方插件:& S" Y' Q5 s' o
例如,使用SolidKits BOMs高级BOM工具或SWTDO插件。1 \/ d" G1 V8 y( W- v1 B
下载并安装插件,按照插件的安装指南进行操作。) n# ~1 c' i' C& j5 N
使用插件功能:
; |/ F3 f: S, M" W打开插件,选择“批量写入属性”功能。, L1 N- H/ k2 B4 M/ `
选择需要处理的零件文件或文件夹,设置需要添加的属性名称和值。
  ]3 X1 i' R3 C$ v. [; T, U& @# e) G
还有这个宏命令是AI生成的,不保证有用。( k1 C2 G3 R% D8 x
Dim swApp As SldWorks.SldWorks
" E# i$ G4 R! S- wDim swModel As SldWorks.ModelDoc2* G, q0 T! G$ K: D
Dim swPart As SldWorks.Part
$ L2 O, \5 Y5 j, ~. X  |Dim massprops As Variant4 A4 _  v! m8 M/ L. c1 d" A
Dim status As Long
& w8 O* D0 l! `$ D5 {* z- B5 q3 V8 Q% tDim length As Double5 e* ^+ P1 R* O5 ?$ a. |7 R) n! G
Dim width As Double
% n0 u# \0 s6 wDim height As Double  E; q* Z( G. i* ^& L: c* F

( B: ^: b5 I- }, U1 p( X4 \Sub main()
5 X6 M9 D: M* Q7 N# Y; v    Set swApp = Application.SldWorks
# ~2 V8 N3 o' N; s: r. ~: O    Set swModel = swApp.ActiveDoc
  x8 _/ p; h) R# V! p4 O6 A6 m- k    Set swPart = swModel.Part, `! |  a& ]2 P; }' r3 Y+ s4 l  W

! D. P+ S* h& [5 X+ L) B7 t    ' 获取零件的外形尺寸
: d; b$ v8 d8 A/ v5 G" d' A    massprops = swPart.GetMassProperties(1, status, True)+ a/ u0 w6 h4 i" y: c$ B. D
    length = massprops(0)6 K% A1 b4 h4 K# k
    width = massprops(1)' p7 S6 e2 p, x; ^9 @
    height = massprops(2)( i2 t# d. N7 }3 B. ~

9 t) |/ \! O; \8 a    ' 添加自定义属性
( ~0 i4 P' D1 f7 R7 }# I    swModel.Extension.AddCustomProperty3("长度", swCustomInfoText, CStr(length), swCustomPropertyReplaceValue)1 B0 m( h0 N6 ?8 S
    swModel.Extension.AddCustomProperty3("宽度", swCustomInfoText, CStr(width), swCustomPropertyReplaceValue)
* k2 w* T* J. K6 h1 E! U2 h    swModel.Extension.AddCustomProperty3("高度", swCustomInfoText, CStr(height), swCustomPropertyReplaceValue)
* U8 A" @& Y4 T0 Z
! }3 c& F2 c) _! x" ]* H2 Z    ' 保存文件
- |  a& P3 \+ U( P    swModel.Save
4 ^6 J8 l. q" |End Sub
2 H5 \) Z, m$ @: v* y; h  l, o点击“执行”按钮,开始批量处理文件。
发表于 2025-1-10 12:12:48 | 显示全部楼层
平板类的还是钣金类的?
发表于 2025-1-10 12:34:19 | 显示全部楼层
用工具箱?工具箱都有属性填写等功能
 楼主| 发表于 2025-1-10 14:35:39 | 显示全部楼层
|tsdt001发表于 01-10 12:12平板类的还是钣金类的?
机加件
发表于 2025-1-11 08:37:31 | 显示全部楼层
只要外形尺寸的话可以用焊接清单生成的
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Archiver|手机版|小黑屋|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-9-18 18:10 , Processed in 0.078940 second(s), 14 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表