本人想在图形中只选块或半径大于等于0.8的圆为什么如下程式有错,请了解的大师修改一下,谢谢
Dim Ftype(7) As Integer, Fdata(7) As Variant Ftype(0) = -4: Fdata(0) = "<or" Ftype(1) = 2: Fdata(1) = "*" Ftype(2) = -4: Fdata(2) = "<and" Ftype(3) = -4: Fdata(3) = ">=" Ftype(4) = 0: Fdata(4) = "Circle" Ftype(5) = 40: Fdata(5) = 0.8 Ftype(6) = -4: Fdata(6) = "and>" Ftype(7) = -4: Fdata(7) = "or>" ssetobj.SelectOnScreen Ftype, Fdata
|