[求助][VBA]关于sendcommond的一些问题

思鹰 · 发表于 2004-8-2 17:29:00

这是小弟的代码：
Sub Example_StartPoint()

   '2.邦定闭合曲线
   ThisDrawing.Utility.prompt ("_boundary" & Chr(32))
   'ThisDrawing.SendCommand (Chr(92))

   '3.选中对象，并产生偏移曲线
   Dim sset As AcadSelectionSet
   Dim offsetobj As Variant
   Dim entry As AcadLWPolyline
   Dim offsetnum As Double

   '-3.1提示偏移量
   offsetnum = ThisDrawing.Utility.GetInteger(vbCrLf & "Enter offset values: ")
   '-3.2提示内、外偏移,并执行偏移
   Set sset = ThisDrawing.SelectionSets.Add("ss345")
   sset.SelectOnScreen
   For Each entry In sset
   offsetobj = entry.Offset(offsetnum)
   offsetobj(0).color = acRed
   Next entry
End Sub
以上代码执行时，ThisDrawing.Utility.prompt ("_boundary" & Chr(32))
该句代码未完成，就已经进入执行offsetnum = ThisDrawing.Utility.GetInteger(vbCrLf & "Enter offset values: ")
请问要如何解决？

zfbj · 发表于 2004-8-2 18:03:00

改成这样试试看：
邦定闭合曲线
[I]ThisDrawing.SendCommand "_boundary" & vbCrLf[/I]
'ThisDrawing.SendCommand (Chr(92))

思鹰 · 发表于 2004-8-2 18:14:00

还是不行~
在执行BOUNDARY命令时，我还没进行选择内部点，程序就已经跳到执行：offsetnum = ThisDrawing.Utility.GetInteger(vbCrLf & "Enter offset values: ")
这句代码了，造成这点的原因好像是因为SENDCOMMAND发送BOUNDARY命令时
造成了不同步。
大哥，你能不能帮我调试一下程序，谢谢呀

雪山飞狐_lzh · 发表于 2004-8-2 22:15:00

Sub tttttttttttt()
a = ThisDrawing.Utility.GetPoint
ThisDrawing.SendCommand "-BOUNDARY" & vbCr & a(0) & "," & a(1) & vbCr & vbCr
MsgBox 1
End Sub

思鹰 · 发表于 2004-8-3 08:56:00

谢谢版主~你这种方法实在是太妙了
不过，这样也会带来一个问题，那就是：a = ThisDrawing.Utility.GetPoint
如果选择的这个点是符合BOUNDARY的内部点，则程序通过，反之，若该点不符合
BOUNDARY的内部点时，程序也会像选择正确内部点一样结束，有没有办法判断我们所选择的内部点是符合BOUNDARY要求的呢？
如果符合则提示：BOUNDARY正确完成，如果不符合则继续判断内部点？

[求助][VBA]关于sendcommond的一些问题

发表回复

精选推荐