|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！
( c }) \' W' \% b, e. W. R) k据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数' O; y/ h6 O/ f A7 k$ o) Q
按下面是实例：; o1 _; I" {4 y
Import VLAX.cls9 q9 [8 A; O6 f
Sub TEST()3 y0 d1 \) F5 L$ S. ~ c! F8 e
Dim VL As New VLAX3 f T7 D. B) ~5 Z. |
Dim pt As Variant0 {* y- J( O& }( a! U/ E
pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")
* ?3 K% s5 Z4 Q. y% H3 y, XMsgBox pt(0) & ", " & pt(1) & ", " & pt(2)9 V0 a1 b: Z A4 Q7 q
End Sub
# R o' o/ { h8 d& @$ Q- j3 | J1 `/ r
转自明经通道$ J& x; e$ u7 I. o$ N% O
( R3 J l, p9 E h# g1 x
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
