救急！！！

cellero

public function addline(byval ptst as variant, byval pten as variant) as acadline
set addline = thisdrawing.modelspace.addline(ptst, pten)
end function
public sub addjx()
dim p1 as variant
dim p2(0 to 1), p3(0 to 1), p4(0 to 1), p5(0 to 1) as double
dim le, he as double
p1 = thisdrawing.utility.getpoint(, "输入第一点：")
le = thisdrawing.utility.getdistance(, "输入宽：")
he = thisdrawing.utility.getdistance(, "输入高：")
p2(0) = p1(0) - 0.5 * le
p2(1) = p1(1) - 0.5 * he
p3(0) = p1(0) + 0.5 * le
p3(1) = p1(1) - 0.5 * he
p4(0) = p1(0) + 0.5 * le
p4(1) = p1(1) + 0.5 * he
p5(0) = p1(0) - 0.5 * le
p5(1) = p1(1) + 0.5 * he
addline p2(), p3()
addline p3(), p4()
addline p4(), p5()
addline p5(), p2()
end sub 请斑竹看看这个程序，在AutoCAD2002的界面下根据一基点生成一矩形，为什么不能实现？

cellero

我要用VBA做一个AUTOCAD二次开发的设计：在布置液压管道图时要能实现引用一些管接头标准件，还有20天，VB语言基础不好，我还能做完吗？做不完毕不了业，问导师问题，可由于基础不好又挨导师的骂，昨天下午导师骂后，晚上跑到教学楼顶，真想跳下去啊！我都不知道还怎么见导师了。想想大学四年自己一直做的不错，竟会因为毕业设计而什么都丢了。导师也说我不该选这个题目，我当时只想这个导师很有想法，觉得跟着这个导师能多学些东西，没想到。。。。。。我觉得应该能学好，凌晨一点前没睡过觉，可就是看不好程序呀，现在说什么也晚了。做不出我什么都完了。真想跳下去让什么都结束吧！


我该怎么办？给个建议吧！有一丝机会我都不会放弃的。

209

把这个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 ....

evaporated

楼上这位的意思是：


数组要分开定义。


dim p2(0 to 1)as double


dim p3(0 to 1)as double


dim p4(0 to 1)as double


......


如果是一般的变量，可以同一条语句中定义。


但是数组要分开定义。

雪山飞狐_lzh

一般的变量也不能在同一条语句中定义！！！


应该用三维数组


dim p2(0 to 2)as double


。。。。。。