fmfm 发表于 2004-5-10 17:24:00

请教这段代码中的问题




Dim d As Double<BR>Dim l As Double<BR>Dim lineent1 As AcadLine<BR>Dim lineent2 As AcadLine<BR>Dim l1 As AcadLine<BR>Dim l2 As AcadLine<BR>For i = 0 To vliness.Count - 2<BR>                       For Each lineent1 In allentss<BR>                                                       If (lineent1.StartPoint(0) = intPointarr(i) Or lineent1.EndPoint(0) = intPointarr(i)) And lineent1.StartPoint(1) = lineent1.EndPoint(1) And lineent1.StartPoint(1) &lt; Centeryy Then<BR>                                                       Set l1 = lineent1<BR>                                                       End If<BR>                       <FONT color=#dd2222>Next                                       'type mismatch ????</FONT><BR>                       For Each lineent2 In allentss<BR>                                                       If (lineent2.StartPoint(0) = intPointarr(i) Or lineent2.EndPoint(0) = intPointarr(i)) And lineent2.StartPoint(1) = lineent2.EndPoint(1) And lineent2.StartPoint(1) &gt; Centeryy Then<BR>                                                       Set l2 = lineent2<BR>                                                       End If<BR>                       Next<BR>                       d = Sqr((l1.StartPoint(0) - l1.EndPoint(0)) ^ 2 + (l1.StartPoint(1) - l1.EndPoint(1)) ^ 2)<BR>                       l = Abs((l1.StartPoint(1) - Centeryy) * 2)<BR>Next

mikewolf2k 发表于 2004-5-10 18:38:00

把问题提出来啊，不然还得麻烦别人从头看到尾，不好意思吧？

fmfm 发表于 2004-5-10 20:20:00

红色部分啊 运行到这里提示 <FONT color=#dd2222>type mismatch </FONT>

雪山飞狐_lzh 发表于 2004-5-10 23:13:00

allentss是什么东东？
页: [1]
查看完整版本: 请教这段代码中的问题