|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自: 中国浙江宁波
VBA实现有难度,可以考虑使用lisp函数grread实现!& ]; D: S2 C1 Q* x, l" E' V% d
据说VBA利用下面的VLAX.CLS可以实现,原理也是让VBA执行LISP的GRREAD函数. j% ?& V! k( f/ V$ ^& D
按下面是实例:
# v5 y4 z) P! F) o9 |0 k& }Import VLAX.cls5 }- }8 g6 a/ z2 P3 D; e
Sub TEST() p& j1 E8 x, {% w2 R
Dim VL As New VLAX3 u0 B. K4 S2 u$ F" S' I; d
Dim pt As Variant3 |* B7 O3 ^* S
pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")
\" |4 }* c- a2 E B3 S( q' d. uMsgBox pt(0) & ", " & pt(1) & ", " & pt(2)" v9 X6 S; M2 j- D, m+ z3 q
End Sub
+ j5 T* M4 ]% R' t% l( T/ C
; r$ [" L; h- D& c9 K$ t" T$ I" D转自明经通道* }) r8 v ^0 C1 I, @! P( |' e
, U8 _ V$ }5 g* R[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|