真的很感谢啊！！！！！！

不用跪，喜歡拿去~~

DimswAppAsSldWorks.SldWorksDimswModelAsModelDoc2DimswCustPropAsCustomPropertyManagerDimvalAsStringDimvaloutAsStringDimboolAsBooleanSubmain()SetswApp=Application.SldWorksSetswModel=swApp.ActiveDocSetswCustProp=swModel.Extension.CustomPropertyManager("")bool=swCustProp.Get4("材質",True,val,valout)'獲取"材質"的數值mat=Left(valout,InStr(valout,"/")-1)fin=Right(valout,Len(valout)-Len(mat)-1)'寫入材質和表面處理的屬性retval=swApp.ActiveDoc.DeleteCustomInfo2("","Material")retval=swApp.ActiveDoc.AddCustomInfo3("","Material",swCustomInfoText,mat)retval=swApp.ActiveDoc.DeleteCustomInfo2("","Finishing")retval=swApp.ActiveDoc.AddCustomInfo3("","Finishing",swCustomInfoText,fin)MsgBox"Done!"EndSub

复制代码

是这样子的，大神哥哥可否分享一下代码，跪谢呢！！！！！！！！！！

完全赞同7楼的观点

是的，你说的没错，这个方法不适合你们公司情况，但是我司基本以镀硬铬本色阳极喷砂阳极为主，所以不需要建太多的材料库的。所以这就合适我司情况了。
哥们懂怎么弄么？求指导啊！！！！！！

這樣是否"提高效率"，我以為見仁見智。
1.將兩者合而為一，看似省去了重覆的標註動作，但實則要建立/修改整串的SW材質資料庫。
2.一樣的材質表面處理不怎麼變化，這也是看公司文化和作業習慣，不能一概而論。
以我司舉個子，一個沖壓件就有染黑、電鍍、烤漆、熱處理…等等不同的後製程，
更不用說電鍍有分鍍洹㈠冦t、鍍鎳…etc
更不用說熱處理有分硬度要求、是否氮化、QPQ、AB1...etc
如此一來，試想光是一種材質要建立多少類似「材質/表面處理」這樣的資料庫？真的有比較快嗎？

这样做的目的就是避免标图时重复标注处理方式，毕竟对应的材质对应的处理基本不怎么变化的，方便分工给新人助理工程师标图。分工明确，提高效率！
至于要在工程图里拆开的目的就是为了好看，材料一栏表面处理一栏。美观符合国际标准。

我也有一樣疑問…一般出圖，表面處理是另有欄位的，不知LZ為何要將兩者混在一起，然後再用宏來分開。
當然，不是做不到，只是有點兒脫褲子放屁的感覺~

帖子不能沉，求高手指点啊！！！！！！！！！！！

表面处理一般是在工程图的技术要求里提出，为什么要和材质搞在一起？第一次见到！

帖子不能沉，求高手指点啊！！！！！！！！！！！