重命名零件宏

Dustry

Dustry 發表于 2024-4-3 13:29
運行報錯咋解決啊大佬

: g: t  t; Q9 LStatus = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning)  '更改零件文件名（替換裝配體中的原文件）
% p% c7 x( w( J) C" @' @# f對象不支持這個屬性或方法（錯誤 438）
7 x( |/ ^8 w& N. A

peiyj

運行出錯
. K! x6 _5 k1 F2 E" ~

頭鐵楊

好用，如果再加個刪除原圖紙就更完美了

落葉luoyi

提示編譯錯誤：沒有適當的對象，方法無效
大佬，這個怎么修改啊

cot

感謝

小菜雞123

怕瓦落地2011 發表于 2023-8-22 21:14
授人以魚，不如授人以漁

: [/ T7 V9 h% y$ [4 ?8 l& m+ E為什么復制了代碼，點擊了啟動，沒有反應，重新啟動也沒有反應，代碼里面紅色的，這個有關系嗎？

東海之上

請問下，卡到這步是什么問題呢？零件名已經更改過來了，但是工程圖沒動靜。
; P& b: ^% r1 Y* _. N4 M

一米陽光7915

要是能刪除原始模型和工程圖就更好了

大江大河-Meche

落葉luoyi 發表于 2024-5-23 13:01
7 [% A" D7 L6 t% b提示編譯錯誤：沒有適當的對象，方法無效
9 `2 E# e) ^9 L2 r0 g& r. J6 N! F大佬，這個怎么修改啊

7 u! R* C$ \" u/ H$ N+ S" f版本不適，不支持函數
, D; B. L$ F! Q3 C; {& }9 p

LIULISHAN

Dustry 發表于 2024-4-3 14:26
$ P; J/ `( S& v* |8 b3 ?* i) vStatus = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning)  '更改零件文件名（替 ...

拿去，不用謝
. D  E  _& I4 w: W8 QStatus = swSelModelext.SaveAs2(mip, 0, 512, Nothing, "", False, Error, Warning) '更改零件文件名（替換裝配體中的原文件）
) z  J) c$ [1 F5 b
$ P. x. g2 G1 N# l