求帮解决急急急

1122339 · 发表于 2022-2-10 09:31:11

经典图书

' ******************************************************************************
' C:\Users\Administrator\AppData\Local\Temp\swx7320\Macro1.swb - macro recorded on 02/10/22 by Administrator
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("平板型式", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
longstatus = Part.SetBendState(2)
boolstatus = Part.EditRebuild3()
boolstatus = Part.Extension.SelectByRay(-0.003632183444509, 2.99999999999159E-02, -4.65951507220552E-03, -0.209649272839454, -0.425732927293639, -0.880226480524119, 1.31578467877166E-03, 2, False, 0, 0)
boolstatus = Part.Extension.SelectByRay(-2.59256217702469E-02, 2.99999999999727E-02, -4.40022020871164E-03, 0, -1, 0, 8.08689119438894E-04, 2, False, 0, 0)

' Open
Set Part = swApp.OpenDoc6("D:\Client\Edit\XM21006\318737\RF线槽支架W100\RF线槽支架W100.SLDDRW", 3, 0, "", longstatus, longwarnings)
Dim swDrawing As Object
Set swDrawing = Part
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 22
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "RF线槽支架W100 - 图纸1", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByID2("图纸1", "SHEET", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.SetupSheet5("图纸1", 12, 12, 1, 20, True, "F:\SW模板\A3-标准.SLDDRT", 0.42, 0.297, "默认", False)
End Sub
这里的只能定义录制时的零件如何改成当前零件

Allate · 发表于 2022-2-10 10:38:49

Set Part = swApp.ActiveDoc

复制代码

这一句就是当前零件的意思。

你要把你自己的意图还有宏的作用仔细描述，别人才能更好地帮助到你。

1122339 · 发表于 2022-2-11 09:24:50

经典图书

Allate 发表于 2022-2-10 10:38
这一句就是当前零件的意思。

你要把你自己的意图还有宏的作用仔细描述，别人才能更好地帮助到你。

钣金展开折弯扣除我自己输进，接下来的展开正式打开此零件工程图然后调整图纸比例1.20然后另存为dwg接下一系列机械工作我想让宏代替可是它读取的只能是当前录制的那个文件我打开另外一个文件的时候打开的工程图里面的零件是当时录制的零件不是我当前打开的零件，我可能言语表达不太好大神救救我

1122339 · 发表于 2022-2-11 10:13:59

这个意思转dwg的过程但是换一个零件转出来的dwg只能是录制时的那个零件不是当前打开的文件

tg000057 · 发表于 2022-2-11 10:17:46

经典案例图书

如果是要打开当前文件的工程图的话，就应该是把下面那句改成：
Set Part = swApp.OpenDoc6("D:\Client\Edit\XM21006\318737\RF线槽支架W100\RF线槽支架W100.SLDDRW", 3, 0, "", longstatus, longwarnings)
-
-
aa=part.getpathname
aa = Left(aa, Len(aa) - 7) & ".SLDDRW"
Set Part = swApp.OpenDoc6(aa, 3, 0, "", longstatus, longwarnings)

1122339 · 发表于 2022-2-11 10:27:54

tg000057 发表于 2022-2-11 10:17
如果是要打开当前文件的工程图的话，就应该是把下面那句改成：
Set Part = swApp.OpenDoc6("D:\Client\Edi ...

提示对象不支持该属性和方法怎么回事大神

hengzhou9571 · 发表于 2022-2-11 18:00:12

经典案例图书

好好学习，天天向上！

Allate · 发表于 2022-2-11 20:14:05

建议好好地看看教程，再进行操作，要不然这个问题太多了，回答不过来。

1122339 · 发表于 2022-2-12 09:02:06

Allate 发表于 2022-2-11 20:14
建议好好地看看教程，再进行操作，要不然这个问题太多了，回答不过来。

已经解决了谢谢

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

求帮解决急急急

最佳新人

宣传达人

活跃会员

热心会员

灌水之王

突出贡献