|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！- q1 E0 K4 u, F, [- E
据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数
5 d- \* {& I( e) t1 G, Z: x按下面是实例：% y2 v3 x3 y" b9 T: t' A" ^* }
Import VLAX.cls! \( Z# E7 t* ]
Sub TEST()
8 ~3 t6 s$ w5 A0 c$ gDim VL As New VLAX3 D$ y4 W. z! V" p
Dim pt As Variant
3 \1 Y q# E l2 zpt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ") A) }$ i& B0 Y
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)" Y3 H; Z, b: `" V! j8 d1 k
End Sub
( n9 n2 |% N9 q8 H
) V, p7 t( m+ f0 X. \. d转自明经通道
2 n/ F" a* f9 n* W8 C1 n, D1 z/ H" _6 Q, |
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
