[编程申请]：欢迎讨论，怎样编一个CAD内嵌的工程计算器?

秦林

在CAD绘图过程中，经常要用到工程计算方面的问题，虽然CAD中有_cal命令，但对繁杂的工程计算公式，每次输入不方便，在此我提议编程将公式一次输入，以后调用该公式时只需输入变量即可计算出结果.
   例:1、材料计算公式。2、机械方面的强度校核、链轮计算等公式。3、化学工程上的流体流动等公式

gjliang

和绘图结合起来岂不是更好！

秦林

大致界面已成形，见附件，我无法将所输入公式转化为VBA计算公式和赋值，请大虾用VBA程序指点一二。*-*3 *-*4

ourtibet

用delphi把现成的组件编译成ActiveX，很方便啊

秦林

怎样将所输入公式转化为VBA计算公式和赋值，
  cobobox1.text="a+b/c*sin(d)"
   a=5:b=10:c=2:d=45
textbox1.text=a+b/c*sin(d)

请大虾用VBA程序指点一二。  
附件如下

雪山飞狐(lzh)

Sub test()
Set oScript = CreateObject("ScriptControl")
oScript.language = "VBS"
oScript.ExecuteStatement "a=1"
oScript.ExecuteStatement "b=2"
MsgBox oScript.Eval("a+b")

End Sub

mountains3

调用excel的evaluate方法可以直接把复杂表达式的值计算出来，楼主不妨一试

秦林

最初由 lzh741206 发布
[B]Sub test()
Set oScript = CreateObject("ScriptControl")
oScript.language = "VBS"
oScript.ExecuteStatement "a=1"
oScript.ExecuteStatement "b=2"
MsgBox oScript.Eval("a+b")
End Sub [/B]

该程序需要引用什么工程吗？

lliusha

EXCEL  应该更好一点

秦林

E:\My Documents\sendxdsoft\工程计算器.bmp
  如上图所示，因各工程公式变量不一，还要能识别象cos等函数也可误用别，那位大侠帮我？*-*3*-*8

雪山飞狐(lzh)

6楼的代码你没试过么？
ScriptControl组件可以处理复杂的表达式，还可以加入函数，下面的例子加入一个弧度转度数的函数r2d，并求出其正弦值
不需引用

2. 
   
3. Sub test()
   
4. Set oScript = CreateObject("ScriptControl")
   
5. oScript.language = "VBS"
   
6. oScript.ExecuteStatement "a=1"
   
7. oScript.ExecuteStatement "b=30"
   
8. oScript.addcode "function r2d(val):r2d=atn(1)*val/45.0:end function"
   
9. MsgBox oScript.Eval("a+sin(r2d(b))")
   
10. End Sub

<br /> Sub test()<br /> Set oScript = CreateObject("ScriptControl")<br /> oScript.language = "VBS"<br /> oScript.ExecuteStatement "a=1"<br /> oScript.ExecuteStatement "b=30"<br /> oScript.addcode "function r2d(val):r2d=atn(1)*val/45.0:end function"<br /> MsgBox oScript.Eval("a+sin(r2d(b))")<br /> End Sub

mountains3

只要你想到的，它都能计算,比如((100^2+300/2)*500+700-600^2)^0.5
sin(),cos()都不成问题，注意在工程中应引用excel库

秦林

这就奇怪了，我在VB6.0及AutoCAD VBA下运行不成功，见图，请教各位大侠，问题出在哪？E:\My Documents\Sendxdsoft\HzCal1.bmp *-*3 *-*6

2. 
   
3.   [FONT=courier new]
   
4. Option Explicit
   
5. Dim oScript As Object
   
6. Sub text()
   
7. 'On Error GoTo ExitSub
   
8. Set oScript = CreateObject("ScriptControl")
   
9. oScript.language = "VBS"
   
10. oScript.ExecuteStatement "a=1"
    
11. oScript.ExecuteStatement "b=30"
    
12. oScript.addcode "function r2d(val):r2d=atn(1)*val/45.0:end function"
    
13. MsgBox oScript.Eval("a+sin(r2d(b))")
    
14. 'ExitSub:
    
15. End Sub
    
16. 
    
17. Private Sub Command1_Click()
    
18. text
    
19. End Sub
    
20.   [/FONT]
    

<br />   [FONT=courier new]<br /> Option Explicit<br /> Dim oScript As Object<br /> Sub text()<br /> 'On Error GoTo ExitSub<br /> Set oScript = CreateObject("ScriptControl")<br /> oScript.language = "VBS"<br /> oScript.ExecuteStatement "a=1"<br /> oScript.ExecuteStatement "b=30"<br /> oScript.addcode "function r2d(val):r2d=atn(1)*val/45.0:end function"<br /> MsgBox oScript.Eval("a+sin(r2d(b))")<br /> 'ExitSub:<br /> End Sub<br /> <br /> Private Sub Command1_Click()<br /> text<br /> End Sub<br />   [/FONT]<br />

雪山飞狐(lzh)

你的图呢？
找找有没这个控件

秦林

谢谢，终于找到这个控件，我还想请教各位大侠，在AutoCAD VBA能象VB一样绑定控件吗? 怎样做？