QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2822|回复: 1
收起左侧

[已解决] VBA如何获得光标位置?

[复制链接]
发表于 2006-7-20 18:27:19 | 显示全部楼层 |阅读模式 来自: 中国上海

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
VBA如何获得光标位置?相对于鼠标移动事件???
# _, X; g4 }4 Z* |: y) j: X5 K# u# ~2 N4 ^
[ 本帖最后由 唐昕晨 于 2009-1-10 16:06 编辑 ]
发表于 2008-6-10 12:33:44 | 显示全部楼层 来自: 中国浙江宁波
VBA实现有难度,可以考虑使用lisp函数grread实现!- J: @7 z# V: k* n
据说VBA利用下面的VLAX.CLS可以实现,原理也是让VBA执行LISP的GRREAD函数
/ i( k7 c; F- n- V按下面是实例:
1 }9 u( R, B5 aImport VLAX.cls
4 J" P$ i0 H2 t: ^' nSub TEST()3 A3 Z/ V) o8 [4 h: V8 ]" H
Dim VL As New VLAX; l) `: _1 c; S4 z7 w
Dim pt As Variant
% P! r4 X/ k! N! P& lpt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")- p) U+ m8 l1 y) h! M
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)  ~+ q! N# ^' @4 r% N0 f' i
End Sub
/ Y1 }1 C2 u: G+ z& m9 t/ G& l( C! N( x# g. E* k, h
转自明经通道
1 k( ?( P- s8 i5 s2 v; ^- T4 o7 ^" [0 W; |2 D3 }0 b
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ]

200310313553755958.txt

4.29 KB, 下载次数: 15

评分

参与人数 1三维币 +5 收起 理由
woaishuijia + 5 应助

查看全部评分

发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表