ojx公式曲线输入工具V1.1

ojx_ojx

以前总为苕窝公式曲线的问题困惑,近期看了笨笨解决公式曲线输入的
2 m  l& {- r% X4 q' y/ x  R方法后觉得非常好（感谢笨笨），但是总觉得编辑宏很麻烦，我等苕
; B6 z. ^" `9 H9 @2 g窝拥护者当然是使用越简单越好，于是便萌生了做一个带界面的公式
; x: ?) \) E% J4 w! g$ a曲线输入宏，可是小弟从未编过程序，于是苦啃帮助，上网查资料，
- s" }9 _1 L6 T* X( X折腾了一个多星期才做出这么个东东,肯定有编得不好的地方，高手莫
3 i5 O" G) ?) U% Q8 `笑。曲线插入方式由Insert3DSketch方式改为InsertCurveFile方式。内
1 u9 K) C  u4 F9 H1 V4 L/ b' F' }. ^置了十几种曲线,也可手工输入,遗憾的是此方式不支持封闭曲线.
- a5 e1 A9 i: |/ R( ]9 G. `# @此宏在SW2008下调试通过。SW2007未做测试。

. e2 m  P1 g0 `% z8 D3 G' b0 L2 w ojx带界面曲线宏.rar (26.91 KB, 下载次数: 112)

2008-1-1 01:21 上传

点击文件名下载附件

升级到V1.1,增加了闭合按钮,可以自行决定曲线是否闭合。貌似苕窝不支持自相交曲线？？？

# L) X% H3 O+ C! q# i
% H/ ^- s$ ~9 R, q! ^6 O/ g由于要将用户输入的方程变为代码来执行，用到了ScriptControl脚本控件，
  T/ h4 W% k" I# q3 _文件名为Msscript.ocx，故请确保C:\WINDOWS\system32下有此文件（没
0 y" ]1 r3 W% m; S9 a; N3 @有可以从我这儿下一个），并且保证此控件脚本被成功注册，先将
, `3 P5 W" T5 l4 u: X/ M+ PMsscript.ocx复制到C:\WINDOWS\system32下，然后在Windows的"开始"--"
! D& d' \* L2 L运行"栏
% F7 c" R$ K/ R4 v% ?/ I+ I& a& d; e  中输入以下命令：Regsvr32 "C:\WINDOWS\system32\Msscript.ocx" ，按"
运行"按钮，出现注册成功的提示。此外发现变量t未声明，其实在vb中不声
明变量也可以，不过不够严谨，容易发生混乱，故使用Option Explicit强制
4 A1 j; ?7 h6 ?2 x* N. `: {1 `, [显式声明所有变量，修改后的文件已上传。关于教程大家可以自行在站内查
% h0 T0 E+ w9 {0 ~+ r, }! B/ k" o+ P找“笨笨教新手”教程（再次感谢笨笨）。大家也可自己编辑宏扩展内置曲
线。
msscript.rar (36.87 KB, 下载次数: 77)

2008-1-3 01:16 上传

点击文件名下载附件
ojx带界面曲线宏V1.1.rar (30.52 KB, 下载次数: 71)

2008-1-3 01:16 上传

点击文件名下载附件

( |7 e# w- ?2 J& c- @[ 本帖最后由 ojx_ojx 于 2008-1-3 01:16 编辑 ]

hothuo01

感谢楼主的辛勤劳动，顺祝新年快乐

ahhbysy

新年快乐！谢谢楼主的礼物。

ltq59

新年第一帖，谢谢good good good

zhangxi01

祝新年快乐!如何使用?

dignity

感谢lz的辛勤劳动，不过我就想不明白了，为什么sw一直不把方程方式的曲线输入功能加进来呢

che-zp

好工具，祝愿楼主2008年幸福安康

gneful

谢谢，收下了  good good

dengss

收到新年第一礼物，谢谢了。顺祝新年快乐，健康平安！

lizujun1975

非常感谢，收到一份好的新年礼物，祝你新年愉快！

lzyhg_0058

非常感谢，不知道06能用么！看看！

perky2006

Lz能不能加个双曲线的进去啊,真的十分感谢你的劳动成果.

xxyumingao

谢谢！收下了good good

luwenbo001

十分感谢楼主的帮助,谢谢!元旦快乐!!!!!!! :handshake :handshake

snakewolfs

谢谢楼主！！！！！！！！

yuanly

哇噻！这个很好谢谢楼主的分享
那能不能讲授一下怎么做这样的插件
也让众维友们也能够做出更多实用的工具来与人分享呵呵

yuanly

Set sc = CreateObject("ScriptControl")
    sc.Language = "VBScript"
( F- a* H5 }4 q& a7 P    sc.AllowUI = True
    Set m = sc.Modules.Add("Module1")
( f3 ]2 h6 f% |, f楼主这一串有问题
- W2 U, `. q1 ?; I是空指令！

dzxzwgd

谢谢楼主分享！~新年快乐！~

s06

不错的东西,看样子我也得干点东西出来了

ldy188

在07中试过，出现如下提示，不知是什么原因。

suqi11x

虽说对这关系式这高深的工具没用 不过现看看了解下 以后会用到的 谢谢楼主了

阿郎

很好的东东，我下了，能在ＳＷ０８中使用．谢谢分享！

lxl288

师傅，我为你加油来了！
这个东东真的很好用哦，需要的朋友不要错过阿

LCGLCG99

2007中真的不能使用吗?我很需要!