|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！
4 m3 w; }) d; ~据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数
* y, O/ c+ w Y* D4 R按下面是实例：
) a: i- d& m5 E2 t) y9 WImport VLAX.cls4 z7 E4 Y4 C% o9 L
Sub TEST()
0 C. p" |' V5 V: vDim VL As New VLAX
$ N: O" m. X6 [6 B# }$ }Dim pt As Variant
7 C' {. |. n4 R; f! x+ Npt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")
3 G( W, R9 t% D K) i+ c6 MMsgBox pt(0) & ", " & pt(1) & ", " & pt(2) |: ~3 C$ x: H' y$ c: _, z2 c" l
End Sub
1 z0 O' x5 K) p6 V: m# Z
( u% z7 N1 F$ Y- j$ E转自明经通道
4 E4 A8 ]$ K) g, _2 r$ n# f# x) I+ c/ I3 x( e
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
