iCAx开思网

标题: 【求助】帮忙测试：笨笨曲线 for 2005 B1——3D曲线输入插件 [打印本页]

作者: SW笨笨 时间: 2004-9-25 12:35
标题: 【求助】帮忙测试：笨笨曲线 for 2005 B1——3D曲线输入插件
帮忙测试：笨笨曲线 for 2005 B1，3D公式曲线输入插件

记得曾经与几位大侠讨论过公式曲线的输入问题

。现在各位都经过点、线、面、实体，进入曲面造型，而笨笨还在曲线问题上努力

……

   笨笨前些日子心情不好，闭关一个月，不过修炼的结果还是满意的，就是一个3D曲线输入工具——笨笨曲线 for 2005 B1，3D公式曲线输入插件。
   现在初步将框架搭好了，功能还比较简单，甚至不支持括号和三角函数。希望在国庆前后改进，并推出第一个可用的正式版本与大家共享。所以先请大家帮忙测试一下稳定性和计算结果的正确性，之后再增加功能。

————————————————————
注意：请大家在使用之前一定先存盘，现在只是测试版，虫虫多多。如果造成损失，笨笨爱莫能助！
————————————————————

作者: SW笨笨 时间: 2004-9-25 12:44
这是文件：

作者: SW笨笨 时间: 2004-9-25 12:50
安装方法，第一步：

笨笨曲线插件是一个宏文件，先解压到任何目录

打开SW，方便起见，先新建零件

显示宏菜单，在“视图〉工具栏〉宏”或“工具〉自定义〉工具栏〉宏”打勾

然后打开“工具〉自定义〉命令〉宏”，将“新建宏按钮”拖拽到宏菜单上如下图

作者: SW笨笨 时间: 2004-9-25 12:53
第二步：

然后在弹出对话框中选择解压的宏文件，高兴的话可以选择笨笨提供的小图片或任意其他图片作为标识。如下图

作者: SW笨笨 时间: 2004-9-25 12:54
完成后菜单是这样的。

作者: SW笨笨 时间: 2004-9-25 12:57
运行，在程序运行时，有笨笨默认的公式。你可以输入任意数学公式，但是目前还不支持括号和三角函数。

在参数栏输入参数的取值方法。

点击“新建零件”可以建立新零件，点击“画曲线”可以画出你要的曲线。

另外，下面的公式计算器可以进行数学算式的计算，可以使用t作为变量，求解，其值来源于参数最小值的输入。

作者: SW笨笨 时间: 2004-9-25 13:10
已经具有的功能：
3D公式曲线输入

数学算式（可以带变量）的计算

支持加减乘除，乘方（+、-、*、/、^）

对头尾点的补充输出

支持pi=3.14159

输入公式的安全检查

————————————————————————————

近期和以后要做的改进功能：

1、更多的安全检察
2、遇到数学运算失败点，可以继续其他点的处理

3、对括号支持（正加急做）

4、三角函数支持
5、智能三角函数输入

6、ln、log、E、Pi 的支持

7、不等步长的参数设置

8、翼型曲线输入

9、方程曲面输入

也希望大家给提提建议，看看需要什么，笨笨力所能及的会尽量做到。

作者: SW笨笨 时间: 2004-9-25 13:10
推荐公式：

设a,b,c……为您想使用的实数，N为您想使用的整数，以X,Y,Z的顺序来推荐。如果需要可以自行更换坐标系。

直线：
X=t
Y=aX+B

抛物线：
X=t
Y=aX^2+bX+c

N次曲线：
X=t
Y=aX^N+……+bX+c

作者: 路过蜻蜓 时间: 2004-9-25 14:00

笨笨真是高淫啊！

只可惜我当初数学考试时间都在端午节~

测试过的老大请说下该加多少分啊~

作者: lcl 时间: 2004-9-25 17:39
这么好的东西一定要试，辛苦你了，谢谢!

作者: SW笨笨 时间: 2004-9-26 00:14

路过蜻蜓 wrote:
笨笨真是高淫啊！只可惜我当初数学考试时间都在端午节~
测试过的老大请说下该加多少分啊~

感谢蜻蜓路过。

说明一下，大家茶余饭后，只要输入不同的曲线公式，看看结果。如果发现不正确或死机，请帮忙把公式贴出来就行了，笨笨就去查找这个懒虫虫藏在哪里。

作者: SW笨笨 时间: 2004-9-29 22:56
不知下载的12位仁兄，情况如何？

作者: Terrywinner 时间: 2004-9-29 23:15
先加一分，等测试结果出来再加了！呵呵

作者: 路過蜻蜓 时间: 2004-9-29 23:21

Terrywinner wrote:
先加一分，等测试结果出来再加了！呵呵

