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

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

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

我的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


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


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

雪山飞狐_lzh 发表于 2006-3-16 13:34:00

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

xieke-111 发表于 2006-3-16 14:53:00

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

MJTD_7777 发表于 2006-3-17 08:09:00

是挺怪的。我的VB里面程序，“工程属性”对话框中也和你的情况一样。不知什么问题。
你可以试试其他程序里面的VBA有没有这个问题（比如：Excel）。不行就重装VBA吧，SolidWork的安装光盘里面好像有VBA的安装包。

xieke-111 发表于 2006-3-21 21:48:00

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

MJTD_7777 发表于 2006-3-22 08:18:00

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

查看完整版本: [求助]我的solidworks的VBA编辑器不支持中文