|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！
8 P u& b9 G/ Z n2 m6 H据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数
3 a F) r% X4 q按下面是实例：
/ U: c3 F4 o% j% HImport VLAX.cls
/ s6 D4 e# f: kSub TEST()
, O p' [; H# P: K) V1 |! ~Dim VL As New VLAX
, }, s' s1 s/ ^1 P9 W, _( MDim pt As Variant4 |3 F }' V5 j: x) T! Z
pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")+ R$ E% M: _/ z; ~4 U7 g
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
9 y* Y& b) j eEnd Sub: t( [% [6 N! F* y
' _& C) ^- c" s
转自明经通道
2 L9 ?# [6 s% A( K; \+ Y1 I3 i* q1 a
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
