【求助】帮忙测试：笨笨曲线 for 2005 B1——3D曲线输入插件

ahlzl wrote:
   
  
  这不是斑竹的过错！  
  SW的VBA不好用啊，不如AutoCAD的VBA！  
1 如“新建”这样的操作，要在代码中输入模版的绝对路径，晕！  
  
2 另：有问题要向斑竹请教，在VBA中，如何判断零件文件中已有几个草图、基准面、基准轴等，它们的名称！？

  
1. 從sw系統選項中，取得模版路径即可。
2. 用回轉方式，即可尋找到你所需要的東東，
    就算系統的3個基準面給改名，也可從容找到。(即可解決你的2004/2005模版不一樣的問題)

替ahlzl 表示感谢

啊，闷大发话了！
我写的这段代码，能新建一零件文件。可只能在我的电脑上，别人就不行了！
  
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set Part = swApp.NewDocument("E:\SolidWorks\lang\chinese-simplified\Tutorial\part.prtdot", 0, 0#, 0#)
End Sub
  
闷大说的第一条，我无法在代码中实现。

2. 用回轉方式，即可尋找到你所需要的東東……
  
闷大的第二条，我也是一点都不懂。能否来段示范代码！先谢谢了！还有，我E文太差，API帮助看不懂。
  
to SW笨笨：这两个贴偏离了主题，请您原谅！

ahlzl wrote:
啊，闷大发话了！  
  我写的这段代码，能新建一零件文件。可只能在我的电脑上，别人就不行了！  
   
  Dim swApp As Object  
  Dim Part As Object  
  Dim boolstatus As Boolean  
  Sub main()  
  Set swApp = Application.SldWorks  
  Set Part = swApp.ActiveDoc <------多餘的   
  Set Part = swApp.NewDocument("E:\SolidWorks\lang\chinese-simplified\Tutorial\part.prtdot", 0, 0#, 0#)  
  End Sub  
   
  闷大说的第一条，我无法在代码中实现。

ahlzl wrote:
2. 用回轉方式，即可尋找到你所需要的東東……  
  
  闷大的第二条，我也是一点都不懂。能否来段示范代码！先谢谢了！还有，我E文太差，API帮助看不懂。  
  
  to SW笨笨：这两个贴偏离了主题，请您原谅！

  

不要找藉口啦，
悶人只有小學程度，英文肯定比你差，
最後只能給你6個字“繼續不斷學習”

我要去测试一下

从系统选项中获得模板来建立新零件，就不必这样那样了。
通常，问题都出于“人”身上，可是“人”往往把责任都推到是死物的机器之上。
  
Dim swApp As Object  
Dim Part As Object  
  
Sub main()  
Set swApp = Application.SldWorks  
temp = swApp.GetUserPreferenceStringValue(8)<----看附图
Set Part = swApp.NewDocument(temp, 0, 0#, 0#)
End Sub

我给路過蜻蜓磕头了！！！
你是怎么知道的？我API帮助看不懂啊，E文太差了！
这个问题：在VBA中，如何判断零件文件中已有几个草图、基准面、基准轴等，它们的名称！？ 您老能不能……

ahlzl wrote:
我给路過蜻蜓磕头了！！！  
  你是怎么知道的？我API帮助看不懂啊，E文太差了！  
  这个问题：在VBA中，如何判断零件文件中已有几个草图、基准面、基准轴等，它们的名称！？ 您老能不能……

  
当然有办法，想知道吗？
除非你能猜到我的真身是谁。（只有一次机会）

路過蜻蜓 wrote:
   
  
  当然有办法，想知道吗？  
  除非你能猜到我的真身是谁。（只有一次机会）

  
我猜不出来啊！您老就发发慈悲吧！