|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！4 O6 C! k7 S" P; X4 _
据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数6 Y& z& p6 i9 ?/ f4 @0 D
按下面是实例：
4 {2 A5 V; }5 |. E1 [7 }Import VLAX.cls; O( `" h' ^8 D5 }% e% H5 p
Sub TEST()
2 X( y& M, \9 RDim VL As New VLAX, G/ s c- Y% ^6 U0 K2 \
Dim pt As Variant: t- B" u! r$ n9 Z
pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")
( l, @* p& ?7 eMsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
* o( J- ~4 _+ E; ^End Sub- i2 q4 s/ O' s' d ?* B) Y# x
4 W/ e3 [7 q* b" _* s
转自明经通道/ L- v& c/ b" v$ K# N% n) L
% ?6 W0 Z$ k$ \# f+ e' E# X3 U/ U[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
