|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！
+ T3 g/ A# W; n6 |% p* H& c6 U7 x据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数
/ I- l3 P2 c% L0 l8 K& _2 f按下面是实例：& ? v& u* b' a$ M1 {9 v7 {
Import VLAX.cls% M4 G; g1 l5 U% v1 C( G. z: V
Sub TEST()
; ]& L' U; e; Y3 i2 P9 C/ aDim VL As New VLAX
: n( e* ^8 V7 `" V' {! [; }6 PDim pt As Variant
2 x, ?# v( ]1 n' `. N, Gpt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")* q6 x) ~+ I( W
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2); Q* f: [* C; I5 y6 F
End Sub9 [3 i! W( p' K' N5 j% A9 M
2 T# t2 F* ^' F; | o) T
转自明经通道' j. D+ H9 Y0 @ b/ m( C
" L6 L9 P0 ~& U( k, G3 _
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
