QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

[求助] solidworks宏里自定义的属性,重量如何在赋予材料后自动带出来?

[复制链接]
发表于 2019-7-1 12:56:48 | 显示全部楼层
NC@jiang@nan 发表于 2019-6-29 01:36
3 C, M# f0 [! O8 p  m; u6 s3 D) ^应该可以用 if gettype = 1 then
) i) h3 V+ X% T& `! |" v elseif gettype =2 then
3 x4 A/ m: \& _& vend if 代码来分别操作零件和装配体吧。好 ...

0 I, @; U) |; [. `' Z能否指导下这个语句增加到哪里?一下是源代码8 b) J/ G3 ?2 ^/ g, q& X* p. K
Sub main(); _+ S  G2 {$ @

% i: c3 n9 X* Z8 w$ Z# V# n7 B'link solidworks
. G/ h6 s  p( M' d9 `4 E* F6 ASet swApp = Application.SldWorks
! A* `3 c' O1 f7 V$ f  h. j4 iSet Part = swApp.ActiveDoc
: |: z' @! m  SSet SelMgr = Part.SelectionManager
& k# M2 \% `1 \" b3 KswApp.ActiveDoc.ActiveView.FrameState = 1+ q3 N* D1 i4 E& y  [# Q
3 b5 {2 P' }4 ]) l
'设定变量
: U9 o# J8 y( u+ A# tc = swApp.ActiveDoc.GetTitle() '获取零件名
- I& W. ?1 Y4 [" H
; d1 R  M! O; hIf GetType = 1 Then5 u1 x+ W2 b! q( s9 ?2 I1 z5 g' G( _
0 R2 p2 u, z) T* K- D3 V) R
strmat = Chr(34) + Trim("SW-Material" + "@") + c + ".SLDPRT" + Chr(34)
: ^) Y5 ?5 e+ S) f& _; i1 O: Ostrmas = Chr(34) + Trim("SW-Mass" + "@") + c + ".SLDPRT" + Chr(34), _# p5 O1 R) r2 a1 ?
: N& u. z+ w: p3 f+ q2 H3 p
ElseIf GetType = 2 Then1 r6 `% H+ K% U0 `, L0 w4 C
strmat = Chr(34) + Trim("SW-Material" + "@") + c + ".SLDASM" + Chr(34)
* \) P( s7 U9 i; bstrmas = Chr(34) + Trim("SW-Mass" + "@") + c + ".SLDASM" + Chr(34)
' e) b+ Q. y4 {' Q+ ?! Q0 T" ?/ N( d; \" [, Z0 d/ }. c& D' s
'tempvalue = Part.CustomInfo2("", "材料")) u6 g8 c: Z! u# L* ~, p' E7 c
blnretval = Part.DeleteCustomInfo2("", "代号")
# f8 D/ i! D' v4 v2 pblnretval = Part.DeleteCustomInfo2("", "名称")
/ z* H/ x3 A% |# Nblnretval = Part.DeleteCustomInfo2("", "材料")  R/ G/ _1 u# k: }! k9 R# ~( V
blnretval = Part.DeleteCustomInfo2("", "质量")
) G3 M8 N2 K. x+ t1 m& c' W# G
5 Z2 o6 \, B( u4 b& \2 w' R
0 ~. q6 i- M1 V# }a = InStr(c, ".") - 12 A. P2 A; U! S: [
If a > 0 Then
  ?6 p# w3 y, E% w, G3 n    k = Left(c, a)
: \: V/ J+ K6 C( b    t = Left(LTrim(e), 3)
& b- n9 o* _( ?( x
6 ~/ q( O% R8 }+ V( `% q- d8 u" p    If t = "GBT" Then
% I$ ^; O' F( e% d" q7 o        e = "GB/T" + Mid(k, 4)
: n0 K: {$ R2 i8 b/ }0 l    Else
% _0 i( E9 d1 p2 d$ m' M' q        e = k& c% V0 A9 U5 r8 E, J
    End If
$ \1 A* r, G2 h$ x5 ?
8 E  f' _5 T$ I0 ^    b = Mid(c, a + 2)
! {6 N  c7 J5 H2 ~  [9 n    t = Right(c, 7)
$ Z) Y9 D7 N' V: [3 o, b    If t = ".SLDPRT" Or t = ".SLDASM" Then
) V1 x, |* q$ U- R3 {% c1 u; Y. n        j = Len(b) - 7
9 E9 I& {: b7 j    Else
! B6 {. V6 _5 a" t8 I        j = Len(b)( T3 j5 j8 @: a. i; L9 X/ C
    End If
* f& ]5 y: ~  b7 S" ]    'If t = ".sldprt" Or t = ".sldasm" Then: u+ L2 `- @% z! |7 i, B7 M
    '    j = Len(b) - 7; A5 F3 r! M& n2 T  \
    'Else4 ^5 C# ]) j( k) q
    '    j = Len(b)
/ x* {" |7 N* o    'End If% v' ?6 w( ]2 ^! I' u$ s
    m = Left(b, j)
, v$ n1 u# i' ^: S( O2 a6 NEnd If3 Z5 G; F5 e9 }" E# f) H8 R

, f2 o" u9 i. D+ u$ C+ Oblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)
3 l+ _! @( B- ]2 Lblnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)
! c- a8 H9 X/ `* ~. q, lblnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, strmat)
+ w' Z* R) q* l# W: L  c* Pblnretval = Part.AddCustomInfo3("", "质量", swCustomInfoText, strmas)
$ _; r0 M2 l* Y* G% I: {  Mblnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, " ")7 P8 I- N* }, \2 u
blnretval = Part.AddCustomInfo3("", "总重", swCustomInfoText, " ")
: j2 z8 @# d& r+ E% Iblnretval = Part.AddCustomInfo3("", "备注", swCustomInfoText, " ")
* r0 |6 d" \' {# z. n! W9 z
: o# m# {- `! p3 N6 H
" N/ O; f' w0 Q6 E9 a/ ~1 E9 x' Elongstatus = Part.Save6 j9 N: Q5 M, O
boolstatus = Part.EditRebuild3()
  I8 p/ q2 i: ?' v0 b* K3 z3 V
0 z5 |& R, r8 ]4 K! h! T" x  G7 i; |End Sub
发表于 2019-7-2 10:13:31 | 显示全部楼层
eric.bo 发表于 2015-7-9 20:49
' Y6 F+ J& o9 o0 F此宏的主要目的不是用来添加自定义属性的,是用来从文件名提取物料编码和名称的,顺便增加了可以添加其他 ...

/ Z% v/ F: t0 E7 K- |- R完美的设计树,是只有整齐的图号。名称可以自定义到属性,而且设计树本身是可以显示出来一项属性。可以设定为名称。这样设计树的可以单独显示图号合图号加名称的方式
发表于 2019-10-2 09:41:26 | 显示全部楼层
he6266130 发表于 2019-7-2 10:13
" f3 R9 w6 M3 O: _完美的设计树,是只有整齐的图号。名称可以自定义到属性,而且设计树本身是可以显示出来一项属性。可以设 ...

& T8 I2 y/ `( O* W0 Z有没有图片,可否示范一下??
发表于 2022-4-11 17:28:08 | 显示全部楼层
顶一下
发表于 2022-5-20 18:56:45 | 显示全部楼层
我也找到了这个宏,我改的有点复杂
发表于 2023-1-1 10:31:31 | 显示全部楼层
学习中,谢谢大神们
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备13008828号-1 )

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