|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自: 中国浙江宁波
VBA实现有难度,可以考虑使用lisp函数grread实现!
( @( Z- s2 y ~0 E6 B/ M; D6 [据说VBA利用下面的VLAX.CLS可以实现,原理也是让VBA执行LISP的GRREAD函数
) ?9 n; S B( S. ~+ `3 ?" ^按下面是实例:" C( F- G( f1 z" g3 f' N6 N
Import VLAX.cls
! Y2 m+ \& [: MSub TEST()3 p. C- h5 H9 U+ ~. d
Dim VL As New VLAX( V' F8 X5 q( X
Dim pt As Variant/ I0 H' ?1 L7 w; t; H
pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")
; a. e$ I" a3 E9 N* ]; c5 UMsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
4 S6 ]+ C0 x% y" Y5 E1 sEnd Sub, w$ B8 v3 b5 q# V/ l
) B# i+ v- n* }; ?9 X) d8 U4 U, P3 T
转自明经通道& n; T0 B* @" q2 W# K( L
* _8 a( o0 f% }' h: J- b+ `3 y[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|