|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！# r' c$ x& {' g# B
据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数
7 P& P7 ^# ]8 U按下面是实例：
1 `0 Y( d. g+ A( m, W# r; G0 K9 xImport VLAX.cls2 L0 |' O% d2 K9 [8 w; g9 V
Sub TEST()8 r/ O1 {" g; w& P
Dim VL As New VLAX9 j1 J: Z1 u- B
Dim pt As Variant
% J3 @+ |, Y2 a# a& i# T, X2 y1 @pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")2 @0 ~* m' M2 Y+ n
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
! k1 d6 ^9 O5 j$ lEnd Sub( h- [! m6 @$ J! @$ f2 T' u
! S$ b+ Z+ B& V. }转自明经通道
+ [3 g3 E7 ^* t
$ r G9 h: A; a) M5 k[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
