|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！
6 M# E1 V0 i9 u, c& I+ |( M2 i据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数' Q/ Y: \2 I/ i
按下面是实例：
" F& q% w7 j) i q5 e) `Import VLAX.cls2 C9 B/ Z7 E- M) {
Sub TEST()6 o; }4 I W5 F4 _8 r
Dim VL As New VLAX) J" |, }$ f8 F% K$ L
Dim pt As Variant
9 r9 g) ?/ K2 _( |( s3 U1 Kpt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")
$ i# \( A. B' d/ j# O2 O* T8 lMsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
) b: ]" I, f3 O ~End Sub6 z5 l' s; v" d. o
' \ O5 |. k/ r6 Y1 V) {& I
转自明经通道
\3 K2 ~. e5 u8 p3 J6 s% j2 g: f" h) @: ~& S x
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
