QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
VBA如何获得光标位置?相对于鼠标移动事件???
) I, @& O/ g) X2 l! m1 O& M8 G
) p! V: j, q5 m$ i6 x: D[ 本帖最后由 唐昕晨 于 2009-1-10 16:06 编辑 ]
发表于 2008-6-10 12:33:44 | 显示全部楼层 来自: 中国浙江宁波
VBA实现有难度,可以考虑使用lisp函数grread实现!" ^' Y8 w& g! _5 e
据说VBA利用下面的VLAX.CLS可以实现,原理也是让VBA执行LISP的GRREAD函数
0 Q" p. o- n3 e( L按下面是实例:3 ?. \! b6 t/ G# Q: u! h
Import VLAX.cls
/ k# C7 x% H6 r& e3 t, OSub TEST()
6 |& L% m" U4 u6 @9 u' n# r7 JDim VL As New VLAX* a  u# \, r$ B* ~! {# J
Dim pt As Variant
) T; N1 A# F6 |( K' T& ~! ]pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")) z  l/ ^7 L+ U$ X
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
& ^8 ^" ~8 d) x; y, n4 EEnd Sub0 p% r# g) I9 C$ u% z4 t& I* g6 g8 v
" ~8 X5 R! G) U& B' \
转自明经通道
6 S4 s- q& n9 c1 D' [; W2 p$ r. i8 T
[ 本帖最后由 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 )

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