|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！
- L3 Z J2 E Q4 ~ Y1 U据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数
2 g. M$ g$ h/ Z+ U7 `按下面是实例：
+ c0 F: e! R. i3 e. q$ \; ?, iImport VLAX.cls/ C+ Y1 E! x( `1 ^2 ~0 g/ i
Sub TEST()
! f1 f/ K, m& d9 K/ rDim VL As New VLAX g/ T" Z& ?5 i, ^$ F
Dim pt As Variant
8 J* ]2 t2 b& o/ M/ ept = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")+ D9 ]6 D8 ]) b6 o& q9 w, ~. z& ^" X
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
/ O2 t _9 m; m, _End Sub
7 `6 b) O j8 C" J& o
5 D9 J/ X4 g U9 \4 z; u转自明经通道
$ K1 G& J+ n- P# M: e
' b- w+ p3 | h# A[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
