[求助]我的solidworks的VBA编辑器不支持中文

xieke-111 · 发表于 2006-3-15 18:45:00

我的solidworks的VBA编辑器不支持中文，该怎么办啊？
我装的上solidworks 2004版的！
希望知道的各位老师同学告诉我一下！

xieke-111 · 发表于 2006-3-15 18:46:00

操作系统是
XP -SP2-PRO-中文

xieke-111 · 发表于 2006-3-16 11:23:00

怎么没有人帮我解决呢？
不过刚刚我又发现了一些：在我录制宏后，在编辑宏
代码如下：
' ******************************************************************************
' C:\DOCUME~1\new\LOCALS~1\Temp\swx3128\Macro1.swb - macro recorded on 03/16/06 by new
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.SketchRectangle -0.05091981132075, 0.02545990566038, 0, 0.04990141509434, -0.02512044025157, 0, 1
End Sub

我就纳闷了，里面可以显示中文啊，但是我把中文“打字”上去的时候全是乱码！
如下：我想在 “前视基准面” 加上乐筑天下，结果显示如下：
' ******************************************************************************
' C:\DOCUME~1\new\LOCALS~1\Temp\swx3128\Macro1.swb - macro recorded on 03/16/06 by new
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID("前视基准面 ?÷?-?íμ", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.SketchRectangle -0.05091981132075, 0.02545990566038, 0, 0.04990141509434, -0.02512044025157, 0, 1
End Sub

但是，我通过 “复制” 把乐筑天下放到里面的时效果如下：
' ******************************************************************************
' C:\DOCUME~1\new\LOCALS~1\Temp\swx3128\Macro1.swb - macro recorded on 03/16/06 by new
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID("前视基准面乐筑天下", "PLANE", 0, 0, 0, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.SketchRectangle -0.05091981132075, 0.02545990566038, 0, 0.04990141509434, -0.02512044025157, 0, 1
End Sub

这不是怪事吗？为什么用输入法输入就无法显示，但是用 “复制”功能却能放到里面啊！

希望各位老师快给我回复啊！