龙版大，久遗啦，您回来，热闹多，高兴也！

作者: SW笨笨 时间: 2004-9-30 00:06

Terrywinner wrote:
先加一分，等测试结果出来再加了！呵呵

感谢，升级中，争取国庆解决括号和三角函数问题。另已经有人要帮笨笨把它做成DLL插件的形式了，好高兴！

还希望各位多多指点。

作者: 路过蜻蜓 时间: 2004-9-30 00:18

路過蜻蜓 wrote:

龙版大，久遗啦，您回来，热闹多，高兴也！

啊?原来阿龙有这毛病?

作者: Terrywinner 时间: 2004-9-30 00:21

路過蜻蜓 wrote:

龙版大，久遗啦，您回来，热闹多，高兴也！

呵呵，前段时间忙，现在终于空闲了！呵呵！大家可好啊！

作者: jscadcam 时间: 2004-10-1 02:35
SW笨笨兄，你的程序写得不错

作者: SW笨笨 时间: 2004-10-5 19:22
发现重大错误，如果你的SW不是装在D:\solidworks，软件运行会出错。

是笨笨对SW二次开发了解不够导致的低级错误。会尽快改进。不知还有别的错误每？如果基本框架没问题，笨笨继续

作者: ahlzl 时间: 2004-10-6 06:57

SW笨笨 wrote:
发现重大错误，如果你的SW不是装在D:\solidworks，软件运行会出错。

这不是斑竹的过错！
SW的VBA不好用啊，不如AutoCAD的VBA！
如“新建”这样的操作，要在代码中输入模版的绝对路径，晕！

另：有问题要向斑竹请教，在VBA中，如何判断零件文件中已有几个草图、基准面、基准轴等，它们的名称！？

作者: Francis's 时间: 2004-10-6 12:31

ahlzl wrote:

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

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

作者: SW笨笨 时间: 2004-10-6 13:08
替ahlzl 表示感谢

作者: ahlzl 时间: 2004-10-6 13:48
啊，闷大发话了！
我写的这段代码，能新建一零件文件。可只能在我的电脑上，别人就不行了！

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 时间: 2004-10-6 13:52
2. 用回轉方式，即可尋找到你所需要的東東……

闷大的第二条，我也是一点都不懂。能否来段示范代码！先谢谢了！还有，我E文太差，API帮助看不懂。

to SW笨笨：这两个贴偏离了主题，请您原谅！

作者: Francis's 时间: 2004-10-6 14:07

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個字“繼續不斷學習”

作者: befaking 时间: 2004-10-6 21:03
我要去测试一下

作者: 路過蜻蜓 时间: 2004-10-6 22:34
从系统选项中获得模板来建立新零件，就不必这样那样了。
通常，问题都出于“人”身上，可是“人”往往把责任都推到是死物的机器之上。

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

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

作者: 路過蜻蜓 时间: 2004-10-6 23:41

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

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

作者: ahlzl 时间: 2004-10-6 23:49

路過蜻蜓 wrote:

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

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

作者: 路過蜻蜓 时间: 2004-10-6 23:56

ahlzl wrote:

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

公开秘密也不答，唉！爱莫能助了

作者: ahlzl 时间: 2004-10-7 00:18
公开秘密也不答……我是新来的，什么都不知道啊！

等我猜对了，您就……

作者: gneful 时间: 2004-10-7 08:23

路過蜻蜓 wrote:

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

我有机会吗？

作者: ahlzl 时间: 2004-10-7 09:44

路過蜻蜓 wrote:

  
公开秘密也不答，唉！爱莫能助了

既然有一次机会，也不能放弃啊！

猜，您就是闷大！

我在模具论坛看到闷大的一个关于文件属性的贴子，并下载了EXCEL文件，觉得和这有关，可一时还看不懂。请您老请教！先谢谢了！！

作者: ahlzl 时间: 2004-10-7 22:01
闷大啊，您老哪去了，再不来，贴子就沉底了！
还有一个问题：SW的VBA没“智能提示”，能不能有个什么绝招，把它们搞出来，SW的方法、属性这么多，没法记啊！

作者: SW笨笨 时间: 2004-10-8 00:45

路過蜻蜓 wrote:

  temp = swApp.GetUserPreferenceStringValue(8)<----看附图

正点！学习学习再学习，讨论起来，高人高见就多了。笨笨多谢

作者: yjh123 时间: 2004-10-8 07:58
高手,支持一下

作者: gneful 时间: 2004-10-9 07:19

ahlzl wrote:
…………
还有一个问题：SW的VBA没“智能提示”，能不能有个什么绝招，把它们搞出来，SW的方法、属性这么多，没法记啊！

