跪求代码

ghy_420

我想在CAD中通过VBA代码对图元上的点采样，并且能指定采样精度。

6 l" k% j: A$ @" B; \1、怎样判断图元类型？
1 _- x8 l' z3 d& H   不同的图元采样方法不一样，所以必须首先确定图元类型。
3 S( m$ B+ R4 |, g" t  a
2、怎样读取图元的关键点坐标？
* k1 ^# T8 U, j& O1 A- q7 M! u   比如直线的关键点就是它的两个端点。
( K! i3 z$ ^" u7 o
6 l+ f& v5 s7 x3、怎样按照指定精度得到采样点？
   比如一条直线其实坐标是（0，0，0）终点坐标（10，10，10），怎样才能每隔1个长度单位取出一个点？
: I+ H+ N0 V0 t& ~6 |0 H5 y7 n5 H
7 q2 Y# d7 ~: I: v" l: o请大家一定帮帮我呀！工期紧呀！
! B2 V- e* c( s" z, ?: ], Y
我是新人，不知道咱们的论坛能不能送分什么的，要是能送我全送出去。