救急！！！
public function addline(byval ptst as variant, byval pten as variant) as acadline<BR>set addline = thisdrawing.modelspace.addline(ptst, pten)<BR>end function<BR>public sub addjx()<BR>dim p1 as variant<BR>dim p2(0 to 1), p3(0 to 1), p4(0 to 1), p5(0 to 1) as double<BR>dim le, he as double<BR>p1 = thisdrawing.utility.getpoint(, "输入第一点：")<BR>le = thisdrawing.utility.getdistance(, "输入宽：")<BR>he = thisdrawing.utility.getdistance(, "输入高：")<BR>p2(0) = p1(0) - 0.5 * le<BR>p2(1) = p1(1) - 0.5 * he<BR>p3(0) = p1(0) + 0.5 * le<BR>p3(1) = p1(1) - 0.5 * he<BR>p4(0) = p1(0) + 0.5 * le<BR>p4(1) = p1(1) + 0.5 * he<BR>p5(0) = p1(0) - 0.5 * le<BR>p5(1) = p1(1) + 0.5 * he<BR>addline p2(), p3()<BR>addline p3(), p4()<BR>addline p4(), p5()<BR>addline p5(), p2()<BR>end sub请斑竹看看这个程序，在autocad2002的界面下根据一基点生成一矩形，为什么不能实现？ 我要用VBA做一个AUTOCAD二次开发的设计：在布置液压管道图时要能实现引用一些管接头标准件，还有20天，VB语言基础不好，我还能做完吗？做不完毕不了业，问导师问题，可由于基础不好又挨导师的骂，昨天下午导师骂后，晚上跑到教学楼顶，真想跳下去啊！我都不知道还怎么见导师了。想想大学四年自己一直做的不错，竟会因为毕业设计而什么都丢了。导师也说我不该选这个题目，我当时只想这个导师很有想法，觉得跟着这个导师能多学些东西，没想到。。。。。。我觉得应该能学好，凌晨一点前没睡过觉，可就是看不好程序呀，现在说什么也晚了。做不出我什么都完了。真想跳下去让什么都结束吧！
我该怎么办？给个建议吧！有一丝机会我都不会放弃的。 把这个dim p2(0 to 1), p3(0 to 1), p4(0 to 1), p5(0 to 1) as double
改成dim p2(0 to 1)as double
....
<BR> 楼上这位的意思是：
数组要分开定义。
dim p2(0 to 1)as double
dim p3(0 to 1)as double
dim p4(0 to 1)as double
......
如果是一般的变量，可以同一条语句中定义。
但是数组要分开定义。 一般的变量也不能在同一条语句中定义！！！
应该用三维数组
dim p2(0 to 2)as double
。。。。。。
页:
[1]