办法很简单，申明对象变量的时候把类型写清楚就行了。
例如：
Dim swApp As SldWorks.SldWorks ‘申明SW应用程序对象
Dim part As SldWorks.ModelDoc2 ’申明文件对象
这样下次用到这些变量的时候就会有对应的属性和方法提示
如果是这样申明：
Dim swApp As Object
VB也不清楚对象是个什么东东，自然没有提示。

作者: ahlzl 时间: 2004-10-9 10:11

gneful wrote:

  
  办法很简单，申明对象变量的时候把类型写清楚就行了。
  例如：
  Dim swApp As SldWorks.SldWorks  ‘申明SW应用程序对象
  Dim part As SldWorks.ModelDoc2 ’申明文件对象
  这样下次用到这些变量的时候就会有对应的属性和方法提示
  如果是这样申明：
  Dim swApp As Object
  VB也不清楚对象是个什么东东，自然没有提示。

头是一定要磕的！！

作者: 路過蜻蜓 时间: 2004-10-9 20:08

ahlzl wrote:

  
  既然有一次机会，也不能放弃啊！
  
  猜，您就是闷大！
  
  我在模具论坛看到闷大的一个关于文件属性的贴子，并下载了EXCEL文件，觉得和这有关，可一时还看不懂。请您老请教！先谢谢了！！

《追魂劍》内有最佳例子https://www.icax.org/viewthread. ... %3D1&page=#pid=

作者: yaonan 时间: 2004-10-9 20:12

路過蜻蜓 wrote:

  
公开秘密也不答，唉！爱莫能助了

作者: work 时间: 2004-10-12 08:12
gneful, 路過蜻蜓, Francis都是一個人吧, 佩服連VB都這么熟.

作者: 流星雨 时间: 2004-10-19 08:37
顶！顶！顶！

作者: SW笨笨 时间: 2004-10-24 10:25

work wrote:
gneful, 路過蜻蜓, Francis都是一個人吧, 佩服連VB都這么熟.

gneful不是，乃是另一个高手。是“时空”上令人敬仰的老大，不过在这里很少出头。

作者: SW笨笨 时间: 2004-11-24 23:44
珠海航展+CSS（反恐）+NFS8（极品）+考研+单位局域网络建设……国庆以来笨笨就没闲过。

天那，我真的又要回去当学生了？
又要见那头痛的作业，和苦恼的考试？
又要唱着曾经最喜欢的歌：“总是要等到睡觉以前，才知道功课只作了一点点。总是要等到考试以后才知道该念的书都没有念……”回到课堂么？
不过课程真的忘得差不多了，能考上么？—— X_X

好在航展的时候恰巧跟导师住在一个房间，先给他讲了一下SW的入门技巧，又讲了讲飞机控制设计方面的事，就算拍个马屁，到时有功课挂了也好替笨笨求求情吧……

闲话说完，这次来是捉虫虫的。终于找到好方法改掉SW路径带来的错误了。先谢谢前面几位大侠的指点，不过笨笨太笨，你们的方法没试验成功。笨笨使用了
Set Part = swApp.NewPart
笨笨喜欢使用打包好的命令，懒呗，别骂我。另外界面作了小改动，也是为了避免这个问题。至于其他的就没时间更新了，大家原谅。

新的附件已经更新，请大家下载试用。

作者: RENAULT 时间: 2004-11-25 08:44
谢谢笨笨共享
下载来试试看

作者: SW笨笨 时间: 2004-11-27 14:49
这个错误实在不该犯。不知今后还会出什么错误。

作者: SW笨笨 时间: 2004-11-30 14:05
自己再顶一下，没别的目的，只是希望前面下载的38为朋友尽快更新，因为那个版本如果你的SW不是安装在“D:\Solidworks”下，一运行就会出编译错误。各位版大，笨笨只此一回，下不为例。

作者: xiym 时间: 2004-12-6 20:01
下了，再试一下

作者: shengx005 时间: 2004-12-6 20:18
下來學習學習,謝謝各位.

作者: link_fred 时间: 2004-12-24 06:17
笨笨真是高人呀，不要考研了，直接上博士就行了，比我们这里的博士后要强！！！

作者: 易水水 时间: 2004-12-25 16:13
高人啊,先顶,再下

作者: SW笨笨 时间: 2004-12-29 22:27

link_fred wrote:
笨笨真是高人呀，不要考研了，直接上博士就行了，比我们这里的博士后要强！！！

不要开笨笨的玩笑了，那些博士肯书考试真是一流，理论起来一套接一套！！

笨笨眼都花了

，难道教授写的书那能只有博士们才读的懂……

欢迎光临 iCAx开思网 (https://www.icax.org/)