请大虾门帮小弟的忙！！

ufo313

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

莫名

GetInteger        、getstring方法

ufo313

谢谢！我先回去试试看！

ufo313

那二个问题呢？

mccad

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

ufo313

谢谢！！能给个例子么？

mccad

2. Sub PolarPointSample()
3.        Dim Pnt1 As Variant
4.        Dim Pnt2 As Variant
5.        Dim Ang As Double
6.        Dim Dist As Double
7.        Dim Msg As String
8.        Pnt1 = ThisDrawing.Utility.GetPoint(, vbCr & "起始点位置：")
9.        Ang = 0.7     '弧度
10.        Dist = 50     '距离
11.        Pnt2 = ThisDrawing.Utility.PolarPoint(Pnt1, Ang, Dist)
12.        ThisDrawing.ModelSpace.AddLine Pnt1, Pnt2
13.        Update
14.        Msg = "起始点位置：X=" & Pnt1(0) & ",Y=" & Pnt1(1) & vbCrLf
15.        Msg = Msg & "目标点位置：X=" & Pnt2(0) & ",Y=" & Pnt2(1)
16.        MsgBox Msg, , "明经通道VBA示例"
17. End Sub

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