|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自: 中国浙江宁波
VBA实现有难度,可以考虑使用lisp函数grread实现!" ^' Y8 w& g! _5 e
据说VBA利用下面的VLAX.CLS可以实现,原理也是让VBA执行LISP的GRREAD函数
0 Q" p. o- n3 e( L按下面是实例:3 ?. \! b6 t/ G# Q: u! h
Import VLAX.cls
/ k# C7 x% H6 r& e3 t, OSub TEST()
6 |& L% m" U4 u6 @9 u' n# r7 JDim VL As New VLAX* a u# \, r$ B* ~! {# J
Dim pt As Variant
) T; N1 A# F6 |( K' T& ~! ]pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")) z l/ ^7 L+ U$ X
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
& ^8 ^" ~8 d) x; y, n4 EEnd Sub0 p% r# g) I9 C$ u% z4 t& I* g6 g8 v
" ~8 X5 R! G) U& B' \
转自明经通道
6 S4 s- q& n9 c1 D' [; W2 p$ r. i8 T
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|