求图号名称分离的宏，属性可应用到配置特定下面

ryouss · 发表于 2015-11-24 19:32:55

本帖最后由 ryouss 于 2015-11-24 19:39 编辑

NC@jiang@nan 发表于 2015-11-24 16:20% b n S! a# N' N! L+ f. b+ o
梁大，经过测试，问题依旧呀，还是显示成您这个材料栏里的这样，不知道问题在哪里了？难道必须把文件夹选 ...

參考如下,是針對文件在隱藏擴展名之處理.
另在IF條件下判定的文件名稱稍可簡化，因不影響結果就不處理了.

Configuration Code_Name.rar (9.21 KB, 下载次数: 54)

NC@jiang@nan · 发表于 2015-11-24 23:04:48

ryouss 发表于 2015-11-24 17:34
, |; P! ]! b. R4 S在什麼條件下要達到什麼結果?1 m+ s0 Z- w1 \# u
材料栏里到底是要顯示怎樣,請上個圖!

材料栏里就是您发后面的那个宏时带的那张图里的样子，就是显示“sw-material@零件1"。少了后面的后缀，不是显示成“sw-material@零件1.sldprt"，链接不到零件的材料属性。其它的都没问题。

NC@jiang@nan · 发表于 2015-11-24 23:11:31

ryouss 发表于 2015-11-24 19:32+ t, Y! f) u& _( D! A
參考如下,是針對文件在隱藏擴展名之處理.2 h7 B9 V k& c, O; K+ |' \
另在IF條件下判定的文件名稱稍可簡化，因不影響結果就不處理了 ...

是的，这样可以显示出链接属性的，我之前这样改动试过了是可行的。但是您之前发的那个文件是可以无论是装配体还是零件都可以自动添加好这个材料链接属性，而这样改动以后，就是相当于只对零件有效了，因为装配体后缀名和零件后缀名不一致，装配体的属性就没法链接了。我是半个强迫症患者，就是不喜欢显示已知文件的后缀名，否则用您第一个宏文件可以圆满完成提取文件名、代号和添加材料属性的要求，只能向您请教隐藏这后缀名后有没有无论是零件还是装配体都能添加好有效的这个材料属性链接的办法，请多多指点。
另外，因为做这些试验都是在公司的电脑上，公司电脑禁止连外网，只能在公用上网机上下载文件再转到内网，内网的文件没法拷出来，所以没办法上传相关的图片，请梁大谅解。谢谢。

ryouss · 发表于 2015-11-25 00:28:45

本帖最后由 ryouss 于 2015-11-25 00:31 编辑

若是強迫要隱藏擴展名,是認為本來能簡單地處裡就行,就硬生生搞成複雜事,
程度所限,尚沒法在無擴展名之條件下區分出哪個是組件哪個是零件,
可能要找出隱藏下的擴展名需動到DLL(Dynamic Link Library动态链接库文件)處理,這方面就一直沒研究過,
依我的程度,只好作成兩個"宏"一個處裡零件另個處裡組件,而且尚要用人工判定哪個文件是組件或是零件,是有過麻煩了.
也或許其他大大有較好的方案解決就期待著了!

zhhayu · 发表于 2015-11-25 08:56:00

能不能先显示再隐藏？

bash · 发表于 2015-11-25 11:23:12

ryouss 发表于 2015-11-25 00:285 a+ a; q6 C& p. r% M2 Q" s
若是強迫要隱藏擴展名,是認為本來能簡單地處裡就行,就硬生生搞成複雜事,, W; w8 R" M" j$ c! b* R
程度所限,尚沒法在無擴展名之條件 ...

首先谢谢梁大提供了那么好的东西～
再来，SW API 里面提供了两个函数可以满足您的使用要求。
1. iModelDoc2.GetType 可以得到文件的类型
2. iModelDoc2.GetPathName 可以得到文件的全路径

针对梁大提供的宏，可以追加如下函数，

Private Function getModelDocExtAsString(ByVal prModelDoc As SldWorks.ModelDoc2) As String

Dim sFileName As String

Const swDocPART = 1
Const swDocASSEMBLY = 2
Const swDocDRAWING = 3

If prModelDoc Is Nothing Then Exit Function
Select Case prModelDoc.GetType

      Case swDocPART
         getModelDocExtAsString = ".SLDPRT"

      Case swDocASSEMBLY
         getModelDocExtAsString = ".SLDASM"

      Case swDocDRAWING
         getModelDocExtAsString = ".SLDDRW"

      Case Else
         sFileName = prModelDoc.GetPathName
         If InStr(1, sFileName, ".") > 0 Then
         getModelDocExtAsString = Right(sFileName, Len(sFileName) - InStrRev(sFileName, ".") + 1)
         Else: getModelDocExtAsString = ""
         End If

End Select

End Function

并对原来的宏的一行作如下修改：

'Na = c + ".SLDPRT"
Na = c + getModelDocExtAsString(swApp.ActiveDoc)

即可。

ryouss · 发表于 2015-11-25 18:26:16

本帖最后由 ryouss 于 2015-11-25 21:17 编辑

linuxbyte 发表于 2015-11-25 11:23+ _! e& Y5 J! i/ b! V' ?+ Q7 _
首先谢谢梁大提供了那么好的东西～7 g. B$ r' }$ Q+ ~9 D/ D: D" W) H" r# S
再来，SW API 里面提供了两个函数可以满足您的使用要求。8 P* L4 | i2 P
1. iModel ...

想想重點如下:
1. 應該是用 swApp.ActiveDoc.GetPathName 不管是否隱藏擴展名都可以抓到擴展名 .SLDPAT OR .SLDASM
2. 而用 swApp.ActiveDoc.GetTitle() 僅抓出所要的名稱,但在隱藏擴展名時就抓不到 .SLDPAT OR .SLDASM

3. 但用第1項雖是找到名稱帶擴展名,但同時也抓出路徑非所要的,所以就需多做處理過濾掉.
總而言之,N大問題是可解!
參考如下,藍色是所要的.

Path_Name = swApp.ActiveDoc.GetPathName '取得"路徑名稱及擴展名"(不管擴展名是否隱藏)
S1 = InStrRev(Path_Name, "\") '\符號在路徑之最後位置數
Code_Name_C = Right(Path_Name, Len(Path_Name) - S1) '取得"件號_名稱.擴展名"
S2 = InStr(Code_Name_C, "_") '_符號在"件號_名稱.擴展名"之位置數
Code_ = Left(Code_Name_C, S2 - 1) '取得"件號"
Name_ = Mid(Code_Name_C, S2 + 1, Len(Code_Name_C) - S2 - 7) '取得"名稱"

NC@jiang@nan · 发表于 2015-11-25 21:17:19

本帖最后由 NC@jiang@nan 于 2015-11-25 21:26 编辑

linuxbyte 发表于 2015-11-25 11:236 v' B% N# Z- w; {: o& A9 C/ l
首先谢谢梁大提供了那么好的东西～$ j- t! M/ }7 C, W
再来，SW API 里面提供了两个函数可以满足您的使用要求。; p: p1 J+ k" J
1. iModel ...

高人，能否烦请您帮我修改一下梁大的宏后发一个完整的宏文件给我？我不知道您这些宏代码应该加在哪里，我没学过VC VB哈，都只能瞎鼓捣的，只会对已经有了的宏做很小很小的改动，要做稍微大点的改动我就变成睁眼瞎了。另外，请教一下，因为填属性时，一般都是往零件和装配体里填写，工程图属性一般都是保持空白的，不知道如果是批量处理的话如何过滤掉工程图不往工程图里填属性？谢谢您啦。

NC@jiang@nan · 发表于 2015-11-25 21:20:15

本帖最后由 NC@jiang@nan 于 2015-11-25 21:26 编辑

ryouss 发表于 2015-11-25 18:26
: |- W5 [! I) i2 T2 F/ `想想重點如下:
3 e; i# L/ A, |, \- u+ U! A1 f1. 應該是用 swApp.ActiveDoc.GetPathName 不管是否隱藏擴展名都可以抓到擴展名 .SLDPAT ...

梁大，能否烦请您赐个完整的宏文件或者完整的宏代码？我水平太差，没学过VB VC，这一段一段的代码我不知道应该放哪里去才能达到想要的效果。谢谢梁大帮忙。另外，请教一下，因为填属性时，一般都是往零件和装配体里填写，工程图属性一般都是保持空白的，不知道如何在用批量处理宏添加属性时如何过滤掉工程图不往工程图里填属性？谢谢。

ryouss · 发表于 2015-11-25 21:50:33

本帖最后由 ryouss 于 2015-11-25 21:52 编辑

NC@jiang@nan 发表于 2015-11-25 21:20, e& S1 s {: K/ {0 J0 c Y! O8 E/ J" h
梁大，能否烦请您赐个完整的宏文件或者完整的宏代码？我水平太差，没学过VB VC，这一段一段的代码我不知 ...

服務到家啦
是依據本主題格式

Configuration -1.rar (10.3 KB, 下载次数: 56)

ryouss · 发表于 2015-11-25 21:58:22

用批量处理宏添加属性时如何过滤掉工程图不往工程图里填属性？
應該可以,抓到工程圖之擴展名就不處理的邏輯概念

NC@jiang@nan · 发表于 2015-11-25 22:45:32

ryouss 发表于 2015-11-25 21:589 c" s( q! B- Q' ?# x- O
用批量处理宏添加属性时如何过滤掉工程图不往工程图里填属性？2 d0 N$ G5 Z; Y u. V
應該可以,抓到工程圖之擴展名就不處理的邏 ...

万分感谢梁大。我马上下载了试试。

NC@jiang@nan · 发表于 2015-11-26 00:01:42

本帖最后由 NC@jiang@nan 于 2015-11-26 00:04 编辑

ryouss 发表于 2015-11-25 21:506 O. d1 X0 T: X2 A i; v7 e' C
服務到家啦
" R4 V. I, h* u6 ]" U$ ?: l是依據本主題格式

梁大，感觉用这个最新的代码，宏代码比之前的简洁了不止一点两点呀。
新宏文件已经测试完毕。基本上完美了。只是有一点，运行这个宏后，在材料栏中添加的材料属性是如图一这样的。这样相当于还是把材料跟整个零件关联了吧？
但是实际上在用配置方式做设计时，各个配置的材料、质量等都可能是不一样的。

我水平太烂，试验了好久，才发现把您的代码稍稍修改一下，如图二，
strmat = Chr(34) + Trim("SW-Material" + "@") + Code_Name_C + Chr(34)
改成
strmat = Chr(34) + Trim("SW-Material" + "@@") + "@" + Code_Name_C + Chr(34)
这之后再运行宏代码的时候，就会把属性添加在当前激活的配置里了，结果如图三所示,

现在基本完美了。想把它慢慢的做成批量处理用的宏。水平实在有限，到时肯定还得向梁大您及各位高人们请教，请梁大不吝指点。
万分感谢梁大。

ryouss · 发表于 2015-11-26 10:04:02

2012測試效果

NC@jiang@nan · 发表于 2015-11-26 11:16:37

ryouss 发表于 2015-11-26 10:043 F( V# _2 D- }# p2 t( W( c
2012測試效果

是的。您的原宏文件的材料属性取得的结果是“材质@零件”的形式。我修改后取得的结果是“材质@@配置名@零件”的形式。这样各个配置用不同的材质时材质属性是和各配置对应的，各个配置就可以选不同的材质了。

木呆呆1046 · 发表于 2015-12-21 16:57:17

ryouss 发表于 2015-11-25 21:58
$ m" ^- T2 ]# ~) f8 H/ g( f用批量处理宏添加属性时如何过滤掉工程图不往工程图里填属性？
* x3 b( J% t8 u; m應該可以,抓到工程圖之擴展名就不處理的邏 ...

大师，乱码怎么办呢

木呆呆1046 · 发表于 2015-12-22 09:13:12

木呆呆1046 发表于 2015-12-21 16:57
/ x5 ], n( C# ]7 r1 a大师，乱码怎么办呢

大师，还是不行呀
我命名是图号空格名称的形式的
运行后出错
请问要怎么修改呢？
捕获.PNG

ryouss · 发表于 2015-12-22 13:33:42

本帖最后由 ryouss 于 2015-12-22 13:35 编辑

木呆呆1046 发表于 2015-12-22 09:13
$ I$ X3 n, m s% K大师，还是不行呀
8 s5 R5 W, z" z1 m) {% P 我命名是图号空格名称的形式的; ^# {9 w% i5 j" k) x2 t/ y0 E5 T6 B
运行后出错

本主題是 图号 _ 名称 的形式的,所以要把 " _ " 改為 " 空格 "

木呆呆1046 · 发表于 2015-12-23 08:25:50

ryouss 发表于 2015-12-22 13:33
6 L: u+ v. v* e9 x) w8 {& V本主題是图号 _ 名称的形式的,所以要把 " _ " 改為 " 空格 "

谢谢，谢谢
可以运行啦，真的感谢

ryouss · 发表于 2015-12-23 10:51:57

木呆呆1046 发表于 2015-12-23 08:25
) k% \. V4 }8 K) V' x8 O/ O9 y谢谢，谢谢
/ \; H$ a3 A! ~1 ]& W6 |% M3 X! O可以运行啦，真的感谢

不謝!
所謂天下文章一大抄,但建議抄寫也要稍微了解其中含意,
這樣才能深用廣用,吸收消化成自已得到的知識.

木呆呆1046 · 发表于 2015-12-23 14:33:20

ryouss 发表于 2015-12-23 10:511 K" W0 P) k3 ~' a9 x5 j) q: }
不謝!
; q' U: h/ @* G2 @$ u4 U所謂天下文章一大抄,但建議抄寫也要稍微了解其中含意,
; o4 n# q! o# `' p' I0 y0 m9 \: |這樣才能深用廣用,吸收消化成自已得到的知 ...

恩啊，谢谢大师指点

gcq225 · 发表于 2016-3-28 17:00:35

ryouss 发表于 2015-11-26 10:04
$ D0 L8 q, l( J/ f2012測試效果

梁大能不能实现提取配置名称，然后分离图号名称到特定属性？

gcq225 · 发表于 2016-4-18 22:25:57

ryouss 发表于 2015-12-23 10:51+ k1 f, {4 \0 h5 D9 ?
不謝!* N+ p. f; J8 I$ P& F8 d3 g7 R
所謂天下文章一大抄,但建議抄寫也要稍微了解其中含意,9 d, ^- U" U9 _. z8 z/ h" P+ a7 [+ g
這樣才能深用廣用,吸收消化成自已得到的知 ...

本来就是简单说说想法，想不到梁大还有关注，万分感谢。
能不能使这个图号名称分离更智能一些，比如说有文件名为“ABC-01 转轴”的零件，其包含“ABC-01（A）转轴”“ABC-01（B）转轴”“ABC-01（C）转轴”这三个配置，能否实现当相应配置激活时，自动分离配置图号和名称，自动填写到特定配置属性？

ryouss · 发表于 2016-4-19 09:04:59

gcq225 发表于 2016-4-18 22:25
/ g' R. U/ X2 `% n7 n本来就是简单说说想法，想不到梁大还有关注，万分感谢。
' K6 _# d; W8 _; y4 A# r能不能使这个图号名称分离更智能一些，比如说有 ...

若設文件图号名称為 “ABC-01（A）转轴.SLDPRT” ,
也就是图号為"ABC-01（A）",名称為 “转轴” ,且图号和名称之間加個 "空格" 符號.

參考#35的宏,並修改如下即可:

S2=InStr(Code_Name_C,"空格") '取得"空格"在图号名称的位置

sywddd · 发表于 2016-6-16 14:42:58

liang大请问出现这种情况是为什么啊2010版 QQ截图20160616144241.png

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

通知

[已解决] 求图号名称分离的宏，属性可应用到配置特定下面

点评

评分

评分

评分

浏览过的版块