请大虾门帮小弟的忙！！

ufo313 · 发表于 2004-2-28 09:40:00

我现在又有一些问题：我想在命令行上输入一个字符串，比方是：1+100，而我怎么才能得到他的返回值是是数值型的1100，我试着用getkeyword函数了，但是当你执行到它时，命令行就会不断的显示（例如：getkeyword（“请输入里程”））请输入里程”。请问怎么样才能实现我想要得功能？还有就是有没有一个函数能够实现里面只要在命令行上输入@3<120,就能够找到下一个点的功能？

莫名 · 发表于 2004-2-28 12:25:00

GetInteger 、getstring方法

ufo313 · 发表于 2004-2-28 14:11:00

谢谢！我先回去试试看！

ufo313 · 发表于 2004-2-28 14:14:00

那二个问题呢？

mccad · 发表于 2004-2-28 19:21:00

获取与给定点形成指定的角度和距离的点。

ufo313 · 发表于 2004-2-29 18:32:00

谢谢！！能给个例子么？

mccad · 发表于 2004-2-29 21:09:00

copy


Sub PolarPointSample()
       Dim Pnt1 As Variant
       Dim Pnt2 As Variant
       Dim Ang As Double
       Dim Dist As Double
       Dim Msg As String
       Pnt1 = ThisDrawing.Utility.GetPoint(, vbCr & "起始点位置：")
       Ang = 0.7     '弧度
       Dist = 50     '距离
       Pnt2 = ThisDrawing.Utility.PolarPoint(Pnt1, Ang, Dist)
       ThisDrawing.ModelSpace.AddLine Pnt1, Pnt2
       Update
       Msg = "起始点位置：X=" & Pnt1(0) & ",Y=" & Pnt1(1) & vbCrLf
       Msg = Msg & "目标点位置：X=" & Pnt2(0) & ",Y=" & Pnt2(1)
       MsgBox Msg, , "乐筑天下VBA示例"
End Sub

请大虾门帮小弟的忙！！

发表回复

精选推荐

浏览过的版块