|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！
5 b8 {8 ^! Y0 }& W) s1 |/ h" ]据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数
: A# h* X. v9 k按下面是实例：
5 E, X. c* q3 |# PImport VLAX.cls) A$ |3 A# d: _( x7 R. x% `
Sub TEST()
# x9 ^+ G) x" BDim VL As New VLAX
5 B; k# H3 V7 X5 ^4 kDim pt As Variant
( l+ _( `9 @# u( @pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) "), J) H+ o: X7 [* \
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)+ @+ {3 O& c3 ~. A d$ i, t
End Sub/ l. D/ P- w/ r4 y" u
2 t8 w( j% F/ r7 e- w
转自明经通道
* @! C& }4 b! S( o: I( k+ T; H7 }6 Z% E! {3 P
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
