|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！7 m7 L! W# D8 G
据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数, B# y, M6 G! H! r
按下面是实例：
1 S p( V5 k' i" BImport VLAX.cls. ^# \! ?5 V7 b* [: R" ]
Sub TEST()
' m b% P% Y0 d# l4 {. C6 a2 QDim VL As New VLAX7 \( O, q6 r0 e2 t/ ^
Dim pt As Variant, j$ S8 h( [" a: M1 E* B
pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")8 {7 H/ n: [+ N) ?, B: r
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
( G9 t% e4 s" D+ p9 N8 E/ F) HEnd Sub& q3 Y0 s1 u: F# X8 R$ X: w6 a
& `, l+ R) {, q% @" ~; C; C转自明经通道0 V& [. @# q0 F. C; o, F1 s
8 g% d/ [0 G7 K: C& g
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
