求助一个钣金转平板图加零件自定义属性的宏

zxt0824 · 发表于 2023-11-2 19:57:25

经典图书

tg000057 发表于 2021-4-27 08:26
Dim swApp As Object
Dim swModel As Object
Dim swModelName As String

大大你好，转DWG到桌面，代码要怎么改呢？

tg000057 · 发表于 2023-11-2 22:14:41

zxt0824 发表于 2023-11-2 19:57
大大你好，转DWG到桌面，代码要怎么改呢？

FP0 = Left(swModelName, Len(swModelName) - 7)
FP0 = Mid(FP0, (InStrRev(FP0, "\")))
FP0 = "C:\Users\user\Desktop" & FP0

zxt0824 · 发表于 2023-11-3 09:58:48

经典图书

tg000057 发表于 2023-11-2 22:14
FP0 = Left(swModelName, Len(swModelName) - 7)
FP0 = Mid(FP0, (InStrRev(FP0, "\")))
FP0 = "C:\Use ...

非常感谢大大的代码提供，非常完美

		自动登录	找回密码
密码			立即注册