刪除與加入檔案屬性

武大郎

1.如何全部刪除自訂標籤的檔案屬性；2.加入新的檔案屬性
有辦法完成這2種API嗎

kkovgto

試試這個

武大郎

讚~有直接刪除，關於加入檔案屬性，大郎測試後因為有點難度就先暫緩。

ㄚ水

kkovgto 發表於 2022/11/8 18:51
試試這個

我測試了一下好像是只會刪除"自訂"頁籤的屬性   那如果是要刪"模型組態"頁籤的屬性該怎麼辦??

MINAIK

加入屬性為什麼不直接用屬性標籤呢

kkovgto

ㄚ水 發表於 2022/12/2 10:17
我測試了一下好像是只會刪除"自訂"頁籤的屬性   那如果是要刪"模型組態"頁籤的屬性該怎麼辦??
...

改寫了一點 ，裡面的p是你要刪除的組態名稱如：p="預設"，如果要刪自訂 直接 p=""

MINAIK

kkovgto 發表於 2022/12/2 21:30
改寫了一點 ，裡面的p是你要刪除的組態名稱如：p="預設"，如果要刪自訂 直接 p=""
...

內個...我利用了您的巨集嘗試將它加入到悶大的遍歷宏裡，得到了以下的結果。

開啟總組合運行，會將總組合及其包含的所有零組件的自訂屬性及開啟中的模型組態屬性全部刪除，並設定樹狀顯示。
雖然沒有完全搞懂這些內容，但目前測試堪用，請各位前輩鞭小力一點

kkovgto

MINAIK 發表於 2022/12/7 14:04
內個...我利用了您的巨集嘗試將它加入到悶大的遍歷宏裡，得到了以下的結果。

開啟總組合運行，會將總組合 ...

其實都可以啦...我也是一點一滴的去修正我的程式，一開始也是從都不懂後來才慢慢熟的

Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc

.....
....
....
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
↑應該不用再打這行
Set intance = part.FeatureManager
....
突然想到...遍歷組合件刪除所有零件的屬性...那到時組合圖的明細不就一片空白了= =????

MINAIK

kkovgto 發表於 2022/12/7 18:01
其實都可以啦...我也是一點一滴的去修正我的程式，一開始也是從都不懂後來才慢慢熟的

Set swApp = Applic ...

Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
↑應該不用再打這行

以上這些我修改了，並且把寫入屬性的語法也加進去了((昨天還沒測試好所以沒放上來。
做了輸入資料的表單，否則每次要用都需要來編輯巨集

kkovgto

MINAIK 發表於 2022/12/8 09:24
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
↑應該不用再打這行

用表單設計確實會比較方便

MINAIK

kkovgto 發表於 2022/12/9 12:42
用表單設計確實會比較方便

多虧了前輩們的語法，我才能彙整成我需要的功能。

ㄚ水

kkovgto 發表於 2022/12/2 21:30
改寫了一點 ，裡面的p是你要刪除的組態名稱如：p="預設"，如果要刪自訂 直接 p=""
...

大大  是這樣嗎??  但我執行後卻沒反應...

kkovgto

ㄚ水 發表於 2022/12/14 15:59
大大  是這樣嗎??  但我執行後卻沒反應...

你的" AA" 是否多一個空格? 應該是"AA"

ㄚ水

kkovgto 發表於 2022/12/14 17:35
你的" AA" 是否多一個空格? 應該是"AA"

我確認過了  沒有空格

kkovgto

1. p = "AA"  '指定模型組態名稱 ，如果要刪自訂則空白
   
2. k = part.GetCustomInfoNames2(p)
   
3. For i = 0 To UBound(k)
   
4. part.DeleteCustomInfo2 p, k(i)
   
5. Next

複製代碼

程式碼要改成這樣，你中間的沒用到新的

yalaman2002

感謝各位前輩分享指導

ㄚ水

kkovgto 發表於 2022/12/14 17:49
程式碼要改成這樣，你中間的沒用到新的

有了

感謝大大

ㄚ水

kkovgto 發表於 2022/12/14 17:49
程式碼要改成這樣，你中間的沒用到新的

請問K大  我如果要在摘要頁籤輸入資料要怎麼改??例如我要在作者欄寫入資料XXX  我錄了以下的動作但執行起來是錯誤的

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Part.FileSummaryInfo "Author", "XXX"


End Sub

kkovgto

ㄚ水 發表於 2023/3/28 16:39
請問K大  我如果要在摘要頁籤輸入資料要怎麼改??例如我要在作者欄寫入資料XXX  我錄了以下的動作但執行起 ...

part.SummaryInfo(swSumInfoAuthor) =xxx
試試看能不能

ㄚ水

kkovgto 發表於 2023/3/29 19:16
part.SummaryInfo(swSumInfoAuthor) =xxx
試試看能不能

看起來是不行...

kkovgto

你多一個P
然後
part.SummaryInfo(swSumInfoAuthor) ="xxx" 名字要加引號

ㄚ水

kkovgto 發表於 2023/3/29 22:00
你多一個P
然後
part.SummaryInfo(swSumInfoAuthor) ="xxx" 名字要加引號

報告K大  測試可行

萬分感謝!!