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

xieke-111

我的solidworks的VBA编辑器不支持中文，该怎么办啊？

我装的上solidworks 2004版的！

希望知道的 各位老师 同学 告诉我一下！

xieke-111

操作系统是

XP -SP2-PRO-中文

xieke-111

怎么没有人帮我解决呢？

不过刚刚我又发现了一些：在我录制宏后，在编辑宏

代码如下：
' ******************************************************************************
' 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

 

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

 

 

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

 

雪山飞狐_lzh

solidworks的VBA没用过，不行的话就用E文吧：）

xieke-111

谢谢 斑竹 老师！

还有谁知道的吗？劳驾各位老师 指导！谢谢了！

MJTD_7777

是挺怪的。我的VB里面程序，“工程属性”对话框中也和你的情况一样。不知什么问题。

你可以试试其他程序里面的VBA有没有这个问题（比如：Excel）。不行就重装VBA吧，SolidWork的安装光盘里面好像有VBA的安装包。

xieke-111

楼上的老师，能说具体点吗？具体是那个安装包呢？

MJTD_7777

抱歉是我记错了.是Catia的安装包中有V5R14.