|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！
5 I8 d! A% Y# S! R据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数! V9 h% W/ t! v( D5 @9 s
按下面是实例：6 \7 F& G1 X: i# _# r# k
Import VLAX.cls" \4 ]& ] E7 S6 Q5 i$ }4 C
Sub TEST()7 q B ]; K* G6 z
Dim VL As New VLAX9 P: ^4 Y$ U6 l1 A# z2 r0 z
Dim pt As Variant
& R" q% G, h5 X9 q2 x) Mpt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")
/ a7 V- P& P$ T, [. E& D0 wMsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
& r# |; E$ V* Z' L( g- j* GEnd Sub
. A: Z7 ]" N/ O3 f6 I1 V
3 i( I) P" Z4 K4 P& ~( P转自明经通道$ \4 {# t/ }/ ]( i
+ K; }, D0 A, A/ y
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
