SolidWorks專門論壇 SolidWorks forum

 找回密碼
 註冊
查看: 2029|回復: 21

刪除與加入檔案屬性

[複製鏈接]
發表於 2022/11/7 10:33:28 | 顯示全部樓層 |閱讀模式
1.如何全部刪除自訂標籤的檔案屬性;2.加入新的檔案屬性
有辦法完成這2種API嗎

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號?註冊

x
發表於 2022/11/8 18:51:22 | 顯示全部樓層
試試這個

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號?註冊

x

點評

我測試了一下好像是只會刪除"自訂"頁籤的屬性 那如果是要刪"模型組態"頁籤的屬性該怎麼辦??  詳情 回復 發表於 2022/12/2 10:17
 樓主| 發表於 2022/11/15 12:17:06 | 顯示全部樓層
讚~有直接刪除,關於加入檔案屬性,大郎測試後因為有點難度就先暫緩。

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號?註冊

x
發表於 2022/12/2 10:17:00 | 顯示全部樓層

我測試了一下好像是只會刪除"自訂"頁籤的屬性   那如果是要刪"模型組態"頁籤的屬性該怎麼辦??
發表於 2022/12/2 11:36:15 | 顯示全部樓層
加入屬性為什麼不直接用屬性標籤呢
發表於 2022/12/2 21:30:49 | 顯示全部樓層
ㄚ水 發表於 2022/12/2 10:17
我測試了一下好像是只會刪除"自訂"頁籤的屬性   那如果是要刪"模型組態"頁籤的屬性該怎麼辦??
...

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

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號?註冊

x

點評

大大 是這樣嗎?? 但我執行後卻沒反應...[attachimg]254170[/attachimg]  詳情 回復 發表於 2022/12/14 15:59
內個...我利用了您的巨集嘗試將它加入到悶大的遍歷宏裡,得到了以下的結果。 將總組合及其包含的所有零件的自訂屬性及開啟中的模型組態屬性全部刪除,並設定樹狀顯示。 雖然沒有完全搞懂這些內容,但目前測試堪用,  詳情 回復 發表於 2022/12/7 14:04
發表於 2022/12/7 14:04:23 | 顯示全部樓層
kkovgto 發表於 2022/12/2 21:30
改寫了一點 ,裡面的p是你要刪除的組態名稱如:p="預設",如果要刪自訂 直接 p=""
...

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

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

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號?註冊

x
發表於 2022/12/7 18:01:56 | 顯示全部樓層
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
....
突然想到...遍歷組合件刪除所有零件的屬性...那到時組合圖的明細不就一片空白了= =????

點評

Set swApp = Application.SldWorks Set part = swApp.ActiveDoc ↑應該不用再打這行 以上這些我修改了,並且把寫入屬性的語法也加進去了((昨天還沒測試好所以沒放上來  詳情 回復 發表於 2022/12/8 09:24
發表於 2022/12/8 09:24:07 | 顯示全部樓層
kkovgto 發表於 2022/12/7 18:01
其實都可以啦...我也是一點一滴的去修正我的程式,一開始也是從都不懂後來才慢慢熟的

Set swApp = Applic ...

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


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

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號?註冊

x
發表於 2022/12/9 12:42:35 | 顯示全部樓層
MINAIK 發表於 2022/12/8 09:24
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
↑應該不用再打這行

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

點評

多虧了前輩們的語法,我才能彙整成我需要的功能。  詳情 回復 發表於 2022/12/9 16:50
發表於 2022/12/9 16:50:47 | 顯示全部樓層
kkovgto 發表於 2022/12/9 12:42
用表單設計確實會比較方便

多虧了前輩們的語法,我才能彙整成我需要的功能。
發表於 2022/12/14 15:59:14 | 顯示全部樓層
kkovgto 發表於 2022/12/2 21:30
改寫了一點 ,裡面的p是你要刪除的組態名稱如:p="預設",如果要刪自訂 直接 p=""
...

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



本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號?註冊

x
發表於 2022/12/14 17:35:53 | 顯示全部樓層
ㄚ水 發表於 2022/12/14 15:59
大大  是這樣嗎??  但我執行後卻沒反應...

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

點評

我確認過了 沒有空格  詳情 回復 發表於 2022/12/14 17:47
發表於 2022/12/14 17:47:17 | 顯示全部樓層
kkovgto 發表於 2022/12/14 17:35
你的" AA" 是否多一個空格? 應該是"AA"

我確認過了  沒有空格
發表於 2022/12/14 17:49:28 | 顯示全部樓層
  1. p = "AA"  '指定模型組態名稱 ,如果要刪自訂則空白
  2. k = part.GetCustomInfoNames2(p)
  3. For i = 0 To UBound(k)
  4. part.DeleteCustomInfo2 p, k(i)
  5. Next
複製代碼
程式碼要改成這樣,你中間的沒用到新的

點評

請問K大 我如果要在摘要頁籤輸入資料要怎麼改??例如我要在作者欄寫入資料XXX 我錄了以下的動作但執行起來是錯誤的 Sub main() Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Part.FileSummaryI  詳情 回復 發表於 2023/3/28 16:39
有了 感受大大  詳情 回復 發表於 2022/12/20 11:39
發表於 2022/12/14 19:35:09 | 顯示全部樓層
感謝各位前輩分享指導
發表於 2022/12/20 11:39:22 | 顯示全部樓層
kkovgto 發表於 2022/12/14 17:49
程式碼要改成這樣,你中間的沒用到新的

有了

感謝大大
發表於 2023/3/28 16:39:00 | 顯示全部樓層
kkovgto 發表於 2022/12/14 17:49
程式碼要改成這樣,你中間的沒用到新的

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

Sub main()

Set swApp = Application.SldWorks

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


End Sub


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

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

點評

看起來是不行... [attachimg]254506[/attachimg]  詳情 回復 發表於 2023/3/29 20:52
發表於 2023/3/29 20:52:24 | 顯示全部樓層
kkovgto 發表於 2023/3/29 19:16
part.SummaryInfo(swSumInfoAuthor) =xxx
試試看能不能

看起來是不行...


本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號?註冊

x
發表於 2023/3/29 22:00:51 | 顯示全部樓層
你多一個P
然後
part.SummaryInfo(swSumInfoAuthor) ="xxx" 名字要加引號

點評

報告K大 測試可行 萬分感謝!!  詳情 回復 發表於 2023/4/6 09:55
發表於 2023/4/6 09:55:34 | 顯示全部樓層
kkovgto 發表於 2023/3/29 22:00
你多一個P
然後
part.SummaryInfo(swSumInfoAuthor) ="xxx" 名字要加引號

報告K大  測試可行

萬分感謝!!
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

手機版上論壇|論壇來自幾何科技 論壇架構版次 20231119

GMT+8, 2024/3/4 21:53 , Processed in 0.333794 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2023 Discuz! Team.

快速回復 返回頂部 返回列表