|
|
发表于 2008-6-10 12:33:44
|
显示全部楼层
来自： 中国浙江宁波
VBA实现有难度，可以考虑使用lisp函数grread实现！. D4 A* V+ N$ @
据说VBA利用下面的VLAX.CLS可以实现，原理也是让VBA执行LISP的GRREAD函数
' E3 \7 C& l3 s6 Z. W" g! ~! a- l按下面是实例：! e) W* t, a. H) V% d! q# u" ]
Import VLAX.cls7 z0 r) G. r, N2 B1 _- n
Sub TEST() N# o4 C6 a0 @8 ^7 A; Q6 d
Dim VL As New VLAX; g; j5 K4 P9 V3 ^+ d
Dim pt As Variant; t* }# _3 }5 s0 ^* R
pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")
/ }! P& s) C# P& yMsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
; A/ z/ q' e- J' y: U t% |End Sub1 s G' F" j- D8 H
$ Y3 M: Y# X0 Y2 Q$ S
转自明经通道
' x$ r h- _/ B6 v- J; i2 {' V: T1 _
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ] |
评分
-
查看全部评分
|
发表于 2006-7-20 18:27:19
