|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自: 中国浙江宁波
VBA实现有难度,可以考虑使用lisp函数grread实现!- J: @7 z# V: k* n
据说VBA利用下面的VLAX.CLS可以实现,原理也是让VBA执行LISP的GRREAD函数
/ i( k7 c; F- n- V按下面是实例:
1 }9 u( R, B5 aImport VLAX.cls
4 J" P$ i0 H2 t: ^' nSub TEST()3 A3 Z/ V) o8 [4 h: V8 ]" H
Dim VL As New VLAX; l) `: _1 c; S4 z7 w
Dim pt As Variant
% P! r4 X/ k! N! P& lpt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")- p) U+ m8 l1 y) h! M
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2) ~+ q! N# ^' @4 r% N0 f' i
End Sub
/ Y1 }1 C2 u: G+ z& m9 t/ G& l( C! N( x# g. E* k, h
转自明经通道
1 k( ?( P- s8 i5 s2 v; ^- T4 o7 ^" [0 W; |2 D3 }0 b
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|