如何让工程图自动带出特殊的特定属性

假如3d文件名称规则为“1234567890极限开关.sldprt”
希望工程图标题栏处自动带出编号=1234567890；零件名称=极限开关


个人尝试：
在零件中添加方程式，定义名称A=left（1234567890极限开关，10)，发现此处left函数不支持非数字。
在工程图中添加注释，注释中直接使用函数，发现格式不对或者不支持。

总之，貌似无法实现，请高手指点。

弱问，可以用二次开发搞定不？
期待高手出现。

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim cpm As CustomPropertyManager

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set cpm = swModel.Extension.CustomPropertyManager("")

Dim path As String, filename As String, partno As String, desc As String

path = swModel.GetPathName   'Get the Path name + File Name
filename = Mid$(path, InStrRev(path, "\") + 1) ' File Name With extension
filename = Left$(filename, InStrRev(filename, ".") - 1) ' Remove extension

partno = Left(filename, 10) ' Get the Left 10 digit string as part number
desc = Right(filename, Len(filename) - 10) ' Get remaining string as part description

cpm.Delete "PartNo"    ' Delete the old custom properties if exist
cpm.Delete "Description"    ' Delete the old custom properties if exist
cpm.Add2 "PartNo", swCustomInfoText, partno   ' write new value into custom properties
cpm.Add2 "Description", swCustomInfoText, desc' write new value into custom properties

End Sub

谢谢。先下载研究。

看'后面的注释，能够明白每行的用途。
对VB和VC不熟，先死记硬背地用上再说。
再次严重感谢Linsd

3楼厉害    收藏备用

linsd 发表于 2009-3-30 23:54

赶紧收藏啊

坛子里牛人就是多啊！