|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自: 中国浙江宁波
VBA实现有难度,可以考虑使用lisp函数grread实现!) ?" y; l; e* O
据说VBA利用下面的VLAX.CLS可以实现,原理也是让VBA执行LISP的GRREAD函数
* g {: L; F& ~% t按下面是实例:# ?, ?+ f6 T$ m) `/ d' K
Import VLAX.cls. f8 {0 N! h2 m" u" r& P
Sub TEST(): u, y9 w0 m" v" ~* x6 U$ b
Dim VL As New VLAX5 t% U; @7 ~& {5 S, y( X/ l7 T) y, @
Dim pt As Variant5 S* l( F$ ~) J/ U- p9 z' L: A
pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")" F/ }0 a) C: {
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
. x1 r0 j3 T, P( x) gEnd Sub1 d+ Q% L5 P, _) I. u% x+ ^
& Y8 J0 F2 {" W* u4 T转自明经通道1 i. w: z8 J( x) b+ E; |9 e
3 [0 W5 w7 P2 S- X
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|