|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！- [7 @2 K0 Z' T$ \8 r7 J
据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数
# j% D* |- ]/ l% R7 z) [' a按下面是实例：
' h3 }1 A$ s: e8 C7 MImport VLAX.cls
' c7 w" X$ w9 @- a l6 mSub TEST()# b, g8 {0 w! Z; S$ q
Dim VL As New VLAX
8 F9 W/ K! m) @+ l6 l+ Q' G, XDim pt As Variant- J: r" v }! j$ Y* I3 t. x5 W
pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")
/ c7 K- R; D% Q. Q8 FMsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
/ c. [" Z% T7 A8 H3 \* f7 t( ]End Sub
4 H7 W L2 x5 `7 V( B5 y! J( L& S: x3 X0 C! P
转自明经通道) a' G+ M7 J' \! R0 ~# R/ r- f( m0 @
* r" L& N& I0 N9 v9 ^. L- K' F) G
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
