|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！
- y/ _# P% c. g5 ]' ` q据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数+ `2 e1 U" ]3 W/ E) A3 K- ]+ o& s7 n
按下面是实例：
' Q& p5 ] B8 D9 J5 [Import VLAX.cls& z% T+ N) Q2 K, x1 z4 B3 I
Sub TEST()
: I$ }4 A7 T2 O0 ~: G( L. ZDim VL As New VLAX
. F0 _! T; _/ ?Dim pt As Variant
' _% W; e& p# i4 Bpt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")7 f0 m! Y0 Z E. H' d
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)$ n! V$ N& v' b: k7 V5 ?
End Sub
4 i6 a( y# v$ K* m
/ s. ^1 N/ _1 } F转自明经通道- X& f1 C% E1 O) h
& Q( L/ S$ l2 K# T
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
