|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！' h8 v4 y6 ~9 v, h1 G
据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数
3 p. p* Y/ K! D, B% s按下面是实例：
) l( k) O; k, f6 VImport VLAX.cls5 J2 R1 [1 |* H3 B4 C: t
Sub TEST()) k6 e T" {/ _1 j7 c/ g
Dim VL As New VLAX9 a* p6 q8 [% N( i. `$ K
Dim pt As Variant
+ @8 X+ |5 [; f/ z" Hpt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")
) u/ A6 H4 E6 b; E4 JMsgBox pt(0) & ", " & pt(1) & ", " & pt(2)/ T5 G4 h; @' y" j. k! s9 M
End Sub
; R2 m" [- @4 A( }
4 N5 O* ~+ x9 ]( M9 U# W转自明经通道
6 W7 |* q) Y9 ]) x2 o( {5 V' w, o0 ~
. @- n6 k0 s' \8 ~0 V1 ~) U2 c[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
